@lisp 线型工具

vitalgg

1概述
@lisp线型工具是用于加载，分类管理线型的工具包，可提供通用的，可升级的线形定义。

2功能


2.1加载@lisp线型
用于加载 @lisp.lin 文件定义的线型文件.


该文件主要提供了 围栏 、锯齿线、波浪线（三个）、以及一些花样线型。


输入@@或双击CAD绘图区打开命令面板，然后点击 加载@lisp线型，即可加载并使用上述线型。


@lisp.lin 内容：（不定期更新）

1. *atline1, __/__
   
2. A,1.0,[XIE,@lisp.shx,S=1],1.0
   
3. *atline3, ) ) ) )
   
4. A,0,[ARC1,@lisp.shx,S=1,Y=0.707],-1.0
   
5. *围栏1,圆围栏 ----0-----0----0-----0----0-----0--
   
6. A,.25,-.1,[CIRC1,ltypeshp.shx,x=-.1,s=.1],-.1,1
   
7. *围栏2,方围栏 ----[]-----[]----[]-----[]----[]---
   
8. A,.25,-.1,[BOX,ltypeshp.shx,x=-.1,s=.1],-.1,1
   
9. *轨道,Tracks -|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
   
10. A,.15,[TRACK1,ltypeshp.shx,s=.25],.15
    
11. *at_BATTING,Batting SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
    
12. A,.0001,-.1,[BAT,ltypeshp.shx,x=-.1,s=.1],-.2,[BAT,ltypeshp.shx,r=180,x=.1,s=.1],-.1
    
13. *锯齿线,Zig zag /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    
14. A,.0001,-.2,[ZIG,ltypeshp.shx,x=-.2,s=.2],-.4,[ZIG,ltypeshp.shx,r=180,x=.2,s=.2],-.2
    
15. *波浪线, 波浪线 ~~~~~~~~~~~~~~
    
16. A,0,[QUARTERCIRCLE,@lisp.shx,S=1],-1.414,[QUARTERCIRCLE,@lisp.shx,S=1,R=180,X=1.414],-1.414
    
17. *波浪线1, 波浪线1 ~~~~~~~~~~~~~~
    
18. A,0,[HALFCIRCLE,@lisp.shx,S=1],-2.0,[HALFCIRCLE,@lisp.shx,S=1,R=180,X=2.0],-2.0
    
19. *波浪线2, 波浪线2 ~~~~~~~~~~~~~~
    
20. A,0,[WAVE,@lisp.shx,S=1],-6.8305
    
21. *@line1,  ~~~~~~~~~~~~~~
    
22. A,0,[QUARTERCIRCLE,@lisp.shx,S=1],-0.707,[QUARTERCIRCLE,@lisp.shx,S=1,R=180,X=0.707],-0.707
    
23. *@line2,  ~~~~~~~~~~~~~~
    
24. A,0,[QUARTERCIRCLE,@lisp.shx,S=1],-1.0605,[QUARTERCIRCLE,@lisp.shx,S=1,R=180,X=1.0605],-1.0605
    

复制代码

2.2加载设备线型
用于加载 equip.lin 文件定义的线型文件.


该文件主要提供了一些设备标志线型。如供暖、供水、供热、污、电 等线型。


输入@@或双击CAD绘图区打开命令面板，然后点击 加载@lisp线型，即可加载并使用上述线型。


equip.lin ：（不定期更新）

1. *供热管,Hot water supply ---- HW ---- HW ---- HW ----
   
2. A,.5,-.2,["HW",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.2
   
3. *燃气管,Gas line ----GAS----GAS----GAS----GAS----GAS----GAS--
   
4. A,.5,-.2,["GAS",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.25
   
5. *供水管,供水管 ---- S ---- S ---- S ----
   
6. A,.5,-.2,["S",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.2
   
7. *排水管,排水管 ---- P ---- P ---- P ----
   
8. A,.5,-.2,["P",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.2
   
9. *污水管,污水管 ---- W ---- W ---- W ----
   
10. A,.5,-.2,["HW",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.2
    
11. *供电管,供电管 ---- D ---- D ---- D ----
    
12. A,.5,-.2,["D",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.2
    

复制代码

2.3自定义线型
打开编辑器编辑修改线型文件。文件名为 user.lin。


您也可以定制自己的线型。如果你知道线型的制规则。可以自己定制需要的线型。


2.4编辑形文件
打开编辑器编辑修改线型需要的形定义文件。文件名为@lisp.shp


2.5编译形文件
将编辑好的形文件编译成 shx 文件，以备加载使用。


2.6我要定制
如果没有提供您需要的线型，您也可以联系开发者定制制作。

如果无法播放，请点击此处在新窗口打开

文章源：
https://mp.weixin.qq.com/s?__biz ... b6bcef89ae8739e7#rd

源代码：
https://gitee.com/atlisp/packages/tree/main/at-linetype

KO你

楼主，LSP文件怎样编写才能一键生成加载截图1的线型呢

vitalgg

KO你 发表于 2023-7-13 23:03
楼主，LSP文件怎样编写才能一键生成加载截图1的线型呢

最下面源代码网址，有全套的线型、形文件和 lisp 代码。

Noangler

谢谢大佬分享。

jkop

可以简单快速的增加自己需要的线型，感谢分享。

mokson

功能强大，实用工具。