标注文字处理
请教个问题，请大佬帮忙修改http://bbs.mjtd.com/forum.php?mo ... A%D7%A2%CE%C4%D7%D6
(defun C:wz (/ ss1 ent1 n)
(vl-load-com)
(if
(setq ss1 (ssget '((0 . "DIMENSION"))))
(progn
(setq n 0)
(repeat (sslength ss1)
(setq ent1 (vlax-ename->vla-object (ssname ss1 n)))
(vla-put-textfill ent1 :vlax-true)
(setq n (1+ n))
)
(setvar "CMDECHO" 0)
(command "draworder" ss1 "" "F")
(setvar "CMDECHO" 1)
)
)
(print)
)
以上程序是标注文字填充颜色，怎么改成标注加背景呢，就是标注文字摭挡
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTE4OTU4fDA1MGQxYjNlfDE2NDk2MDU5MzB8NzMyNjY2NnwxODQzNTY%3D&noupdate=yes
本帖最后由 KO你 于 2022-4-13 18:13 编辑
在网上找的，翻译了对话框为中文，有需要的道友可以下载
页:
[1]