lisp整集工具箱操作

❶ *** 工具如何使用

問題一： *** 工具箱怎麼使用 你好， *** 工具箱載入的方法
第一、打開AutoCAD，點擊菜單「工具」-->「載入應用程序」-->調出對話框；
第二：點擊對話框上啟動組里的「內容...」-->點「瀏覽」，找到「 *** 工具箱5.6.VLX」，點「添加」，把工具箱添加進去，關閉對話框。
第三：輸入命令y調出工具箱。

問題二：cad *** 工具箱怎麼使用 你好， *** 工具箱載入的方法
第一、打開AutoCAD，點擊菜單「工具」-->「載入應用程序」-->調出對話框；
第二：點擊對話框上啟動組里的「內容...」-->點「瀏覽」，找到「 *** 工具箱5.6.VLX」，點「添加」，把工具箱添加進去，關閉對話框。
第三：輸入命令y調出工具箱。

問題三： *** 工具箱的使用 自動載入方法打開AutoCAD，輸入命令:ap，點「內容...」，點「瀏覽」，找到工具箱，點「添加」，關閉對話框，重啟AutoCAD軟體；載入方法打開AutoCAD，點擊菜單「工具」--》「載入應用程序」--》調出對話框；點擊對話框上啟動組里的「內容...」--》點「瀏覽」，找到工具箱，點「添加」，把工具箱添加進去，關閉對話框；重啟AutoCAD；輸入命令y調出工具箱。 *** 工具箱5.7 *** 工具箱5.7是AutoCAD平台下優秀插件，共有200個實用工具，提高繪圖效率30%以上；無需安裝，載入即可使用，綠色軟體，不修改任何CAD系統設置！

問題四：cad *** 工具怎麼用 *** 工具箱怎麼打開？
(1)打開AutoCAD，點擊菜單「工具」，「載入應用程序」調出對話框
(2)點擊對話框上啟動組里的「內容...」，點「瀏覽」，找到工具箱，點「添加」，把工具箱添加進去，關閉對話框
(3)重啟CAD
(4)輸入命令y調出工具箱
*** 工具箱破解版：3322.cc/soft/4266

問題五：CAD *** 工具怎麼設置 CAD菜單：工具 載入應用程序 （找到.VLX程序）
命令: _appload 已成功載入 *** 工具箱5.7破解版.VLX。
命令: 正在初始化 VBA 系統...
*** 工具箱已載入，啟動命令：y
命令:
在命令行鍵入 y 即可啟動 *** 工具箱。

問題六：請問 *** 工具箱是幹嘛的，怎麼用？CAD中。 插件，下載到電腦後倒入到LISP中，直接快捷鍵調用即可，一般工具箱都有文檔說明

問題七：cad *** 工具箱怎麼用遞增復制功能，麻煩詳細回答 你先用DT命令，寫一些文字(必須是以數字結尾)，然後使用 *** 工具的遞增復制，點你剛才寫的字，輸入遞增值(就是數字的間隔值)，空格確定，然後就點在你需要的地方點左鍵。你每點一次，復制的數字都是按照你剛才輸入的遞增值增加上去，自己試一下就清楚。
註：一定要DT命令，T命令不行，在天正裡面，DT命令是電梯，肯定不行。就用T寫後炸開就行了

問題八：CAD *** 工具箱作用大嗎? 其實是這樣的， *** 工具屬於針對autocad沒有的功能二次開發的小工具包，裡面的功能你可能用的上，也可能很久都不會用，我推薦你還是下載一些專門針對你這個專業的設計軟體，比如建築的，你就下載建築CAD，等等，這樣對於的幫助要大一些

問題九： *** 工具箱的批量列印功能具體使用步驟 1.你的圖框是標準的.也就是297*420,把圖框進行塊定義撫
2.BP命令彈出批量列印窗口.選擇從圖中選擇圖塊或圖層然後選擇圖框塊.回車
3.回車後又回到批量列印面板,然後再選擇選擇批量列印圖紙
把你想要列印的每個圖框塊選擇.
4.之後調節列印設置.設置好你的列印線性紙張等.
5.調節好後.就預覽咯.預覽OK就列印..

