返回列表 上一主題 發帖

關於autolisp的問題

關於autolisp的問題

大家好
想請問個問題
我的autocad檔內有不少線條和圓形方塊
請問autocad lisp要怎麼寫
才能單純將線條的兩點座標匯出成文字檔呢?
我需要匯出用excel後續處理
有了座標,可以做定位和長度計算!

可以使用資料萃取功能(指令dataextraction)
這功能可以將圖面資訊匯出到Excel
選擇線或聚合線
品項篩選選擇幾何圖形
性質那奡N會出現你要的點座標和線段長度

TOP

(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)
)

TOP

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題