怎么实现标注后的内容是自己想要的呢？

bingshuier

图片的是我炸开之后，放上去的

行空雕

可以试试直接获取标注对象的属性值进行修改

nzl1116

(vla-put-TextOverride DOObj Text)

bingshuier

行空雕 发表于 2014-7-15 23:21
可以试试直接获取标注对象的属性值进行修改

好像不得行哦

行空雕

我试了以下，确实不行，但可以直接写，效果如图，代码如下：
---------------------------

1. (defun c:test()
   
2.   ;实例写个标注
   
3.   (setq p1 (getpoint "\n"))
   
4.   (setq p2(getpoint p1 "\n"))
   
5.   (setq p3(getpoint p2 "\n"))
   
6.   (command "dimlinear" p1 p2 "t" "%%c8@200(2)" p3)
   
7.   (print)
   
8.   )

(defun c:test()<br />   ;实例写个标注<br />   (setq p1 (getpoint "\n"))<br />   (setq p2(getpoint p1 "\n"))<br />   (setq p3(getpoint p2 "\n"))<br />   (command "dimlinear" p1 p2 "t" "%%c8@200(2)" p3)<br />   (print)<br />   )

fl202

(command "dimlinear" PAUSE  PAUSE "t" "%%c8@200(2)" )

还不如换个思路：
对已有标注进行文字修改。

行空雕

fl202 发表于 2014-7-16 09:22
(command "dimlinear" PAUSE  PAUSE "t" "%%c8@200(2)" )

还不如换个思路：

赞！
能帮我看看，如何解决 VBA窗口与CAD干涉问题，移步如下
http://bbs.mjtd.com/forum.php?mo ... &fromuid=395519
谢谢啦~