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提取承臺(tái)編號(hào)csvquot quotwquotforeach zfc jgzlb writeline zfc fffclose fffalert quot結(jié)果已存入\quote提取承臺(tái)編號(hào)csv\quot文件中！quot；這是CAD lisp語(yǔ)言中用到的幾個(gè)函數(shù)car 表示取出表中的第一個(gè)元素，cdr表示取出除了第一個(gè)元素的其他元素形成新的表它們嵌套的話從內(nèi)向外理解cadr #391 2 3 等價(jià)于car cdr #391 2 3caar #391 2 3 4 等價(jià)于car car #391 2 3 4依此類(lèi)推，還有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寫(xiě)文字，0表示字體，62表示顏色1紅，10表示坐標(biāo)點(diǎn)，40表；一個(gè)是需要安裝源泉插件，文字工具中的編輯輸出文字，另一個(gè)就是CAD中的ET工具雖然是自帶的但是沒(méi)有安裝也是無(wú)法使用的。

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

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坐標(biāo)已存入\quotquot wjm quot\quot中quotsetvar quotcmdechoquot cmprinc；你的意思你是計(jì)算所有筆畫(huà)的總面積是吧，分兩種情況1如果你的字是在cad里用線條描畫(huà)出來(lái)，那就好辦首先輸入pedit空格隨便選擇一條線組成字的線條如果是塊，要線打散空格輸入J空格框選所有的線條空格輸入aa空格輸入E空格選擇剛才的線條空格，這樣下面的對(duì)話框，就有結(jié)果了。

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

因?yàn)槟銢](méi)有選擇對(duì)象，所以不能夠歸零這個(gè)歸零有個(gè)缺點(diǎn)，如果對(duì)象已經(jīng)無(wú)窮遠(yuǎn)，就無(wú)法歸零有Z坐標(biāo)加強(qiáng)版，Z歸零，代碼如下Z坐標(biāo)歸零defun cz0 block c10 c38 e ent i len ss setvar quotcmdechoquot 0 setvar quotblipmodequot 0 command quotUCSquot quotquot包圍盒坐標(biāo)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 坐標(biāo)且非零組碼，設(shè)置Z。

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

其實(shí)很簡(jiǎn)單的，不用三樓那么麻煩的defun cptsetvar quotcmdechoquot 0while setq pt1 getpoint quot\n請(qǐng)指定點(diǎ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文件類(lèi)型為DXE，最后保存即可；可以的，但是要用REGGAP聲明例如 regapp quotSYCADquot聲明SYCADregapp quotSOUTHquot 聲明SOUTH這是測(cè)量繪圖軟件CASS的擴(kuò)展屬性存放名要提取的話可用 ENTGET enname list quot*quot其中ENNAME為對(duì)象名。