autolisp工具箱狹隘

❶ 如何在cad中使用autolisp編寫一個小程序，使選擇好後的 選擇集 中的 某一

可以編程實現

❷ 用CAD的lisp命令繪制圖塊的外框

;試用以下程序
(defun c:kjxwk()
(vl-load-com)
(setq cm (getvar "cmdecho") os (getvar "osmode"))
(setvar "cmdecho" 0) (setvar "osmode" 0)
(command "_undo" "be")
(while (setq ssa (ssget ":S" '((0 . "INSERT"))))
(setq ent (ssname ssa 0)
obj (vlax-ename->vla-object ent)
)
(vla-GetBoundingBox obj 'p1 'p2)
(setq p1 (vlax-safearray->list p1)
p2 (vlax-safearray->list p2)
)
(command "_rectang" p1 p2)
(command "_chprop" (entlast) "" "c" 1 "")
)
(command "_undo" "e")
(setvar "osmode" os) (setvar "cmdecho" cm)
(princ)
)

❸ AUTOLISP編程求助，如何得到屏幕的中點的坐標

很簡單的一個系統變數就能獲得，參見下面代碼：

(setq pt (getvar "viewctr"))

如果你還想獲得屏幕的四內個角點的容坐標，可以利用系統變數viewsize screensize配合上面得到的屏幕中心坐標獲得。

下面在給你個代碼，可以獲得當前拾取框的高度，在你選取實體的時候這個代碼很有用：

;|
求拾取框的高度
|;
(defun $XDLSP_Drawing_getPickboxHeight ()
(* (/ (getvar "pickbox") (cadr (getvar "screensize"))) (getvar "viewsize"))
)

上面代碼摘自曉東工具箱裡面的系統代碼庫裡面的代碼。

❹ 請問AutoLISP語言在選擇了一個選擇集之後退出命令後如何讓它在圖形空間里保持選擇集是亮選的選擇狀態!!!

(setq ss (ssget))
(sssetfirst nil ss)

❺ 如何在AutoCAD Visual Lisp編輯器中創建與編譯lisp程序

打開Visual Lisp編輯器有兩種方式：
1.AutoCAD2008及之前的版本，在菜單欄「工具(Tools)"下面，選擇」AutoLisp"---->"Visual
Lisp編輯器"。(」AutoLisp"---->"導入應用"這個命令是用來載入AutoLisp腳本的）
2.AutoCAD2009及之後的版本，在功能區的」管理「選項卡里可以直接打開Visual Lisp編輯器。

如何在AutoCAD Visual Lisp編輯器中創建與編譯lisp程序

打開Visual Lisp編輯器之後新建一個文件，並另存為Lisp源文件。然後就可以在編輯窗口裡輸你的代碼了。

代碼編輯並調試確認無錯誤後，就可以在AutoCAD中使用了。

如何在AutoCAD Visual Lisp編輯器中創建與編譯lisp程序

左邊的按鈕表示立即運行當前代碼，如果有錯誤就會提示出來，右邊按鈕是切換到CAD窗口。

如果不需要再修改代碼了還可以將代碼進行編譯以加速運行。

如何在AutoCAD Visual Lisp編輯器中創建與編譯lisp程序

根據向導一步步進行編譯很簡單的。

如果在其他CAD圖形文件中需使用當前代碼文件或編譯後的文件，就按上面第一點的，或者在命令行輸入」ap"，打開導入應用的對話框。

如何在AutoCAD Visual Lisp編輯器中創建與編譯lisp程序

1是用來臨時導入的，2是將程序加入CAD的啟動組。

lisp解決重復性勞動問題

在設計和繪圖中，你覺得都是簡單粗暴的重復性工作，就可以考慮用AutoLisp來代替你做。

首先，AutoLisp也是一個程序設計語言，屬於Common
Lisp的子集，同時加入了很多自定義的函數。即然是一個程序語言，就是其他編程語言能做的，它也能做，只是他的lisp語法跟一般的語言有些差另就是了，但是如果是一個沒有VB、C#、C++（對應於AutoCAD的開發方式分別是VBA,.net,ObjectArx）的基礎的人來說，AutoLisp是很簡單而且特別容易上手的一個語言。

作為一個編程語言，AutoLisp能做的很多：

1、擴充AutoCAD的原有命令。任何帶有C:前綴的AutoLisp函數，在AutoCAD中都可以像"line" "circle"
"dim"等命令一樣使用。

2、編寫代碼直接根據國標圖庫要求來繪出一些常用圖庫標准件什麼的，或是代替人查找各種設計手冊中的相關數據並繼續使用。

3、進行參數化繪圖，對於一些不特別復雜的系統，提供窄范圍、大深度的專業設計自動化或者輔助系統，如發動機裝配工具設計、縱使機主軸箱設計等。

4、DWG文件本質上是AutoCAD在圖形生成和編輯中使用的資料庫，可以將一些非圖形信息的數據（粗糙度，高度，厚度。。）等存於DWG文件中作
為非圖形資料庫文件，然後利用Lisp程序進行讀取等。

各種AutoCAD二次開發方式的比較：

由於 .net語言和c++的學習曲線比較陡峭，所以簡單易學的AutoLisp經常與VBA進行對比。（當然如果有VB的基礎還是直接學VBA好了。）

AutoLISP擅長建立新命令和產生已有命令的連接。VBA擅長執行包括在其他應用程序中的組件，如Microsoft的Excel和Access。AutoLISP是基於表處理的編程體系，它允許程序員隨意地存儲和操作傳送信息，然而VBA部件包括數據和對復雜情況的各種有效操作，這就是問題變得復雜的地方。

不過，在AutoCAD2000開始，Autodesk公司就在AutoCAD中加入了Visual
Lisp編輯器，引入了許多新函數擴充AutoLisp的功能，並支持ActiveX對象的訪問方式，所以使用AutoLisp來與Word\Excel等程序進行交互也是變簡單了。
另外，在創建帶GUI圖形界面的應用程序上，VBA當然是所見即所得的了，而AutoLisp是通過DCL文件來實現GUI的（語法很簡單，但做不到所見即所得）.這點是AutoLisp略遜一籌了。原文出自[
CAD自學網 ] 轉載請保留原文鏈接:http://www.cadzxw.com/1873.html

❻ 請問autolisp程序裡面調用（c:yx_sl)命令時需要選擇圖元，我可以集成到我的程序裡面嗎詳見下面。

如果你能得到 (yx_sl)這個程式的源代碼,就把它Copy一份到你的程式後面,改個名字,直接在你的程式中調用...

❼ 取消cad啟動時自動載入

1、點擊「工具」菜單-「AutoLISP」-「載入應用程序」。

❽ autolisp 應用程序源代碼怎麼殺掉啊

那是個病毒，要殺的。

具體方法引用如下：
近期很多CAD用戶都出現了同一問題，即打開了一些從網上下載的或從其他地方拷貝過來的圖紙後，CAD開始變的非常慢，通常打開一張圖紙要等待幾分鍾的時間，並且一些運行於CAD上的二次開發軟體的命令變的不可用。即使重新安裝CAD甚至重新安裝系統，只要再次打開以前打開過的圖紙，問題重現，這個問題對許多CAD設計人員都造成相當大的困擾。

該病毒利用CAD的讀取機制，在用戶第一次打開從網上下載的帶有病毒的圖紙後，該病毒即悄悄運行，並感染每一張新打開的圖紙，將病毒文件到處復制，並生成很多名為acad.lsp的程序。所以即便是重裝CAD甚至重裝系統都不能解決問題。

對此我們製作了該病毒的專殺工具，希望對廣大設計人員有所幫助。

藉此我們也建議廣大設計人員：對於網上的一些未知圖紙，在下載、打開之前，一定要慎重。

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

❾ autolisp粘貼內容怎麼加進選擇集

;;;=================================================================*
;;;功能：復制系統剪貼析板內容
(defun get ( / HTML RESULT)
(and (setq HTML (vlax-create-object "htmlfile"))
(setq RESULT (vlax-invoke
(vlax-get (vlax-get HTML 'PARENTWINDOW)
'CLIPBOARDDATA
)
'GETDATA
"Text"
)
)
(vlax-release-object HTML)
)
RESULT
)

❿ 【Auto CAD】 求LISP 程序包

Lisp工具箱
鏈接：
工具箱程序下載：http://www.xdcad.net/forum/showthre...0022#post760022

工具箱是個平台，需要加入工具程序才能真正的發揮作用。希望大家能交流一下自己整理的工具程序。
作為開頭，我把一段時間來在本版塊下載的工具程序打了個包，目前有35個不同類型的工具，其中有一些非常好用的。
歡迎跟貼自己整理的程序集。

安裝方法：
1. 把壓縮文件解包到c:\program files\lisptbox\lisp目錄下。
2. 在工具箱里用讀取文件或合並文件的方式調入上述路徑內的tools1.tbx文件就可以了。

說明：
這個包適用於工具箱程序的所有版本，不過較新的版本有更好的支持，如在1.5版以後可以生成下拉菜單，在2.0版里程序是分組的。

包內所有的程序均來源於公開渠道。版權歸各自作者所有，如作者不同意這種發布方式請聲明，本人將刪除相關程序。

本程序包僅供應用上的參考，不保證適用性。