點擊查看求CAD lisp 程序，選擇一條或多條多段線，輸出其上點的x,y,z坐標。具體信息

答：坐標標注插件，免費的，下載輸入AP加載之后，然后輸入zbbz就可以了。也可以安裝天正系列的軟件。

答：請查看附件，寫的lisp程序，輸入tt運行程序，批量選擇cad中的點，然后將坐標寫入txt文件。 指定保存文件的位置及名稱，...

答：復制下面的腳本到命令行回車即可加載，輸入pldd，程序會提示選擇pline，選擇pline后會打印所有的三維坐標 (defun c:pldd (/ wb cc ss1 aa pts bhbz ent) (setq ent (car (entsel "\n請選擇PLINE"))) (setq wb (entget ent) cc nil bhbz (cdr (as...

答：根據你的問題描述和程序，你應該是沒有搞清楚lisp里面“表”的概念，你應該把你的數據轉化成“點表”【例如：(0 . 0)，(1 . 1)】后再運用”command“語句; 如果你要大批量的引用數據，你還應使用循環語句repeat(或do while); 如果你只是想快速輸...

答：(DEFUN C:TT ( / ss ff ss1 en pt x y) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "dimzin" 0) (vl-load-com);;加載vlax擴展函數 (setq ss (ssget '((0 . "point"))) n 0);;請選擇點 (if (/= ss nil) (progn (setq ff (open "d://文...

答：vla-intersectWith 求，看cad幫助 (vla-intersectWith e1 e2 no) ;;no是表示是否延伸求交的線 0~3 。 也可以按最基本的幾何求法， 求圓心到 直線的垂線，垂點，已知半徑，線的角度 求距離。

答：我有提取CAD里的坐標到Excel表格的軟件，可以永久使用的，你要嗎？

答：(defun c:tqzb (/) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq wjm (getfiled "請指定要保存的坐標文件" "e:\\" "txt" 1)) (if (setq ssa (ssget '((0 . "LWPOLYLINE")))) (progn (setq fff (open wjm "w") n (sslength ssa)...

答：你想要怎么個批量法，是一次性將該圖中的所有合圍的面積全部查出來，然后，結果你想放在哪里呢，是否需要求總和呢？ 或者是你想要一個一個的用鼠標指定一個區域查一個呢？

答：可以首先把這幾個線框做成面域，然后用面域合并命令合并面域。然后總面積就出來了。不用lisp就可以實現了。

答：你是要統計多段線總長度還是要統計標注？ 如果是統計多段線長度，直接用area命令，o參數，選中多段線就可以得到長度了

答：上個DWG文件，，試一試，

答：在lisp的command命令中 ''相當于 pause

答：方案一：直接讀取dwg格式文件有點難度，估計高手會做 方案二：若是文件有很多要做的話，可以用C#，C++，VB通過COM去開發，用COM方式依次打開dwg圖檔，然后遍歷圖元來進行你的要求來運算 方案三：若是文件有很多要做的話，也可以用AutoLisp來做，...

答：電腦系統【卸載或更改程序】，點擊AutoCAD，添加功能【Express Tools】。 (setq ss1 (acet-geom-intersectwith ent1 ent2 0));取得兩個對象交點集合，如果沒有交點nil。

答：你是要根據點坐標自動生成閉合多段線嗎？

答：(defun C:tes ( / #k2 #kw) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (setq #kw (setq #kw (ssget (list '(0 . "LWPOLYLINE") '(70 . 0)))));選擇不封閉的多段線 (progn (initget "V C S E") (setq #k2 (getkword "\n選擇多段線或[移動(...

答：這個是大型的程序，需要分析對象。 一般情況下，文字與多段線是編組的，如果不是編組，又是另外的情況。 所以需要dwg文件來測試程序是否有效。

答：能說明輸入什么樣的參數 輸出什么樣的圖形？ 變色希望是什么效果的？ (setq cs (getvar "osmode")) (setvar "osmode" 0 ) (setq n1 (getint "\n個數:")) (setq d1 (getint "\n間距:")) (setq ent1 (car (entsel "\n選取圖元:"))) (setq p1 (getp...

更多精彩內容推薦：

總結

以上是生活随笔為你收集整理的zbbz的lisp_求CAD lisp 程序，选择一条或多条多段线，输出其上点的x,y,z坐标。的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。