AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

[討論]請教把平面圖上的點位匯出成TXT檔的LISP

上一篇主題 下一篇主題 向下

[討論]請教把平面圖上的點位匯出成TXT檔的LISP

發表 由 ianlcc 于 2014-02-19, 08:19

請教一下
我如果想要把平面圖上的點位(或一條線的二端點位)要逐批的匯出成TXT檔的話,原理的方式就是,執行LISP之後,出現下列的選項供選擇,然後用滑鼠選取所需要的點位(X、Y、Z)點位與點位或X、Y、Z座標的值互相1個空格,然後可以選取1點或無限點位,選擇完之後就會把所選的點位匯出至TXT檔。
譬如:
步驟一、執行LISP
步驟二、選擇選項(假設選擇_line)
步驟三、點選6個點位,按ENTER
步驟四、產生TXT檔 _line 2 .1 5 4.1 6.2 4 5 3 6.7 4 2 3 6 5 1 7 5.1 9.5 9
_borehole
_point
_line
_beam
_n2nanchor
_embeddedpile
_well
_linedrain
_polycurve
_surface
_fixedendanchor
_plate
_geogrid

請各位前輩指導,謝謝。
avatar
ianlcc
一般會員
一般會員

文章總數 : 56
年齡 : 42
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 2225
威望值 : 33
注冊日期 : 2012-06-24
藍鵲486號
男 雙魚座 兔

回頂端 向下

請教在CAD圖上捉點並匯出TXT檔問題

發表 由 ianlcc 于 2014-02-20, 16:41

請教一下
我的OS是WIN 7、2014CAD
我載入下面的LISP之後,我要把CAD圖上的點匯出到TXT檔
待我點捉完了、也存到TXT檔之後,我把TXT檔打開之後
發現TXT檔內容是空白的,請問這是怎麼回事呢?

(defun c:hh()
 (command "CMDECHO" "0")
 (command "layer" "m" "hk" "c" "1" "" "")
 (setq yy (entsel"\n注意必須要點擊編號的圓 :"))
 (setq f (open (getfiled "坐標文件保存到" "c:" "txt" 1) "w"))
 (setq y (entget (car yy)))
 (setq tc (assoc 8 y))
 (setq dx (assoc 40 y))
 (setq zg (cdr dx))
 (setq s (ssget "x" (list '(0 . "CIRCLE") tc dx)))
 (setq n 0)
   (while
   (setq a (ssname s n))
   (setq xy (cdr (assoc 10 (entget a))))
   (setq dh (rtos (+ 1 n) 2 0))
   (command "layer" "s" "hk" "")
   (command "text" "j" "m" xy zg "0" dh "")
   (setq ss (strcat dh "," (rtos (nth 1 xy) 2 3) "," (rtos (nth 0 xy) 2 3)))
   (write-line ss f)
   (setq n (1+ n)))
  )
lisp檔下載: https://app.box.com/s/62bfn9o97nojez7e90bm
avatar
ianlcc
一般會員
一般會員

文章總數 : 56
年齡 : 42
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 2225
威望值 : 33
注冊日期 : 2012-06-24
藍鵲486號
男 雙魚座 兔

回頂端 向下

回復: [討論]請教把平面圖上的點位匯出成TXT檔的LISP

發表 由 明~ 于 2014-02-21, 16:49

我測試正常~
沒你說的問題!
avatar
明~
高級會員
高級會員

文章總數 : 307
年齡 : 37
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 4606
威望值 : 670
注冊日期 : 2009-12-24
藍鵲292號
男 雙魚座 猴

回頂端 向下

回復: [討論]請教把平面圖上的點位匯出成TXT檔的LISP

發表 由 ianlcc 于 2014-02-22, 13:58

我測試是有問題的
我是用2014版本的AUTOCAD
匯出的檔案,我打開後,裡面是空白的
試了N次還是一樣!
avatar
ianlcc
一般會員
一般會員

文章總數 : 56
年齡 : 42
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 2225
威望值 : 33
注冊日期 : 2012-06-24
藍鵲486號
男 雙魚座 兔

回頂端 向下

回復: [討論]請教把平面圖上的點位匯出成TXT檔的LISP

發表 由 Atsai 于 2014-02-24, 13:27

應該是win7的UAC沒有關閉及權限沒有打開,當寫入c槽的時候會出錯!
avatar
Atsai
中級會員
中級會員

文章總數 : 115
年齡 : 42
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 7
經驗值 : 2901
威望值 : 337
注冊日期 : 2012-04-06
男 金牛座 兔

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章