① 如何將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.沒有給出圓半徑