[討論]請教把平面圖上的點位匯出成TXT檔的LISP
3 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]請教把平面圖上的點位匯出成TXT檔的LISP
請教一下
我如果想要把平面圖上的點位(或一條線的二端點位)要逐批的匯出成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
請各位前輩指導,謝謝。
我如果想要把平面圖上的點位(或一條線的二端點位)要逐批的匯出成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
請各位前輩指導,謝謝。
ianlcc- 一般會員
- 文章總數 : 159
年齡 : 49
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 5308
威望值 : 69
注冊日期 : 2012-06-24
請教在CAD圖上捉點並匯出TXT檔問題
請教一下
我的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
我的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
ianlcc- 一般會員
- 文章總數 : 159
年齡 : 49
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 5308
威望值 : 69
注冊日期 : 2012-06-24
回復: [討論]請教把平面圖上的點位匯出成TXT檔的LISP
我測試正常~
沒你說的問題!
沒你說的問題!
明~- 高級會員
- 文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 7120
威望值 : 667
注冊日期 : 2009-12-24
回復: [討論]請教把平面圖上的點位匯出成TXT檔的LISP
我測試是有問題的
我是用2014版本的AUTOCAD
匯出的檔案,我打開後,裡面是空白的
試了N次還是一樣!
我是用2014版本的AUTOCAD
匯出的檔案,我打開後,裡面是空白的
試了N次還是一樣!
ianlcc- 一般會員
- 文章總數 : 159
年齡 : 49
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 5308
威望值 : 69
注冊日期 : 2012-06-24
回復: [討論]請教把平面圖上的點位匯出成TXT檔的LISP
應該是win7的UAC沒有關閉及權限沒有打開,當寫入c槽的時候會出錯!
Atsai- 中級會員
- 文章總數 : 167
年齡 : 49
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 8
經驗值 : 5855
威望值 : 524
注冊日期 : 2012-04-06
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章