钢构CAD实例LISP与DCL源代码及花样线型制作

感谢本论坛将本贴置顶的厚爱………

为让来到这里的朋友，能获得一些收获，在此将一个较典型且运用广泛的动态对话框实例程序的所有源代码，以及一些花样线型的制作方法，在此发表。

从 12 楼开始，从《钢构CAD》程序中，拿出一个较典型的动态对话框实用程序的相关源代码，包括LISP及DCL部分，全部在此发布。

钢构CAD在线 ， 最新版钢构CAD免积分下载
http://co.163.com/forum/content/369_959993_1.htm

钢构CAD中众多动态对话框源码
http://co.163.com/forum/content/211_896045_1.htm

--------------------------------------------------------------------------------
简单线型——就是在一条线上，不断插入些字母或文字之类的，此部分字母或文字会自动跟随线条变化

很多人搞不清虚线、中心线等线型的间隔空隙是多少，如何将这些间隔空隙与出图比例相调配。

其实只要打开线型文件 acad.lin 或 acadiso.lin 将以下四行内容（两个线型）复制到其文件的最后：

*非连续线, __ __ __ __ __ __ __ __ __
A,1.0,-.5
*符号线
A,20,-1,["H",STANDARD,S=1,R=0,X=0.4,Y=-0.4],-3


上式中*以后为线型说明及描述
A为固定值，1.0为实线长度,-.5为空隙长度
"H"中的 H 即为线型中插入的字母，其它种类数据都可试着调整，如用中文字时，则应将文字样式“STANDARD”设置为中文字体。

然后采用照芦画瓢的方法，即可完成自定义线型的设置与修改，保存之后即可调用。

如何将别人的现成好用的东东点为己有——简单线型篇

很早以前，听一个设计院的高手说，别人盗用了他开发的专用线型，还说如我们想要的话，可将电脑硬盘拿去他拷赠给我们。当时虽想但也不敢如此，因听说要拆电脑硬盘去才能得到。
现在回想起来，真是笑话。

其实要在一条线上不断插入自己想要的内容图案或文字，虽然学编也很简单，但只学会将别人现成的拿来改或略改一下，占为己有，那就更快了。

我们先做个小试验，知道如何得到新的线型，打开记事本将以下内容复制到其中，保存在任何位置后将其改重命名为ABC.lin(只要.lin不变,想存什名字都可以):

*符号线A
A,20,-1,["H",STANDARD,S=1,R=0,X=0.4,Y=-0.4],-3
*符号线B
A,20,-1,["P W",STANDARD,S=1,R=0,X=0,Y=-0.4],-3
*符号线C
A,20,-1,["AutoCAD",STANDARD,S=1,R=0,X=0,Y=-0.4],-6
*符号线1
A,20,-2,["□",STANDARD,S=1,R=0,X=0,Y=-0.4],-3
*符号线2
A,20,-2,["☆",STANDARD,S=1,R=0,X=0,Y=-0.4],-3
*符号线3
A,20,-2,["■",STANDARD,S=1,R=0,X=0,Y=-0.4],-3



打开AutoCAD,在加载线型处,点“加载”找到刚才保存的文件ABC.lin，同时加载以上六个线型，在图中任选一根线型，改为以上不同名称的线型，如显示不当时在调节一下“线型比例”即可。这样你就有了一个自己的线型。
相同的道理，如你看中某个程序中的有关线型，只要找到其安装文件夹，再用“搜索”，在文件名输入框中输入：*.lin，即马上找出这个文件夹中的几个线型文件（一般只有一个最多有两个），分别打开，找到文件中带*号的那行及下一行（此为一个完整的线型），复制到你自己可以保存带走的线型文件中，这样这些线型从此你就随时可以使用了。

以上为简单线型的复制为己有的方法，如果大家对此感兴趣，接下来我在讲如何取出复杂线型为己有的方法。

[ 本帖最后由 rq28 于 2009-1-28 11:44 编辑 ]