關於autolisp的問題
大家好想請問個問題
我的autocad檔內有不少線條和圓形方塊
請問autocad lisp要怎麼寫
才能單純將線條的兩點座標匯出成文字檔呢？
我需要匯出用excel後續處理
有了座標，可以做定位和長度計算！ 可以使用資料萃取功能(指令dataextraction)
這功能可以將圖面資訊匯出到Excel
選擇線或聚合線
品項篩選選擇幾何圖形
性質那裏就會出現你要的點座標和線段長度 (defun c:TEXTEX()
(setq ffn (getfiled "寫出檔案" "" "" 1))
(princ "\n選取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (= sstyp "TEXT")
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\n寫出檔案: " ffn))
(prin1)
)
頁:
[1]