如何创建自定义线型并自动加载

cadm0211

*虚线,虚线 __ __ __ __ __ __ __ __ __
A,4,-2
*点画线,点画线 ___ . ___ . ___ . ___ . ___
A,15,-1.5,0.5,-1.5
*双点画线,双点画线 ___ .. ___ .. ___ .. ___
A,15,-1.7,0.5,-1.7,0.5,-1.7


这是我目前一直在使用的线型，我希望打开图纸就能自动加载以上线型文件，网上找了一段类似的代码，但自己编程能力有限，试了好几次还是搞不好，现在把源码发上来请高手改一下。

edata

将lisp文件设为启动加载，会自动生成并加载线型。

1. ;;;
   
2. ;;;*虚线,虚线 __ __ __ __ __ __ __ __ __
   
3. ;;;A,4,-2
   
4. ;;;*点画线,点画线 ___ . ___ . ___ . ___ . ___
   
5. ;;;A,15,-1.5,0.5,-1.5
   
6. ;;;*双点画线,双点画线 ___ .. ___ .. ___ .. ___
   
7. ;;;A,15,-1.7,0.5,-1.7,0.5,-1.7
   
8. (entmake
   
9.   (list        '(0 . "LTYPE")
   
10.         '(100 . "AcDbSymbolTableRecord")
    
11.         '(100 . "AcDbLinetypeTableRecord")
    
12.         (cons 2 "双点画线")
    
13.         '(3 . "双点画线 ___ .. ___ .. ___ .. ___")
    
14.         '(70 . 0)
    
15.         '(73 . 6)
    
16.         '(40 . 21.1)
    
17.         '(49 . 15)
    
18.         '(74 . 0)
    
19.         '(49 . -1.7)
    
20.         '(74 . 0)
    
21.         '(49 . 0.5)
    
22.         '(74 . 0)
    
23.         '(49 . -1.7)
    
24.         '(74 . 0)
    
25.         '(49 . 0.5)
    
26.         '(74 . 0)
    
27.         '(49 . -1.7)
    
28.         '(74 . 0)
    
29.   )
    
30. )
    
31. (entmake
    
32.   (list        '(0 . "LTYPE")
    
33.         '(100 . "AcDbSymbolTableRecord")
    
34.         '(100 . "AcDbLinetypeTableRecord")
    
35.         (cons 2 "点画线")
    
36.         '(3 . "点画线 ___ . ___ . ___ . ___ . ___")
    
37.         '(70 . 0)
    
38.         '(73 . 4)
    
39.         '(40 . 18.5)
    
40.         '(49 . 15)
    
41.         '(74 . 0)
    
42.         '(49 . -1.5)
    
43.         '(74 . 0)
    
44.         '(49 . 0.5)
    
45.         '(74 . 0)
    
46.         '(49 . -1.5)
    
47.         '(74 . 0)
    
48.   )
    
49. )
    
50. 
    
51. (entmake
    
52.   (list        '(0 . "LTYPE")
    
53.         '(100 . "AcDbSymbolTableRecord")
    
54.         '(100 . "AcDbLinetypeTableRecord")
    
55.         (cons 2 "虚线")
    
56.         '(3 . "虚线 __ __ __ __ __ __ __ __ __")
    
57.         '(70 . 0)
    
58.         '(73 . 2)
    
59.         '(40 . 6.0)
    
60.         '(49 . 4.0)
    
61.         '(74 . 0)
    
62.         '(49 . -2.0)
    
63.         '(74 . 0)
    
64.   )
    
65. )

;;;<br /> ;;;*虚线,虚线 __ __ __ __ __ __ __ __ __<br /> ;;;A,4,-2<br /> ;;;*点画线,点画线 ___ . ___ . ___ . ___ . ___<br /> ;;;A,15,-1.5,0.5,-1.5<br /> ;;;*双点画线,双点画线 ___ .. ___ .. ___ .. ___<br /> ;;;A,15,-1.7,0.5,-1.7,0.5,-1.7<br /> (entmake<br />   (list        '(0 . "LTYPE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLinetypeTableRecord")<br />         (cons 2 "双点画线")<br />         '(3 . "双点画线 ___ .. ___ .. ___ .. ___")<br />         '(70 . 0)<br />         '(73 . 6)<br />         '(40 . 21.1)<br />         '(49 . 15)<br />         '(74 . 0)<br />         '(49 . -1.7)<br />         '(74 . 0)<br />         '(49 . 0.5)<br />         '(74 . 0)<br />         '(49 . -1.7)<br />         '(74 . 0)<br />         '(49 . 0.5)<br />         '(74 . 0)<br />         '(49 . -1.7)<br />         '(74 . 0)<br />   )<br /> )<br /> (entmake<br />   (list        '(0 . "LTYPE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLinetypeTableRecord")<br />         (cons 2 "点画线")<br />         '(3 . "点画线 ___ . ___ . ___ . ___ . ___")<br />         '(70 . 0)<br />         '(73 . 4)<br />         '(40 . 18.5)<br />         '(49 . 15)<br />         '(74 . 0)<br />         '(49 . -1.5)<br />         '(74 . 0)<br />         '(49 . 0.5)<br />         '(74 . 0)<br />         '(49 . -1.5)<br />         '(74 . 0)<br />   )<br /> )<br /> <br /> (entmake<br />   (list        '(0 . "LTYPE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLinetypeTableRecord")<br />         (cons 2 "虚线")<br />         '(3 . "虚线 __ __ __ __ __ __ __ __ __")<br />         '(70 . 0)<br />         '(73 . 2)<br />         '(40 . 6.0)<br />         '(49 . 4.0)<br />         '(74 . 0)<br />         '(49 . -2.0)<br />         '(74 . 0)<br />   )<br /> )

yangchao2005090

edata 发表于 2014-5-18 23:38
将lisp文件设为启动加载，会自动生成并加载线型。

您好，请问一下，
*GH-Y,SZGH_Y ----Y----Y----
A,0.8,-0.2,0.8,-0.2,0.8,-0.2,["Y",STANDARD,s=0.25,r=0,x=-0.125,y=-0.125],-0.2
可以帮忙写一个这种线型的吗，先谢谢了

edsion24

下来 试试                        

andyhua

把这段代码复制到ACAD。LIN，ACADISO。LIN中，不行吗？

cadm0211

andyhua 发表于 2014-5-15 14:10
把这段代码复制到ACAD。LIN，ACADISO。LIN中，不行吗？

这样也可以用，但通用性不高

林霄云

http://bbs.mjtd.com/thread-110015-1-1.html

cadm0211

林霄云 发表于 2014-5-18 01:13
http://bbs.mjtd.com/thread-110015-1-1.html

这个我试过了，用自己的线型去改了一下，但不成功

前生

这个好。

路宁宁

好帖子。收下了。

wfch2000

收到，这个我下载下来看看，谢谢

wfch2000

好帖子，下载下来，收下了