返回列表下一主題上一主題發帖

關於autolisp的問題

yenwang

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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

小學生 Rank: 1

帖子: 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

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題