标注文字处理

KO你 · 发表于 2022-4-10 23:53:31

请教个问题，请大佬帮忙修改
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)
)

以上程序是标注文字填充颜色，怎么改成标注加背景呢，就是标注文字摭挡

KO你 · 发表于 2022-4-12 15:28:22

本帖最后由 KO你于 2022-4-13 18:13 编辑

在网上找的，翻译了对话框为中文，有需要的道友可以下载

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

[讨论] 标注文字处理

相关帖子

本帖子中包含更多资源