賤人工具箱如何標注點坐標

❶ 賤人工具箱5.8如何將cad表格數據快速轉入execl表格當中,並能復制使用

1、把需要輸出坐標的點用多段線連接起來。
2、然後選中這條多段線。輸入命令list。
3、出專來一個對話框，這些點的屬坐標就分別出來了。
4、然後復制，直接粘貼到EXCEL。這個時候數據是一個整體。
5、你如果需要編輯的話。可以點擊數據-分列（快捷可以點那個粘貼選項，就是你粘貼過來下面那個像文件夾的圖標）。

❷ cad怎麼連續編號插件

首先下載cad插件「賤人工具箱」。打開cad，輸入ap載入一下cad插件「賤人工具箱」
2
/4
載入完成後輸入DT,先輸入一個編號BL-01-01，回車
3
/4
輸入y，選擇賤人工具箱上的遞增復制，然後輸入1，回車
4
/4
選中編號，回車然後單擊空白處，就出來遞增的編號了

❸ 賤人工具箱如何編號如一個圓有很多個不同樣的圖型，編成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圖中坐標在圖中怎拉出來

如果是有天正的就用 插件。

沒有插件 可以去網路一下 賤人工具箱 有拉坐標的功能。

如果沒有就需要手動拉出來。

就是自己做標注 沒有插件那麼方便

ps：需要拉坐標的地方畫個圓，圓心就是坐標。 記住坐標 然後打數字上去。

❺ cad載入賤人工具，提取坐標時，無法連接EXCEL,這是什麼情況我想一下提取所有的樁點坐標，求幫助。

我有批量提取樁點坐標的插件，可以對樁點自動編號的，並能夠導出到EXCEL表格里，可以永久使用的

❻ 怎樣在CAD里同時標注XY坐標

下載個賤人工具箱

❼ 賤人工具箱怎麼使用

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

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

❽ 圖紙上的坐標怎麼用CAD裡面的坐標標示出來

圖紙上坐標，往CAD軟體上輸入的時候，現輸入Y，然後在輸入X坐標。

標注坐標的時候，用一下輔助軟體比較好。直接就標注出XY坐標值。

比喻賤人工具箱，迷你等等

❾ 天正怎麼樣標注坐標啊

提交回答

天正建築左側快捷鍵符號標注里有坐標標注，很簡單。

❿ cad載入賤人工具，提取坐標時，無法連接EXCEL,這是什麼情況我想一下提取所有的樁點坐標，求幫

我使用賤人工具箱也遇到過這個問題。有2個原因：
1、個人電腦安裝的是免費家庭版，這個版本的excel是殘缺的，無法通過cad連接，只能通過安裝專業版或365版之類的全量包進行解決。
2、電腦是安裝了wps的，ms的excel安裝在wps之前，被wps安裝的「第三方兼容」選項把ms的excel位置佔用了，導致無法識別。解決辦法是把office重新修復安裝一遍。在「控制面板-程序-安裝與卸載-右鍵office-修改-修復」。修復完成後就能用了。