ljcgq 发表于 2004-3-19 20:13:00

[原创]锁定当前测量尺寸文本

;=================<BR>;锁定当前测量尺寸文本。<BR>;LJC        2004.2<BR>;====================<BR>(DEFUN        C:DD(/        ss        n        a        d        i        )<BR>                        (SETQ        SS(SSGET        '((0        .        "dimension"))))<BR>                        (setq        n(sslength        ss)                i        0)<BR>                        (repeat        n<BR>                                                (setq        d(entget        (ssname        ss        i)))<BR>                                        (IF        (=                """"                (cdr(assoc        1        d)        )        )<BR>                                                (progn<BR>                                                (setq        a(itoa(fix        (+                (cdr(assoc        42        d)        )        0.5))))<BR>                                                (setq        d                (subst        (cons        1        a)        (assoc        1        d)        d))<BR>                                                (entmod        d)<BR>                                                (entupd        (ssname        ss        i))<BR>                                                )<BR>                                        )<BR>                                                (setq        i        (1+        i))<BR>                                )<BR>)

fengyulin 发表于 2004-5-11 22:26:00

不行啊！

ljcgq 发表于 2004-5-19 20:41:00

什么不行？

dandelions 发表于 2004-10-6 11:56:00

不适用于R14

梦里水香 发表于 2013-5-9 11:27:24

标注有角度值的时候，运行命令后变成弧度了，望修改。

lengyan 发表于 2015-9-11 23:16:38

路过，学习一下！！！！

lengyan 发表于 2015-9-12 08:19:13

当有小数的时候，程序会自动取整，怎么让它不取整呢？
页: [1]
查看完整版本: [原创]锁定当前测量尺寸文本