setq jgzlb cons strcat zfc quot， quot rtos car p10 2 3 quot ， quot rtos cadr p10 2 3 jgzlbsetq i 1+ iIf jglb progn setq jgzlb reverse jgzlbsetq fff open quote提取承臺編號csvquot quotwquotforeach zfc jgzlb writeline zfc fffclose fffalert quot結(jié)果已存入\quote提取承臺編號csv\quot文件中！quot；這是CAD lisp語言中用到的幾個函數(shù)car 表示取出表中的第一個元素，cdr表示取出除了第一個元素的其他元素形成新的表它們嵌套的話從內(nèi)向外理解cadr #391 2 3 等價于car cdr #391 2 3caar #391 2 3 4 等價于car car #391 2 3 4依此類推，還有cdar cddr cdddr 等等。

defun c d ent f i lst m2 obj pt ss txt x y defun maketext txt pt 生成文字子函數(shù) entmake list #390 quotTEXTquot cons 62 1 cons 10 pt cons 40 10 cons 1 txt #3941 08寫文字，0表示字體，62表示顏色1紅，10表示坐標點，40表；一個是需要安裝源泉插件，文字工具中的編輯輸出文字，另一個就是CAD中的ET工具雖然是自帶的但是沒有安裝也是無法使用的。

工具\材料 電腦 cad軟件 1首先在電腦上下載并打開cad軟件，接著打開需要統(tǒng)計線段的cad圖紙2接著選擇一個需要統(tǒng)計的線段然后點擊鼠標右鍵，如下圖所示，點擊“統(tǒng)計長度”選項3接著繼續(xù)點擊需要統(tǒng)計的線段，選擇完成后點擊右鍵4然后移動鼠標到需要標注的位置點擊輸出統(tǒng)計的長度，如下圖所示；PO點L直線XL射線PL多段線ML多線SPL樣條曲線POL正多邊形REC矩形C圓A圓弧DO圓環(huán)EL橢圓REG面域MT多行文本T多行文本B，塊定義I插入塊W定義塊文件H填充M移動。

xtrans x 0 1 ptbforeach pt ptb setq no 1+ nowriteline strcat itoa no quot，quotrtos car pt 2 2 quot，quotrtos cadr pt 2 2 quot，quotfff close fffprinc strcat quot\n坐標已存入\quotquot wjm quot\quot中quotsetvar quotcmdechoquot cmprinc；你的意思你是計算所有筆畫的總面積是吧，分兩種情況1如果你的字是在cad里用線條描畫出來，那就好辦首先輸入pedit空格隨便選擇一條線組成字的線條如果是塊，要線打散空格輸入J空格框選所有的線條空格輸入aa空格輸入E空格選擇剛才的線條空格，這樣下面的對話框，就有結(jié)果了。

你理解錯誤了，什么Z軸 X軸都是你自己定位 只要你標出3個方向即可，在三維模式中一個面是X Y的話，他的旁邊面就是Z坐標3個方向你可以隨便定位哪個X 哪個Y 哪個Z；用li命令，不如使用特性窗口查詢打開特性窗口的方法是ctrl+1上排鍵的1，不要用小鍵盤的1選中要查詢的對象，在特性窗口中可以查詢許多該對象的信息，也可以改動他的特性長度和面積的單位，由你作圖所用的單位確定若你用毫米為單位。

因為你沒有選擇對象，所以不能夠歸零這個歸零有個缺點，如果對象已經(jīng)無窮遠，就無法歸零有Z坐標加強版，Z歸零，代碼如下Z坐標歸零defun cz0 block c10 c38 e ent i len ss setvar quotcmdechoquot 0 setvar quotblipmodequot 0 command quotUCSquot quotquot包圍盒坐標defun getbo；if and = quotAcDbRegionquot vlagetobjectname obj = 00 setq z caddr car getboundingbox ename vlamove obj vlax3dpoint list 0 0 z vlax3dpoint list 0 0 0 defun zerogroup x x cond 處理 1015 段，含 Z 坐標且非零組碼，設置Z。

或者 返回列表第一個值car getpoint“\n指定點pt”返回列表第二個值cadr getpoint“\n指定點pt”返回列表第三個值caddr getpoint“\n指定點pt”也可以這樣 setq ptgetpoint“\n指定點pt”返回列表第一個值car pt返回列表第二個值cadr pt返回列表第三個值caddr；在這段LISP代碼中，第15行缺少一個開括號，導致后續(xù)所有語句都無法正常執(zhí)行應該在第15行末尾添加一個左括號，將其與下一行的代碼合并在同一組中，即setq AcadObject vlaxgetacadobject AcadDocument vlagetActiveDocument Acadobject mSpace vlagetModelSpace Acaddocument此外，在。

其實很簡單的，不用三樓那么麻煩的defun cptsetvar quotcmdechoquot 0while setq pt1 getpoint quot\n請指定點位置quotsetq point_x rtos car pt1 2 2setq point_y rtos cadr pt1 2 2setq point_z rtos caddr pt1 2 2command quot_textquot pt1 quotquot。

6文件類型為DXE，最后保存即可；可以的，但是要用REGGAP聲明例如 regapp quotSYCADquot聲明SYCADregapp quotSOUTHquot 聲明SOUTH這是測量繪圖軟件CASS的擴展屬性存放名要提取的話可用 ENTGET enname list quot*quot其中ENNAME為對象名。