用lisp插入字段（Diesel）

yufeng37

我想插入当前图纸编号

之前我都是用鼠标点菜单栏插入。现在需要用lisp插入，可是用了
(command "MTEXT" pt1 "H" 3 "W" 0 “%<\AcSm Sheet.Title>%” "")插入，报错，失败！
用command的text命令也是失败！虽然布局上显示的是####，但不是真的字段，字段内容不会跟着图纸集变动。
不用lisp，直接在命令行输入dt或者mtext命令，粘贴%<\AcSm Sheet.Number>%，出来的是正常的字段
请问用visual lisp是不是可以插入字段(diesel)？
请教大师给贴个正确的代码~~跪谢~~

csharp

注意符号 \\ => \  \" => "

2. 
   
3. (defun c:tt (/ p)
   
4.   (if (setq p (getpoint "\npoint: "))
   
5.     (command ".text" p "3" "0" "%<\\AcSm Sheet.Title \\f "%tc1">%")
   
6.   )
   
7.   (princ)
   
8. )

<br /> (defun c:tt (/ p)<br />   (if (setq p (getpoint "\npoint: "))<br />     (command ".text" p "3" "0" "%<\\AcSm Sheet.Title \\f "%tc1">%")<br />   )<br />   (princ)<br /> )

yufeng37

csharp 发表于 2017-3-1 14:35

测试了一下，完全OK！！！非常感谢大神！！！

marting

yufeng37 发表于 2017-3-1 17:08

用VLISP生成MTEXT的FEILD，试试下面

1. (vla-addmtext
   
2.   (vla-get-modelspace
   
3.     (vla-get-activedocument (vlax-get-acad-object))
   
4.   )
   
5.   (vlax-3d-point
   
6.     (trans (getpoint "\nInsert mText Insertion Point :")
   
7.            1
   
8.            0
   
9.     )
   
10.   )
    
11.   0
    
12.   "%<\\AcSm Sheet.Title \\f \"%tc1\">%"
    
13. )
    

(vla-addmtext<br />   (vla-get-modelspace<br />     (vla-get-activedocument (vlax-get-acad-object))<br />   )<br />   (vlax-3d-point<br />     (trans (getpoint "\nInsert mText Insertion Point :")<br />            1<br />            0<br />     )<br />   )<br />   0<br />   "%<\\AcSm Sheet.Title \\f \"%tc1\">%"<br /> )<br />

yufeng37

marting 发表于 2017-3-2 10:43

6666，非常棒！vlisp看起来就是高大上

wewehua

急求：
本人做了一个活动块，然后在lisp中插入进来后，进行文字命名，希望将这个活动块的长度作为文字命名的一部分。
但在lisp程序中无法知道ObjId后面这部分数字串的名称，导致不成功，求大神指点：
代码如下：
(defun c:t5 (/ p)
(setq p0 (getpoint "点选起点"))
(command "insert" "pxbd1" p0 "1" "1" 90 "")
(setq txt1 (STRCAT
"%<\\AcObjProp Object(%<\\_ObjId 1705933040>%).Parameter(1).UpdatedDistance \\f \"%lu2%pr0\">%"
))
(COMMAND "TEXT" "j" "m" p0 "40" 90 txt1)
(princ)
)


解释：pxbd1是活动块名，其中：ObjId 1705933040，每次插入同一活动块，这串字符都会有变化，这串字符既不是元素，也不是名称，请各位大神指点如何求得所插入块的ObjId！
感谢！

SHUNDocker

6666，非常棒！字段非常实用

CAD新军

这个学习了。