賤人成工具箱版

② 賤人工具箱如何編號如一個圓有很多個不同樣的圖型，編成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))

③ 賤人工具箱怎麼使用

賤人工具箱使用步驟如下：（演示使用WIN10系統，其他Windows版本操作大致相同）

1丶以管理員身份打開AutoCAD軟體，然後單擊菜單「工具」 - 「載入應用程序」 - 「調用」對話框，之後點擊如圖所示的「內容」。

④ 賤人工具箱 不小心把Y設置成命令了 不能調出工具箱 怎麼辦

來個經實踐驗證了的方法：

打開c盤賤人工具箱文件夾的「y.ini」文件，例如：

找到文件里版的「y」，修權改成任意其他字母（用新的快捷鍵替換掉y），搞定！

直接刪除沒用，載入賤人工具箱後會還原（但未經過關機測試）。

⑤ 為什麼使用破解版的賤人工具箱5.7,工具箱仍顯示為注冊狀態

建議使用賤人工具箱5.2免費版，5.3版之後都是注冊版，不注冊功能有限制，5.7破解版在xp上能用內在win7上不能用可能容是因為破解這個軟體的人是在XP系統上測試通過了，但他沒有win7系統，所以沒法測試；也有可能是其他的原因，比如你重裝系統後文件丟失之類的。因為是破解的，所以顯示為注冊狀態也是正常的，我的5.7顯示為注冊狀態也能正常使用。希望我的回答能幫到你

⑥ 賤人工具箱卡住

打開AutoCAD，點擊菜單「工具」--》「載入應用程序」--》調出對話框
點擊對話框上啟動組里的「內容...」--》點「瀏覽」，找到工具箱，點「添加」，把工具箱添加進去，關閉對話框
重啟CAD
輸入命令"y"調出工具箱
無法載入的解決方法：
用管理員身份登錄操作系統
若您的系統是Vista或Windows7，請關閉UAC(關閉方法從網上搜索)，然後重新啟動計算機
不支持精簡版cad

天正用戶載入賤人工具箱的方法：
首先確定你的工具箱的存放的路徑，(本例假設工具箱的名字是：賤人工具箱.vlx，存放在c盤根目錄下)
找到天正安裝目錄SYS\ACADDOC.LSP，打開ACADDOC.LSP，在最後添加一行(load "C:\\賤人工具箱.vlx")，注意括弧也要的
然後重開天正檢查是否成功。

⑦ 賤人工具箱怎麼使用

賤人工具箱使用步驟如下：（演示使用WIN10系統，其他Windows版本操作大致相同）

1丶以管理員身份打開AutoCAD軟體，然後單擊菜單「工具」 - 「載入應用程序」 - 「調用」對話框，之後點擊如圖所示的「內容」。

⑧ 賤人工具箱5.8可以在win10系統中使用么

1、下載抄好最新版的通用pe工具箱後，將u盤製作成u盤啟動盤，再將鏡像文件保存好位置，就可以重啟系統進行安裝系統了。（如果鏡像文件放在u盤的話，u盤必須是8G，因為windows
10的鏡像文件就接近4G了）；
2、重啟的時候連續按熱鍵進bios系統，然後在bios系統下設置u盤為第一啟動，然後再將系統模式改為ide模式，因為這樣裝機最穩定，然後按F10保存退出；
3、然後在pe選擇界面選擇合適自己電腦的pe系統；
4、進入到pe系統後，我們點擊通用pe工具箱一鍵智能裝機系統；
5、然後如下圖所示，在「請選擇映像名」那裡下拉框有3個選擇，第一個是無用的，第二「windows
technical
preview」的意思是
windows
技術預覽版，而第三個「windows
technical
preview
for
consumer」
windows
消費者技術預覽版，目前通用pe工具箱只支持消費者技術預覽版，所以選擇第三個，然後設置好安裝的路徑，點擊開始，然後再點擊確定即可開始安裝了。

⑨ 賤人工具箱好用嗎求萬能網友解答一下，謝謝！

很好用的，這些都是一些輔助工具的，但是工具也不是那麼齊全的，所以得多找幾個cad工具箱才行的。

⑩ 能發我一個賤人工具箱破解版的嗎急用，謝謝.625857868

我這邊是賤人工具箱5.2版本的，下載後解壓，再CAD里載入解壓後的裡面的賤人工具箱，載入成功後輸入Y回車，工具箱就打開了