問題十： *** 工具箱么載入後輸入y或yy不能打開工具箱，為什麼？求解 vista系統要關閉UAC功能才能使用工具箱
關閉VISTA里的UAC功能
第一種方法:
使用MSCONFIG關閉UAC
依次點擊「開始 > 運行」，輸入MSCONFIG，打開系統配置實用程序
選擇Tools(工具)選項卡，向下滾動找到」Disable UAP」 (目前的Windows Vista Beta 2中如此，至於以後的測試及正式版本中是否仍存在該項則不得而知)，選中該行。
點擊「Launch」按鈕
一個CMD窗口將會打開，當運行完畢後，將其關閉。
退出MSCONFIG，重啟系統即可。
如果以後想要重新開啟UAC功能，只需選中」Enable UAP」行，同樣進行操作一次即可開啟。
第二種方法:
使用控制面板關閉UAC
打開控制面板
在「User Account and Family settings(用戶帳戶與家庭設置)」中點擊」Add or remove user account」
選中某一個用戶帳戶，如Guest。
在該用戶帳戶的屬性頁中，點擊」Go to the main User Account page」鏈接。
在」Make changes to your user account」 頁中，點擊」Change security settings」 鏈接，以更改安全設置
在」Turn on User Account Control (UAC) to make your puter more secure」頁中，去除」Use User Account Control (UAC) to help protect your puter」項的選擇，然後按「Ok」按鈕。

❷ CAD,求大神編輯lisp,把所有塊中的所有對象顏色修改為隨圖層！謝謝！

在cad中使用Setbylayer命令即可強制所選元素特性按圖層設置，如顏色、線型等。

❸ 賤人工具箱如何編號如一個圓有很多個不同樣的圖型，編成1到500，

我用賤人嘗試過，不會弄，後來下載了一個lisp，用text編輯的數字可以復制遞增。希望對你有所幫助。如下：
(defun c:gf()
(setq bc (getint "\n 請輸入步長:"))
)

(defun c:saa()
(setq banben (ver))
(ddd banben)
(setq banben (atoi banben))
(prompt "\n 設置步長命令為:gf,初始步長為1")
(prompt "\n 請選擇不需要更改的實體:")
(if (= bc nil)
(setq bc 1)
)
(setq ddjjqq (ssget))
(setq entt (entsel "\n 請選擇一個文字:"))
(setq ent (car entt))
;(setq pt1 (cadr entt))
(redraw ent 3)
(setq dxf (entget ent)) ;聯合列表
(setq wenzizu (assoc 1 dxf)) ;點對列表
(setq wenzi (cdr wenzizu)) ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi)) ;翻譯字元

(setq wei (vl-string-search "#" fanyihou)) ;找出#的位置

(setq qianzhui (substr wenzi 1 wei)) ;取出前綴
(setq shuzi (substr wenzi (+ wei 1))) ;取出字元串形式的數字
(setq shishu (atoi shuzi)) ;把數字改為實數

