❶ 賤人工具箱如何編號如一個圓有很多個不同樣的圖型，編成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))
❷ 賤人工具箱V610官方版賤人工具箱V610官方版功能簡介
大家好,關於賤人工具箱 V6.1.0 官方版，賤人工具箱 V6.1.0 官方版功能簡介這個很多人還不知道,現在讓我們一起來看看吧！
賤人工具箱正版是非常給力的一款CAD繪圖工具，該款工具為用戶提供了豐富的CAD插件功能，能夠幫助用戶更加輕松便捷的進行CAD圖像的製作，你想用的這里統統都能找到！
【使用說明】
載入方法：
1、菜單“工具”-->“載入應用程序”(或直接輸入命令：appload)
2、點啟動組里的“內容...”按鈕-->點“添加...”，找到工具箱，把工具箱添加進去
3、關閉對話框，並重啟CAD
4、輸入命令y或yy打開工具箱
無法載入時請嘗試以下方法：
1、打開cad或圖紙的時候不要按Esc鍵，按了會阻止工具箱的載入；
2、請使用管理員身份登陸操作系統；
3、使用vista和win7的要關閉UAC，關閉方法網上搜索，關閉UAC後請重啟電腦以便生效；
4、工具箱不支持綠色版、精簡版的cad。
【CAD插件推薦】
在CAD圈一直流傳著這么一句話：會不會使用插件，是你懂不懂這個軟體的門檻，因為隨著對CAD的深入認識，你會發現使用插件和不使用插件，設計的效率天差地別，除了CAD賤人工具箱插件之外，還有其他好用的CAD插件等待著你的使用，小編也對這些類型的插件進行了整理，有需要的趕快來看看下面的表格吧。
CAD插件工具
軟體名稱軟體特色燕秀工具箱官方免費版燕秀工具箱是一款方便易用的AutoCAD塑膠模工具，該軟體支持簡體、繁體、英文的AutoCAD各個版本，注重應用功能的增強。源泉CAD工具箱官方版這款CAD源泉建築工具箱適用於建築設計、裝飾設計等相關CAD制圖行業，由Visual LISP語言編寫再經編譯而成，可運行AutoCAD以及浩辰CAD各個版本。常青藤輔助工具系統官方版此繪圖工具主要包括實體格式操作、圖形符號繪制、表格智能處理、實體批量修改、實體信息查詢及圖紙批量列印等功能，支持AutoCAD、中望CAD和浩辰CAD平台。海龍工具箱2019完美版軟體提供了若干繪圖及設計用工具，支持多種封面目錄製作、平面圖繪制、立面圖繪制、剖面圖繪制等操作，可以大大提高用戶繪圖工作效率。❸ lisp程序載入進CAD後，如何在命令行顯示出「賤人工具箱已載入，啟動命令：Y或YY」的效果
在程序的最前面輸出信息
(princ "已經載入")