1樓：
建議你上明經cad論壇，上面可以搜到你要的**。lisp論壇上高手很多，也很熱心
2樓：匿名使用者
(defun c:sz()
(vl-load-com)
(setq old (getvar "cmdecho")
path (strcat (vlax-get (vlax-get-acad-object) 'path) "\\support")
files (vl-directory-files path "*.dwg" 1)
)(setvar "cmdecho" 0)
(command "_undo" "be")
(initget "1 2 3")
(setq wjh (getkword "\n1/2/3<1>:"))
(if (= wjh nil) (setq wjh "1"))
(setq wjm (strcat path "\\" wjh ".dwg"))
(if (member (strcat wjh ".dwg") files)
(progn
(command "_insert" wjm '(0 0 0) 1 1 1)
(command "_zoom" "e")
)(alert (strcat wjm ", 不存在!"))
)(command "_undo" "e")
(setvar "cmdecho" old)
(princ)
)(defun c:zm()
(vl-load-com)
(setq old (getvar "cmdecho")
path (strcat (vlax-get (vlax-get-acad-object) 'path) "\\support")
files (vl-directory-files path "*.dwg" 1)
)(setvar "cmdecho" 0)
(command "_undo" "be")
(initget "a b c")
(setq wjh (getkword "\na/b/c:"))
(if (= wjh nil) (setq wjh "a"))
(setq wjm (strcat path "\\" wjh ".dwg"))
(if (member (strcat wjh ".dwg") files)
(progn
(command "_insert" wjm '(0 0 0) 1 1 1)
(command "_zoom" "e")
)(alert (strcat wjm ", 不存在!"))
)(command "_undo" "e")
(setvar "cmdecho" old)
(princ))
lisp 怎麼把另一個dwg影象檔案當做塊 插入到當前dwg影象中呢
3樓：黃涸
首先：將這個檔案放在cad支援路徑裡，
再用下面的語法就可以了，
(vl-cmdf "_insert" "kuai.dwg" pause "1" "1" "0")
注意：插入點就是塊所在圖的，座標0點
另外《黃河工具集cdd》有很多實用的工具，你可以看看,介面如下**：
怎樣將cad中已經畫好的圖的一部分，放入新建的一個圖層中？
4樓：匿名使用者
選中你需要修改圖層的物件，右擊特性或在選單欄裡選擇特性，裡面有圖層，直接選擇你需要放入的圖層。
5樓：匿名使用者
先選中你要轉的部分，再點圖層
6樓：朱正偉
修改圖層的話方法有以下：
選擇物件，右鍵，屬性，在屬性裡面修改圖層。
autolisp也可以修改圖層，**如下
lisp程式設計 在開啟的cad圖中，插入另一已畫好的cad圖
7樓：匿名使用者
(defun c:shuru(/ file dwg pt sx sy)
(setvar "cmdecho" 0)
(setq file (getstring "\n輸入待輸入的圖形檔名:"))
(if (not file)(exit)
(progn
(setq dwg(findfile(strcat file ".dwg")))
(if(not dwg)(exit)
(progn
(setq pt(getpoint "\n指定插入點:"))
(if(not pt)(exit)
(progn
(setq sx(getreal "\指定x比例<1>:"))
(if(not sx)(setq sx 1))
(setq sy(getreal "\指定y比例<1>:"))
(if(not sy)(setq sy 1))
(command "-insert" dwg pt sx sy "0")))
))))
(setvar "cmdecho" 0)
(princ)
);;事實上真的是直接使用insert命令也差不多!除非要批量插入才程式設計
;;順手寫了段小**，自己按需要修改一下再用
8樓：匿名使用者
這個不需要程式設計吧，cad中的insert命令可以解決這個問題。
求lisp程式解決cad插入圖塊
9樓：
(while(setq pt1(read-line f))
(setq rang(last(read(strcat "(" pt1 ")"))))
(setq pt1(read(strcat "(" pt1 ")")))
(setq pt1(list (car pt1)(cadr pt1)))
(command "insert" blockname pt1 "" "' rang ""))
求lisp程式解決cad插入圖塊 5
10樓：匿名使用者
插入圖塊 "小白鼠.dwg"時， "小白鼠.dwg"圖形檔案中的原點處於插入點。你需要修改 "小白鼠.dwg"圖形檔案，或者在lisp程式中進行補償。
如何在cad中用lisp指定圖層插入圖塊
11樓：
(command "insert")
12樓：超級成功
用lisp編一段連續的命令組就行了
求lisp程式，在cad圖中插入事先存在某資料夾裡的一張圖，選擇插入點時，圖形跟著滑鼠移動。。
lisp批量開啟cad圖操作
13樓：匿名使用者
我有cad批量列印的軟體，永久使用的，很方便快捷的，你要嗎？
開啟cad圖中的字型成方框怎麼辦
這是cad顯示設定的原因，僅顯示文字邊框 起作用了。可以用以下兩種方法解決 1 輸入命令 qtextmode，輸入0，回車，re重生成一下就看到已經顯示文字。2 工具 選項 顯示 把 僅顯示文字邊框 前邊的對鉤去掉，re重生成，就看到文字了。 說明字型不支援，開啟圖形時出現選擇文字格式的對話方塊，你...
為什麼我的CAD開啟的圖只能在佈局圖中看到在模型圖中看不到呢
布樂正 1 開啟cad，在模型視窗中根本看不到工程圖。有時您可以通過縮放視窗來找到圖形，而有時無論縮放如何都找不到圖形。這是因為圖形的位置錯誤。2 切換到佈局視窗，發現圖形可以再次顯示在此處。如何使圖形顯示在模型視窗中？讓我介紹三種方法。3 在命令列上鍵入 z 按enter，然後鍵入 a 以按ent...
CAD字型的選擇，我是CAD新手，在開啟別人的圖紙時，如何選擇字型？
以現在最常用的2004為例，一張圖中最規範的使用文字的方法是這樣的 新建圖後，在作圖之前，在上面工具欄，開啟格式 文字樣式，新建一個樣式名，如 right玉。選好字型，如要大字型，則也選中，設定好以後，點應用後退出。以後在cad圖中新增文字時，只要選好文字樣式為right玉就ok了。補充 一般cad...