Bdj 发表于 2023-12-24 20:59
;飞雪函数的用法,哈哈
(defun c:tt()
(setq dimname (cdr (assoc 3 (entget (car (entsel))))))
先选择标注再执行命令:
(defun c:tt()
(setq ss (ssget ":S" '((0 . "*dim*"))))
(setq dimname (cdr (assoc 3 (entget (ssname ss 0)))))
(BF-ent-activedimstyle dimname)
)
页:
1
[2]