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

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

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

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

当有小数的时候，程序会自动取整，怎么让它不取整呢？

账号		自动登录	找回密码
密码			注册