一鍵操作,實現(xiàn)CAD圖紙工程量的快速核算

1、一鍵操作，實現(xiàn)圖紙工程量的快速核算在工程管理和審計等工作中經(jīng)常要核對一些項目的工程量，尤其像一些管道及線路工程，數(shù)據(jù)量龐大，常規(guī)的手工采用計算器計算會占用大量的工作時間，且易出現(xiàn)計算錯誤和誤差，為提高工作效率和提高核算精準度，結合一些工作經(jīng)驗，特整理出如下技巧，達到充分解決該問題的目的。一、 制作腳本文件；1、 新建txt文檔；2、 打開粘貼如下內容進去：(defun c:add() (setq sblip (getvar "blipmode") scmde (getvar "cmdecho") (prompt "nSelect objects

2、") (setq ss (ssget (list (cons 0 "text") pt1 (getpoint "n給出結果位置") f1 (getvar"dimtxt") i1 2 len (sslength ss) all 0.0 i 0) (repeat len (setq namei (ssname ss i) (setq li (entget namei) (setq ti (cdr(assoc 1 li) (setq ti (atof ti) (setq all (+ ti all) (setq i(+ 1 i)

3、) (setq ss nil) (setq all(rtos all 2 i1) (command "text" "j" "mc" pt1 f1 0 all) (setvar "blipmode" sblip) (setvar "cmdecho" scmde)3、 保存，修改擴展名為“l(fā)sp”（如：新建文本文檔.lsp為AUTOCAD識別文件）二、 導入和執(zhí)行1、 打開圖紙文件；2、 在下步命令窗口鍵入“ap”回車；3、 在彈出的窗口中選擇腳本導入：關閉窗口。4、 框選要計算的路段或區(qū)域：5、

4、選擇計算字段：（全部或根據(jù)需要）6、 在命令窗口中鍵入“add空格”，提示結果輸出位置，在圖紙隨意空白處單擊合計結果就會顯示。三、 特殊情況處理1、作為內部材料，一般情況下圖紙為非加密狀態(tài)，但由于不同的制圖人員的習慣不同，工程量標注會出現(xiàn)圖塊和外部參照的情況，在選擇核算區(qū)域時會提示“select objects結果為0”，這個時候上述的方法不能馬上使用，需要先將圖塊炸開后對獨立的圖素再操作。步驟也比較簡單，選擇需要炸開的范圍，在命令框輸入“x”命令回車即可。2、如果遇到比較頑固和圖紙，無法進行編輯和炸開時，以下的操作是個不錯解決方法：（1）首先，你打開圖，（一般這樣的圖可以打開，但是無法編輯，不管你想盡任何方法去炸，或者是想在位編輯，都是徒勞的。)然后使用輸出命令輸入EXPORT,確認后會彈出對話框讓你選擇保存的格式，然后你另存為WMF格式，存好后關閉CAD.（2）再次打開CAD，記得是打開空的CAD。然后輸入import,確認后彈出對話框，選擇剛才保存好的文件，打開后，等進度條滿后，就可以炸開了，你就可以任意編輯。3、還有一些為1、2步驟均不能實現(xiàn)的情況，如可以