賤人工具箱怎麼遞增數字

❶ CAD賤人工具箱 我用遞增復制為什麼不能選中文字 還有計算面積也是 我畫了一個簡單的四邊形總是選不中對象

還用那麼麻煩嗎？

CAD數值自動遞增：

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

❸ 在AutoCAD中繪制的表格，可以實現數字遞增的效果嗎

在CAD中，選擇下拉菜單插入——OLE對象——工作表。直接插入EXCEL，很簡單的，若要打開編輯只要框選住，右鍵選擇OLE—打開，單元格的顏色設置於黑色，字體顏色高為白色

❹ 陣列怎麼使CAD數字按順序增加

陣列的時候不是只能陣列出相同的嗎~？我還沒學那個陣列順序增加的？~

❺ CAD里能不能復制的時候，數字遞增呢

當然可以啊，我有CAD里復制數字遞增的插件

❻ cad賤人工具箱怎麼用遞增復制功能，麻煩詳細回答

還在用插件嗎，CAD本身一樣可以復制遞增：

❼ cad遞增復制功能怎樣使用

點擊菜單欄里的「注釋——文字——單行文字」選項圖標，調用單行文字命令；也可以直接在命令框中輸入TEXT命令字元，調用單行文字命令。

❽ cad 賤人工具箱里怎麼能快速編號像123....

先載入賤人工具（來命令是自ap，然後找到賤人工具的位置載入完成，關閉窗口），再輸入命令：y或者yy。彈出賤人工具箱，選擇遞增復制，這時候會讓你選擇對象，就選擇你的123（123應該要是多行文字才行），提示是遞增幾？默認的應該是1.如果是1，滑鼠右鍵就可以了，OK！問題解決了。

❾ 2014CAD用的賤人工具箱5.8，現在遞增復制只能在原地復制一個，然後就復制不了了，怎麼回事啊

我有這個工具箱最新破解版

❿ 賤人工具箱 怎樣使cad線中數字統計求和

你的意思是要同時選擇多個線段，然後得出總的長度是吧。按照下圖方版式操作：

1、點擊截權圖中的按鈕

2、選中需要測量的線段

3、如果選擇完了想測量的選段就右鍵確定（此時已經能看到結果了）

4、在你想顯示結果的位置點擊會顯示結果（第一步右邊的按鈕可以修改結果顯示的大小）

望採納！