【标注】固定值

marting · 发表于 2020-7-6 18:53:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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)
)

(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) 
)

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

[标注] 【标注】固定值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。