(setq pt1 (getpoint "\n 請選擇一個點:"))
(setq pt2 (getpoint pt1 "\n 請選擇第二點:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1)) ;判斷第一個字元是什麼
;(setq llll (substr wenzi 4 1)) ;判斷第四個字元是什麼

(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<") ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b)) ;

(if (< b 10) ;
(setq d (strcat qianzhui "0" c ">"))
(setq d (strcat qianzhui c ">"))
) ;
;
(setq e (cons 1 d))

(if (> banben 2004)
(progn ;
(command "" ddjjqq "" pt1 pt2 "")
(command "" ent "" pt1 pt2 "")
)
(progn ;
(command "" ddjjqq "" pt1 pt2 )
(command "" ent "" pt1 pt2 )
) ;end progn
) ;end if

(setq ent1 (entget (entlast))) ; ;此處為一個判斷
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;end progn ;
) ;end first ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;如果要加判斷的話,請選擇這里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t ;
(progn ;
(setq b (+ shishu bc n))
;
(setq c (itoa b))
(if (< b 10) ;
(setq d (strcat qianzhui c))
(setq d (strcat qianzhui "0" c))
) ;
(setq e (cons 1 d))

(if (> banben 2004)
(progn ;
(command "" ddjjqq "" pt1 pt2 "")
(command "" ent "" pt1 pt2 "")
) ;end progn

(progn ;
(command "" ddjjqq "" pt1 pt2 )
(command "" ent "" pt1 pt2 )
) ;end progn
); end if ; ;此處為第二個判斷
(setq ent1 (entget (entlast))) ;
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;
) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

) ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 請選擇第二點:")) ;pt1決定有沒有顯示線

) ;end while
) ;end defun

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; 以下為輸入單個字的命令 ;;;;;;;;;;;;;;;;

(defun c:sa()
(setq banben (ver))
(ddd banben)
(setq banben (atoi banben))
(prompt "\n 設置步長命令為:gf,初始步長為1")
(if (= bc nil)
(setq bc 1)
)

(setq enty (entsel "\n 請選擇一個文字:"))
(setq ent (car enty))
;(setq pt1 (cadr enty))

(redraw ent 3)
(setq dxf (entget ent)) ;聯合列表
(setq wenzizu (assoc 1 dxf)) ;點對列表
(setq wenzi (cdr wenzizu)) ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi)) ;翻譯字元

(setq wei (vl-string-search "#" fanyihou)) ;找出#的位置

(setq qianzhui (substr wenzi 1 wei)) ;取出前綴
(setq shuzi (substr wenzi (+ wei 1))) ;取出字元串形式的數字
(setq shishu (atoi shuzi)) ;把數字改為實數

(setq pt1 (getpoint "\n 請選擇一個點:"))
(setq pt2 (getpoint pt1 "\n 請選擇第二點:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1)) ;判斷第一個字元是什麼

;(setq llll (substr wenzi 4 1)) ;判斷第四個字元是什麼
(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<") ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b)) ;
(if (< b 10) ;
(setq d (strcat qianzhui "0" c ">"))
(setq d (strcat qianzhui c ">")) ;
) ;
(setq e (cons 1 d))

(if (> banben 2004) ;
(command "" ent "" pt1 pt2 "")
(command "" ent "" pt1 pt2 )
) ;

(setq ent1 (entget (entlast))) ; ;此處為一個判斷
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;end progn ;
) ;end first ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;如果要加判斷的話,請選擇這里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b))
(if (< b 10) ;
(setq d (strcat qianzhui "0" c))
(setq d (strcat qianzhui c))
) ;
(setq e (cons 1 d))

(if (> banben 2004) ;
(command "" ent "" pt1 pt2 "")
(command "" ent "" pt1 pt2 )
) ;
;此處為第二個判斷
(setq ent1 (entget (entlast))) ;
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;
) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

) ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 請選擇第二點:")) ;pt1決定有沒有顯示線

) ;end while
(princ)
) ;end defun

;;;;;;(wcmatch "SHZ1G" "*[1234567890]*") 可以找到是否只有一個數字

(defun ddd (#a)

(setq #b (vl-string->list #a))
(setq #c (vl-remove-if '(lambda (x) (> x 57)) #b))
(setq #d (vl-remove-if '(lambda (x) (< x 46)) #c))
(setq #e (vl-remove 47 #d)) ;此句是去掉/的語句
(setq banben (vl-list->string #e))

❹ 【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版里程序是分組的。

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

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

❺ lisp程序里的getvar

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

(setq pt (getvar "viewctr"))

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

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

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

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