社区 › AutoLISP/Visual LISP 编程技术 › 如何创建自定义线型并自动加载

cadm0211 发表于 2014-5-15 09:11:13

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

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


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

edata 发表于 2014-5-18 23:38:30

将lisp文件设为启动加载，会自动生成并加载线型。
;;;
;;;*虚线,虚线 __ __ __ __ __ __ __ __ __
;;;A,4,-2
;;;*点画线,点画线 ___ . ___ . ___ . ___ . ___
;;;A,15,-1.5,0.5,-1.5
;;;*双点画线,双点画线 ___ .. ___ .. ___ .. ___
;;;A,15,-1.7,0.5,-1.7,0.5,-1.7
(entmake
(list        '(0 . "LTYPE")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLinetypeTableRecord")
        (cons 2 "双点画线")
        '(3 . "双点画线 ___ .. ___ .. ___ .. ___")
        '(70 . 0)
        '(73 . 6)
        '(40 . 21.1)
        '(49 . 15)
        '(74 . 0)
        '(49 . -1.7)
        '(74 . 0)
        '(49 . 0.5)
        '(74 . 0)
        '(49 . -1.7)
        '(74 . 0)
        '(49 . 0.5)
        '(74 . 0)
        '(49 . -1.7)
        '(74 . 0)
)
)
(entmake
(list        '(0 . "LTYPE")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLinetypeTableRecord")
        (cons 2 "点画线")
        '(3 . "点画线 ___ . ___ . ___ . ___ . ___")
        '(70 . 0)
        '(73 . 4)
        '(40 . 18.5)
        '(49 . 15)
        '(74 . 0)
        '(49 . -1.5)
        '(74 . 0)
        '(49 . 0.5)
        '(74 . 0)
        '(49 . -1.5)
        '(74 . 0)
)
)

(entmake
(list        '(0 . "LTYPE")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLinetypeTableRecord")
        (cons 2 "虚线")
        '(3 . "虚线 __ __ __ __ __ __ __ __ __")
        '(70 . 0)
        '(73 . 2)
        '(40 . 6.0)
        '(49 . 4.0)
        '(74 . 0)
        '(49 . -2.0)
        '(74 . 0)
)
)

yangchao2005090 发表于 2021-2-28 08:25:01

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 发表于 2019-12-1 16:01:08

下来 试试                        

andyhua 发表于 2014-5-15 14:10:05

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

cadm0211 发表于 2014-5-15 21:48:43

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

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

林霄云 发表于 2014-5-18 01:13:21

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

cadm0211 发表于 2014-5-18 21:33:15

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

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

前生 发表于 2016-3-3 23:57:39

这个好。

路宁宁 发表于 2017-12-22 19:47:10

好帖子。收下了。

wfch2000 发表于 2018-3-1 18:55:18

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

wfch2000 发表于 2018-3-1 18:55:49

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

查看完整版本: 如何创建自定义线型并自动加载