马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (defun c:xdtb_dimvguding (/ ss)
- (xdrx-begin)
- (if (setq ss (xdrx-ssget "\n选择要固定值的标注对象<退出>:" '((0 . "dimen*"))))
- (progn (mapcar
- '(lambda (x)
- (xdrx-getpropertyvalue
- x "dimrnd" "dimdec" "measurement" "textstring")
- (if (= "" #textstring)
- (progn (xdrx-setpropertyvalue
- x
- "dimensionText"
- (rtos (xdrx-math-roundto #measurement #dimrnd)
- 2
- #dimdec
- )
- )
- )
- )
- )
- (xdrx-pickset->ents ss)
- )
- (xdrx-prompt
- "\n搜索范围内内, "
- (sslength ss)
- " 个标注值被固定 "
- )
- )
- )
- (xdrx-end)
- (princ)
- )
|