求助大神，修改天正引出标注各点的坐标

leemyungtaek

天正T20软件里， 符号——引出标注，这个标注用得很方便，就是不知道怎么修改它夹点的坐标。

我想批量生成，现在采用的是复制，然后移动，可以把标注移动过来，但是夹点的位置不理想，会和其他图元重叠。


请各位大佬高手们帮忙看看，根本找不到属性在哪儿。

aihuyujian

复制已经生成的引出标注是修改不了的，没有VLISP方法，用entmode又会致命错误
应该能利用(command "TLEADER" point1 point2 point3)来生成一个新的引出标注，然后对这个新修改的引出标注用vlisp修改内容就行

13816600495

提供一点思路：先炸开，获取到各个点参数，然后删除，之后重新按自己的想法生成一个新的标注。

leemyungtaek

aihuyujian 发表于 2025-2-22 22:34
复制已经生成的引出标注是修改不了的，没有VLISP方法，用entmode又会致命错误
应该能利用(command "TLEADE ...

谢谢大神指点，确实是可以的，程序如下：

        (defun InsertAndModifyTELLeader (txt pt1 pt2 pt3 layer bi / os ent obj)
                ;;插入天正引出标注
                (setq os (getvar "osmode"))
                (setvar "osmode" 0)
                (command "ycbz" pt1 pt2  pt3 "")
                ; 获取刚创建的对象
                (setq ent (entlast))
                (setq obj (vlax-ename->vla-object ent))               
                (vla-put-Layer obj layer)
                (vlax-put-property obj 'Scale bi)
                (vlax-put-property obj 'UpText txt)
                (vlax-put-property obj 'DownText "")
                (vlax-put-property obj 'FontStyle "_TEL_DIM")       
                (setvar "osmode" os)
        )