请教 entmake 创建 qleader 问题

669423907

请教一下，如何用 entmak 创建 qleader，以下哪里错了？
(defun c:13()
(if (setq o(getpoint (strcat"\n请指定引线的箭头位置"))) (progn
(setq b(getpoint o(strcat"\n请指定文字的位置")))
(setq wz "1")
(entmake(list '(0 . "qleader")'(100 . "AcDbEntity")'(100 . "AcDbLeader")'(8 . "4标注")(cons 1 wz)(cons 10 o)(cons 10 b) ) )
) )
)

LPACMQ

2. ;;函        数
   
3. ;;功        能：关联引线+注释
   
4. ;;方        法：(Cq-Ldr&txt 引线图元 文本图元)
   
5. (defun Cq-Ldr&txt (LDR TXT / acaddocument  acadobject annotationobject leaderobj leadertype lst mspace num obj pnts sc x)
   
6.   (VL-LOAD-COM)  
   
7. 　(setq AcadObject(vlax-get-acad-object)  
   
8.         　　AcadDocument(vla-get-ActiveDocument Acadobject)  
   
9.         　　mSpace(vla-get-ModelSpace Acaddocument)  
   
10.         )
    
11.         (setq lst(apply 'append(mapcar 'cdr(vl-remove-if-not '(lambda(x)(= 10(car x)))(entget ldr)))))
    
12.         (setq num (1-(length lst)))
    
13.         ;;; 引线数据  
    
14.         (setq pnts(vlax-make-safearray vlax-vbDouble (cons 0 num)))  
    
15.         (vlax-safearray-fill pnts lst)  
    
16.         ;;;引线类型：acLineNoArrow、acLineWithArrow、acSplineNoArrow 或 acSplineWithArrow
    
17.         (setq leaderType acLineWithArrow)
    
18.   ;;附着对象
    
19.         (setq annotationObject (vlax-ename->vla-object TXT))
    
20.         ;;关联，返回引线对象
    
21.         (setq leaderOBJ(vla-AddLeader mSpace pnts annotationObject leaderType))
    
22.         ;;修改引线对象比例
    
23.         (setq sc(vla-get-ScaleFactor(vlax-ename->vla-object ldr)))
    
24.         (vla-put-ScaleFactor leaderOBJ sc)
    
25.         (entdel ldr)
    
26. )
    
27. 
    
28. (defun c:tt()
    
29.         (setq p1(getpoint "指定第一点:"))
    
30.         (setq ep(getpoint p1 "指定下一点:"))
    
31.         (setq Ldr
    
32.                 (entmakeX
    
33.                         (list '(0 . "LEADER")
    
34.                                                 '(100 . "AcDbEntity")
    
35.                                                 '(100 . "AcDbLeader")
    
36.                                                 '(40 . 0.9875)
    
37.                                                 (cons 10 p1)
    
38.                                                 (cons 10 ep)
    
39.                                                 '(-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 40) (1040 . 1) (1070 . 340) (1005 . "139") (1002 . "}")))
    
40.                         )
    
41.                 )
    
42.         )
    
43.        
    
44.        
    
45.         ;;Mtext
    
46.         (setq Mtext
    
47.                 (entmakeX
    
48.                         (list '(0 . "MTEXT")
    
49.                                                 '(100 . "AcDbEntity")
    
50.                                                 '(100 . "AcDbMText")
    
51.                                                 '(71 . 7)
    
52.                                                 '(72 . 1)
    
53.                                                 (cons 1 "111")
    
54.                                                 (cons 10 ep)
    
55.                         )
    
56.                 )
    
57.         )
    
58.         (Cq-Ldr&txt ldr mtext)
    
59.         (princ)
    
60. )
    

;;函        数<br /> ;;功        能：关联引线+注释<br /> ;;方        法：(Cq-Ldr&txt 引线图元 文本图元)<br /> (defun Cq-Ldr&txt (LDR TXT / acaddocument  acadobject annotationobject leaderobj leadertype lst mspace num obj pnts sc x)<br />   (VL-LOAD-COM)  <br /> 　(setq AcadObject(vlax-get-acad-object)  <br />         　　AcadDocument(vla-get-ActiveDocument Acadobject)  <br />         　　mSpace(vla-get-ModelSpace Acaddocument)  <br />         ) <br />         (setq lst(apply 'append(mapcar 'cdr(vl-remove-if-not '(lambda(x)(= 10(car x)))(entget ldr)))))<br />         (setq num (1-(length lst)))<br />         ;;; 引线数据  <br />         (setq pnts(vlax-make-safearray vlax-vbDouble (cons 0 num)))  <br />         (vlax-safearray-fill pnts lst)  <br />         ;;;引线类型：acLineNoArrow、acLineWithArrow、acSplineNoArrow 或 acSplineWithArrow<br />         (setq leaderType acLineWithArrow)<br />   ;;附着对象<br />         (setq annotationObject (vlax-ename->vla-object TXT))<br />         ;;关联，返回引线对象<br />         (setq leaderOBJ(vla-AddLeader mSpace pnts annotationObject leaderType))<br />         ;;修改引线对象比例<br />         (setq sc(vla-get-ScaleFactor(vlax-ename->vla-object ldr)))<br />         (vla-put-ScaleFactor leaderOBJ sc)<br />         (entdel ldr)<br /> )<br /> <br /> (defun c:tt()<br />         (setq p1(getpoint "指定第一点:"))<br />         (setq ep(getpoint p1 "指定下一点:"))<br />         (setq Ldr<br />                 (entmakeX<br />                         (list '(0 . "LEADER") <br />                                                 '(100 . "AcDbEntity") <br />                                                 '(100 . "AcDbLeader") <br />                                                 '(40 . 0.9875)<br />                                                 (cons 10 p1)<br />                                                 (cons 10 ep)<br />                                                 '(-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 40) (1040 . 1) (1070 . 340) (1005 . "139") (1002 . "}")))<br />                         )<br />                 )<br />         )<br />         <br />         <br />         ;;Mtext<br />         (setq Mtext<br />                 (entmakeX<br />                         (list '(0 . "MTEXT") <br />                                                 '(100 . "AcDbEntity") <br />                                                 '(100 . "AcDbMText")<br />                                                 '(71 . 7)<br />                                                 '(72 . 1)<br />                                                 (cons 1 "111") <br />                                                 (cons 10 ep)<br />                         )<br />                 )<br />         )<br />         (Cq-Ldr&txt ldr mtext)<br />         (princ)<br /> )<br />

w245272914

道友，我過來幫你頂貼子，希望你能找到你的答案。

LPACMQ

(defun c:13()
        (if (setq o(getpoint (strcat"\n请指定引线的箭头位置")))
                (progn
                        (setq b(getpoint o(strcat"\n请指定文字的位置")))
                        (setq wz "1")
                  (command "LEADER" O B "" WZ "")
                )
        )
)

669423907

LPACMQ 发表于 2018-7-19 18:40
(defun c:13()
        (if (setq o(getpoint (strcat"\n请指定引线的箭头位置")))
                (progn

首先非常感谢你的回复，command我知道，只是想用 entmake 创建

669423907

是不是一个 entmake 无法两种不同类型的图元（引线和文字）？
entmake，，，引线
entmake，，，文字
？？？

namezg

entmake可以的，不过麻烦。

669423907

namezg 发表于 2018-7-20 01:14
entmake可以的，不过麻烦。

可否来个 史无前例

669423907

LPACMQ 发表于 2018-7-20 09:20

可以用，非常感谢！我想把LEADER改为qleader，要改哪个地方呢？

669423907

LPACMQ 发表于 2018-7-20 09:20

还有一个问题：如何让引线箭头大小随当前标注样式的箭头大小