返回列表 上一主題 發帖

關於autolisp的問題

yenwang

帖子
57 
主題
36 
精華
0 
積分
94 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
註冊時間
2014-9-10 
最後登錄
2024-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-8 21:25 | 只看該作者

關於autolisp的問題

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

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
2#
發表於 2017-1-25 17:21 | 只看該作者
可以使用資料萃取功能(指令dataextraction)
這功能可以將圖面資訊匯出到Excel
選擇線或聚合線
品項篩選選擇幾何圖形
性質那裏就會出現你要的點座標和線段長度

TOP

lawrence168

帖子
1 
主題
0 
精華
0 
積分
9 
點名
0  
作業系統
win7 
軟體版本
x64 
閱讀權限
10 
性別
男 
註冊時間
2017-2-6 
最後登錄
2017-3-26 
3#
發表於 2017-2-9 22:54 | 只看該作者
(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

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題