创建多重引线

zlg258369

2. (defun c:gf ()
   
3.   (if (= (setq tst (tblobjname "style" "多重引线")) nil)
   
4.     (progn
   
5.       (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "多重引线"))
   
6.       (vla-put-width obj 0.75)
   
7.       (vla-setFont obj "宋体" :vlax-false :vlax-false 1 0)
   
8.       (setq tst (tblobjname "style" "多重引线"))
   
9.     )
   
10.   )
    
11.   (setq DICEN (namedobjdict))
    
12.   (setq str (entget dicen))
    
13.   (setq str1 (member '(3 . "ACAD_MLEADERSTYLE") str))
    
14.   (setq str1 (entget (cdar (cdr str1))))
    
15.   (setq str2 (member '(3 . "Standard") str1))
    
16.   (setq ty (cdr (cadr str2)))
    
17.   (setq  datalist
    
18.    (append
    
19.      (list '(0 . "MLEADERSTYLE") '(100 . "AcDbMLeaderStyle") '(3 . "多重引线") (cons 342 tst))
    
20.      '((179 . 2)
    
21.        (170 . 2)
    
22.        (171 . 1)
    
23.        (172 . 0)
    
24.        (90 . 3) ;最大引线点数
    
25.        (40 . 0.7854);第一段角度
    
26.        (41 . 1.5708);第二段角度
    
27.        (173 . 1)
    
28.        (290 . 1)
    
29.        (42 . 2.0)
    
30.        (291 . 0)
    
31.        (43 . 2.0)
    
32.        ;(3 . "多重引线")
    
33.              ;(341 . "")
    
34.        (44 . 1.8);箭头大小
    
35. ;;;             (300 . "sargtaery")
    
36. ;;;;(342 . <图元名: 7ffff643910>)
    
37.        (174 . 1)
    
38.        (178 . 1)
    
39.        (175 . 1)
    
40.        (176 . 0)
    
41.        (93 . -1023410174);字体颜色
    
42.        (45 . 2.7);字高
    
43.        (292 . 0)
    
44.        (297 . 0)
    
45.        (46 . 5.0)
    
46.        (47 . 1.0)
    
47.        (49 . 1.0)
    
48.        (140 . 1.0)
    
49.        (293 . 1)
    
50.        (141 . 0.0)
    
51.        (294 . 1)
    
52.        (177 . 0)
    
53.        (142 . 1.0)
    
54.        (295 . 0)
    
55.        (296 . 0)
    
56.        (143 . 0.15);打断大小
    
57.        (271 . 0)
    
58.        (272 . 9)
    
59.        (273 . 9)
    
60.       )
    
61. 
    
62.    )
    
63.   )
    
64.   (setq xname (entmakex datalist))
    
65.   (setq  dictionary
    
66.    (list '(0 . "DICTIONARY")
    
67.          '(100 . "AcDbDictionary")
    
68.          '(3 . "Standard")
    
69.          (cons 350 ty)
    
70.          '(3 . "22222")
    
71.          (cons 350 xname)
    
72.    )
    
73.   )
    
74.   (setq xname (entmakex dictionary))
    
75.   (dictremove DICEN "ACAD_MLEADERSTYLE")
    
76.   (dictadd (namedobjdict) "ACAD_MLEADERSTYLE" xname)
    
77. 
    
78. )

(defun c:gf ()<br />   (if (= (setq tst (tblobjname "style" "多重引线")) nil)<br />     (progn<br />       (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "多重引线"))<br />       (vla-put-width obj 0.75)<br />       (vla-setFont obj "宋体" :vlax-false :vlax-false 1 0)<br />       (setq tst (tblobjname "style" "多重引线"))<br />     )<br />   )<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") '(3 . "多重引线") (cons 342 tst))<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 />              ;(341 . "") <br />        (44 . 1.8);箭头大小<br /> ;;;             (300 . "sargtaery") <br /> ;;;;(342 . <图元名: 7ffff643910>) <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 /> )

dingtiedt

将近九百人查看，却没人回贴，我来回一个吧。使用多重引线的人好象不是太多啊，楼主是不是也是搞装饰设计的？

liuhe

66666666666666666666666

zhangcan0515

谢谢楼主分享entmake模式的创建多重引线