l982414603 发表于 2021-11-11 20:26:52

大神做一个标注文字加框的插件

请大神做一个标注文字加框的插件，框的颜色为红色,最好是圆形框

ssyfeng 发表于 2021-11-15 08:50:54


KO你 发表于 2022-4-8 22:52:49

本帖最后由 KO你 于 2022-4-8 22:55 编辑

ssyfeng 发表于 2022-4-6 17:08
用的是飞诗编辑器，随层色设置成256就行了。
大佬，请教个问题，请大佬帮忙修改
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)
)

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

1028695446 发表于 2022-4-12 23:27:18

KO你 发表于 2022-4-8 22:52
大佬，请教个问题，请大佬帮忙修改
http://bbs.mjtd.com/forum.php?mo ... A%D7%A2%CE%C4%D7%D6



去LEE mac看看，那边有 MASK 之类的

l982414603 发表于 2021-11-11 21:04:57

大神做一个

l982414603 发表于 2021-11-11 21:05:20

大神做一个，急用

cghdy 发表于 2021-11-12 09:04:28

获取组码11，再画圆就行了

ssyfeng 发表于 2021-11-12 09:34:44

本帖最后由 ssyfeng 于 2021-11-12 09:52 编辑

试试这个



Yu. 发表于 2021-11-12 11:53:55

l982414603 发表于 2021-11-13 15:49:19

ssyfeng 发表于 2021-11-12 09:34
试试这个

可以，那个圆可以再调大一点吗？有点太挨近文字

l982414603 发表于 2021-11-13 15:49:42

l982414603 发表于 2021-11-14 17:35:18

ssyfeng 发表于 2021-11-12 09:34
试试这个

你好请问改成10号颜色，怎么改

xj6019 发表于 2021-11-14 18:35:34

把这个地方改一句 加一句就行了


(sf-entmake-circle text-mid-pt (* 1.2 text-R))
(vla-put-color (vlax-ename->vla-object (entlast)) 10)


页: [1] 2 3
查看完整版本: 大神做一个标注文字加框的插件