请问这个线型如何用Entmake 建立？

尘缘一生

*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---
A,.25,-.1,[BOX,ltypeshp.shx,x=-.1,s=.1],-.1,1


18、创建新线型
  (entmake (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord") (cons 2 "BERDIG 5-545") '  (3 . "Border ____   ____   ____   ____   ____") '(70 . 0) '(73 . 2) '(40 . 15.0) '(49 . 10.0) '(74 . 0) '
   (49 . -5.0) '(74 . 0)    )  )

xiaolong1487

2. (if (not (tblsearch "Ltype" "FENCELINE2"))
   
3. (progn
   
4.   (entmake (list
   
5.     '(0 . "LTYPE")
   
6.     '(100 . "AcDbSymbolTableRecord")
   
7.     '(100 . "AcDbLinetypeTableRecord")
   
8.     '(2 . "FENCELINE2")
   
9.     '(70 . 0)
   
10.     '(3 . "Fenceline square ----[]-----[]----[]-----[]----[]---")
    
11.     '(72 . 65)
    
12.     '(73 . 4)
    
13.     '(40 . 36.83)
    
14.     '(49 . 6.35)
    
15.     '(74 . 0)
    
16.     '(49 . -2.54)
    
17.     '(74 . 4)
    
18.     '(75 . 132)
    
19.     '(46 . 2.54)
    
20.     '(50 . 0.0)
    
21.     '(44 . -2.54)
    
22.     '(45 . 0.0)
    
23.     '(49 . -2.54)
    
24.     '(74 . 0)
    
25.     '(49 . 25.4)
    
26.     '(74 . 0)
    
27.       )
    
28.     )
    
29.   )
    
30. )

(if (not (tblsearch "Ltype" "FENCELINE2"))<br /> (progn<br />   (entmake (list<br />     '(0 . "LTYPE")<br />     '(100 . "AcDbSymbolTableRecord")<br />     '(100 . "AcDbLinetypeTableRecord")<br />     '(2 . "FENCELINE2")<br />     '(70 . 0)<br />     '(3 . "Fenceline square ----[]-----[]----[]-----[]----[]---")<br />     '(72 . 65)<br />     '(73 . 4)<br />     '(40 . 36.83)<br />     '(49 . 6.35)<br />     '(74 . 0)<br />     '(49 . -2.54)<br />     '(74 . 4)<br />     '(75 . 132)<br />     '(46 . 2.54)<br />     '(50 . 0.0)<br />     '(44 . -2.54)<br />     '(45 . 0.0)<br />     '(49 . -2.54)<br />     '(74 . 0)<br />     '(49 . 25.4)<br />     '(74 . 0)<br />       )<br />     )<br />   )<br /> )

edata

复杂线型是不能够用entmake建立的，只能通过外部加载的方式。

尘缘一生

edata 发表于 2015-12-20 10:53
复杂线型是不能够用entmake建立的，只能通过外部加载的方式。

谢谢，外部加载可以给个事例吗？

xiaolong1487

尘缘一生 发表于 2015-12-20 13:06
谢谢，外部加载可以给个事例吗？

(if (not (tblsearch "Ltype" "FENCELINE2"))
  (command "linetype" "l" "FENCELINE2" ""  "")
)