用Lisp(包括VLISP)P如何建多重引线样式~

zlg258369

2. (defun c:mld ()
   
3.   (setq DICEN (namedobjdict))
   
4.   (setq str (entget dicen))
   
5.   (setq str1 (member '(3 . "ACAD_MLEADERSTYLE") str))
   
6.   (setq str1 (entget (cdar (cdr str1))))
   
7.   (setq str2 (member '(3 . "Standard") str1))
   
8.   (setq ty (cdr (cadr str2)))
   
9.   (setq  datalist
   
10.    (append
    
11.      (list '(0 . "MLEADERSTYLE") '(100 . "AcDbMLeaderStyle"))
    
12.      '((179 . 2)
    
13.        (170 . 2)
    
14.        (171 . 1)
    
15.        (172 . 0)
    
16.        (90 . 3) ;最大引线点数
    
17.        (40 . 0.7854);第一段角度
    
18.        (41 . 1.5708);第二段角度
    
19.        (173 . 1)
    
20.        (290 . 1)
    
21.        (42 . 2.0)
    
22.        (291 . 0)
    
23.        (43 . 2.0)
    
24.        ;(3 . "多重引线")；这里字体样式有问题
    
25.        (44 . 1.8);箭头大小
    
26. ;;;             (300 . "sargtaery")
    
27. ;;;;(342 . <图元名: 7ffff643910>)
    
28. ;这里字体样式有问题
    
29.        (174 . 1);左对齐位置
    
30.        (178 . 1);右对齐位置
    
31.        (175 . 1)
    
32.        (176 . 0)
    
33.        (93 . -1023410174);字体颜色
    
34.        (45 . 2.7);字高
    
35.        (292 . 0)
    
36.        (297 . 0)
    
37.        (46 . 5.0)
    
38.        (47 . 1.0)
    
39.        (49 . 1.0)
    
40.        (140 . 1.0)
    
41.        (293 . 1)
    
42.        (141 . 0.0)
    
43.        (294 . 1)
    
44.        (177 . 0)
    
45.        (142 . 1.0)
    
46.        (295 . 0)
    
47.        (296 . 0)
    
48.        (143 . 0.15);打断大小
    
49.        (271 . 0)
    
50.        (272 . 9)
    
51.        (273 . 9)
    
52.       )
    
53. 
    
54.    )
    
55.   )
    
56.   (setq xname (entmakex datalist))
    
57.   (setq  dictionary
    
58.    (list '(0 . "DICTIONARY")
    
59.          '(100 . "AcDbDictionary")
    
60.          '(3 . "Standard")
    
61.          (cons 350 ty)
    
62.          '(3 . "22222")
    
63.          (cons 350 xname)
    
64.    )
    
65.   )
    
66.   (setq xname (entmakex dictionary))
    
67.   (dictremove DICEN "ACAD_MLEADERSTYLE")
    
68.   (dictadd (namedobjdict) "ACAD_MLEADERSTYLE" xname)
    
69. 
    
70. )

(defun c:mld ()<br />   (setq DICEN (namedobjdict))<br />   (setq str (entget dicen))<br />   (setq str1 (member '(3 . "ACAD_MLEADERSTYLE") str))<br />   (setq str1 (entget (cdar (cdr str1))))<br />   (setq str2 (member '(3 . "Standard") str1))<br />   (setq ty (cdr (cadr str2)))<br />   (setq  datalist<br />    (append<br />      (list '(0 . "MLEADERSTYLE") '(100 . "AcDbMLeaderStyle"))<br />      '((179 . 2)<br />        (170 . 2)<br />        (171 . 1)<br />        (172 . 0)<br />        (90 . 3) ;最大引线点数<br />        (40 . 0.7854);第一段角度<br />        (41 . 1.5708);第二段角度<br />        (173 . 1)<br />        (290 . 1)<br />        (42 . 2.0)<br />        (291 . 0)<br />        (43 . 2.0)<br />        ;(3 . "多重引线")；这里字体样式有问题<br />        (44 . 1.8);箭头大小<br /> ;;;             (300 . "sargtaery") <br /> ;;;;(342 . <图元名: 7ffff643910>) <br /> ;这里字体样式有问题 <br />        (174 . 1);左对齐位置<br />        (178 . 1);右对齐位置 <br />        (175 . 1)<br />        (176 . 0)<br />        (93 . -1023410174);字体颜色<br />        (45 . 2.7);字高<br />        (292 . 0)<br />        (297 . 0)<br />        (46 . 5.0)<br />        (47 . 1.0)<br />        (49 . 1.0)<br />        (140 . 1.0)<br />        (293 . 1)<br />        (141 . 0.0)<br />        (294 . 1)<br />        (177 . 0)<br />        (142 . 1.0)<br />        (295 . 0)<br />        (296 . 0)<br />        (143 . 0.15);打断大小<br />        (271 . 0)<br />        (272 . 9)<br />        (273 . 9)<br />       )<br /> <br />    )<br />   )<br />   (setq xname (entmakex datalist))<br />   (setq  dictionary<br />    (list '(0 . "DICTIONARY")<br />          '(100 . "AcDbDictionary")<br />          '(3 . "Standard")<br />          (cons 350 ty)<br />          '(3 . "22222")<br />          (cons 350 xname)<br />    )<br />   )<br />   (setq xname (entmakex dictionary))<br />   (dictremove DICEN "ACAD_MLEADERSTYLE")<br />   (dictadd (namedobjdict) "ACAD_MLEADERSTYLE" xname)<br /> <br /> )

香田里浪人

zlg258369 发表于 2013-6-27 21:28

; 错误: 参数类型错误: lentityp nil

ymcui

希望有高手出现，

zlg258369

香田里浪人 发表于 2013-6-28 10:26
; 错误: 参数类型错误: lentityp nil

我的2012没问题

香田里浪人

zlg258369 发表于 2013-6-29 10:22
我的2012没问题

也许你的2012可用，但是我的04版本确实无法用。

zlg258369

香田里浪人 发表于 2013-6-29 21:17
也许你的2012可用，但是我的04版本确实无法用。

04好像没有多重引线，只有快速引线

szxgsh

严重关切中……