⑴ 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))
⑶ cad賤人工具箱有自動排版功能
有那麼一點。。。很簡單的。。。
⑷ 有人用過賤人工具箱嗎
你好,賤人工抄具箱載入的方法
第一、打開AutoCAD,點擊菜單「工具」-->「載入應用程序」-->調出對話框;
第二:點擊對話框上啟動組里的「內容...」-->點「瀏覽」,找到「賤人工具箱5.6.VLX」,點「添加」,把工具箱添加進去,關閉對話框。
第三:輸入命令"y"調出工具箱。
⑸ cad都有什麼輔助的工具啊,求介紹
HGCAD,賤人工具箱,VCAD我遇到的是這三種,第一和第三用過
⑹ CAD賤人工具箱誰的公司有用到它
賤人還好吧。與原版不沖突。
不像天正經常掉失。
你用你的,他們不用也沒關系。
⑺ CAD賤人工具箱哪個功能可以選中框中所有文本的的
雖然抄自己不用,不過網襲上幫你收到一個載入方式,你試試看行不行
打開AutoCAD,輸入命令:ap,找到工具箱,點載入,關閉對話框,輸入y或yy打開工具箱。
自動載入方法:
打開AutoCAD,輸入命令:ap,點「內容...」,點「瀏覽」,找到工具箱,點「添加」,關閉對話框,重啟CAD。
⑻ 賤人工具箱5.2 改顏色命令為什麼只有第一個有用
現在賤人工具都有5.9版本的了,用那個有用的
⑼ 賤人工具箱5.7破解版有什麼用
管理和優化電腦操作系統的一個軟體工具。功能很多,例如清除臨時文件、一鍵修改IP等等。。以加快電腦運行速度、加快你需要更改電腦的某些項的速度。
⑽ 有沒有免費的CAD賤人工具箱
這些必須有呀.畫圖的,沒有不方便呀