① 如何将LISP源程序编译成fas\vlx格式

1、打开Visual LISP编辑器。

2、点文件/生成应用程序/新建应用程序向导。

3、如文件品种单一，则选简内单模式，如用几种类容型文件，如LISP，DCL等等，则选择专家模式。

4、按程序要求，选择已有的程序文件所在文件夹，并填写想要的编译后的VLX文件名称如123。

5、最在当出现编译应用程序时，默认为打勾项。此时点击完成按钮，就KO了。

6、打开已有的程序文件所在文件夹，把124.VLX文件找出来，就可以加以应用了。

补充：LISP（全名List Processor，即列表处理语言），由约翰·麦卡锡在1960年左右创造的一种基于λ演算的函数式编程语言。

② lisp编程：怎么编译lisp源代码呢

lisp程序不需要编译，直接在autocad中加载就可以了，然后执行定义的命令就行。

③ 如何让CAD不出现（autolisp应用程序源代码）

那是个病毒，要杀的。

具体方法引用如下：
近期很多CAD用户都出现了同一问题，即打开了一些从网上下载的或从其他地方拷贝过来的图纸后，CAD开始变的非常慢，通常打开一张图纸要等待几分钟的时间，并且一些运行于CAD上的二次开发软件的命令变的不可用。即使重新安装CAD甚至重新安装系统，只要再次打开以前打开过的图纸，问题重现，这个问题对许多CAD设计人员都造成相当大的困扰。

该病毒利用CAD的读取机制，在用户第一次打开从网上下载的带有病毒的图纸后，该病毒即悄悄运行，并感染每一张新打开的图纸，将病毒文件到处复制，并生成很多名为acad.lsp的程序。所以即便是重装CAD甚至重装系统都不能解决问题。

对此我们制作了该病毒的专杀工具，希望对广大设计人员有所帮助。

借此我们也建议广大设计人员：对于网上的一些未知图纸，在下载、打开之前，一定要慎重。
下载http://www.haochenc.com/download/soft/soft.asp?ID=145

④ CAD lisp中，是否可以获取自己所在的lisp源代码文件的当前所在路径名

python">(defunc:show_current_directory()
(setqcur_dir(getvar"dwgprefix"))
(startapp"explorer"cur_dir)
);end

⑤ 求CAD lisp 小程序源码。

我有你需要的软件插件，你需要吗？

⑥ autolisp 应用程序源代码怎么杀掉啊

那是个病毒，要杀的。

具体方法引用如下：
近期很多CAD用户都出现了同一问题，即打开了一些从网上下载的或从其他地方拷贝过来的图纸后，CAD开始变的非常慢，通常打开一张图纸要等待几分钟的时间，并且一些运行于CAD上的二次开发软件的命令变的不可用。即使重新安装CAD甚至重新安装系统，只要再次打开以前打开过的图纸，问题重现，这个问题对许多CAD设计人员都造成相当大的困扰。

该病毒利用CAD的读取机制，在用户第一次打开从网上下载的带有病毒的图纸后，该病毒即悄悄运行，并感染每一张新打开的图纸，将病毒文件到处复制，并生成很多名为acad.lsp的程序。所以即便是重装CAD甚至重装系统都不能解决问题。

对此我们制作了该病毒的专杀工具，希望对广大设计人员有所帮助。

借此我们也建议广大设计人员：对于网上的一些未知图纸，在下载、打开之前，一定要慎重。

下载http://www.haochenc.com/download/soft/soft.asp?ID=145

⑦ 急！CAD中毒autolisp应用程序源代码

可能是自动加载的程序，你把它卸载了就行了。
卸载方法：工具——autolisp——加载——选中那个程序——卸载
这样就行了。

⑧ lisp编程：编译完lisp源代码后，出现了四个文件

XXXXX.lisp是lisp的源文件
XXXXX.list~是XXXXX.lisp的备份文件
XXXXX.lisp是XXXXX.lisp的加速加载文件
XXXXX.lib是编译过的库文件

⑨ 跪求快速绘制一个图形的autolisp的源代码

(defunC:tes(/&dis1&dis2&dis3&p1&p2&p3&p4&p5&p6&p7&p8&ss1tc1tc2x)
(if(and(setqtc1(entsel"
请选择中心线参考图层"))
(setqtc2(entsel"
请选择圆的参考图层"))
(setq&p1(getpoint"
请输入第一点"))
(>(setq&dis1(getdist&p1"
请输入长度"))4)
(>(setq&dis2(getdist&p1"
请输入高度"))4)
(>(setq&dis3(getdist&p1"
请输入圆半径"))0)
)
(progn
(setq&ss1'()tc1(assoc8(entget(cartc1)))tc2(assoc8(entget(cartc2))))
(setq&p2(polar&p102)&ss1(cons&p2&ss1)&p2(polar&p20(-&dis14))&ss1(cons&p2&ss1)
&p2(polar&p2(*pi0.25)(*2(expt20.5)))&ss1(cons&p2&ss1)
&p2(polar&p2(*pi0.5)(-&dis24))&ss1(cons&p2&ss1)
&p2(polar&p2(*pi0.75)(*2(expt20.5)))&ss1(cons&p2&ss1)
&p2(polar&p2pi(-&dis14))&ss1(cons&p2&ss1)
&p2(polar&p1(*pi0.5)(-&dis22))&ss1(cons&p2&ss1)
&p2(polar&p1(*pi0.5)2)&ss1(cons&p2&ss1);多段线点集合
&p2(polar&p10(*&dis10.25))&p2(polar&p2(*pi0.5)(*&dis20.5));圆心1
&p1(polar&p20(*&dis10.5));圆心2
&p3(polar&p2pi(*&dis10.5))&p4(polar&p10(*&dis10.5));中心线
&p5(polar&p2(*pi0.5)(*&dis20.75))&p6(polar&p2(*pi1.5)(*&dis20.75))
&p7(polar&p50(*&dis10.5))&p8(polar&p60(*&dis10.5))
)
(entmake(append(list'(0."LWPOLYLINE")'(100."AcDbEntity")'(100."AcDbPolyline")(cons90(length&ss1))'(70.1))(mapcar'(lambda(x)(cons10x))&ss1)));多段线绘制
(entmake(list'(0."CIRCLE")tc2(cons10&p2)(cons40&dis3)));圆绘制
(entmake(list'(0."CIRCLE")tc2(cons10&p1)(cons40&dis3)))
(entmake(list'(0."LINE")tc1(cons10&p3)(cons11&p4)));直线绘制
(entmake(list'(0."LINE")tc1(cons10&p5)(cons11&p6)))
(entmake(list'(0."LINE")tc1(cons10&p7)(cons11&p8)))
)
)
(prin1)
);复制到记事本，以【.lsp】为后缀命名，autolisp加载后，命令为【TES】

;1.没有明确给出中心线图层;2.没有给出圆图层;3.没有给出圆半径