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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]請教把平面圖上的點位匯出成TXT檔的LISP Ioaoe110[討論]請教把平面圖上的點位匯出成TXT檔的LISP 2020-310[討論]請教把平面圖上的點位匯出成TXT檔的LISP Oiu15010[討論]請教把平面圖上的點位匯出成TXT檔的LISP 2020-211[討論]請教把平面圖上的點位匯出成TXT檔的LISP Ia15010[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aizyao10[討論]請教把平面圖上的點位匯出成TXT檔的LISP Uos15010[討論]請教把平面圖上的點位匯出成TXT檔的LISP BPl3tjj[討論]請教把平面圖上的點位匯出成TXT檔的LISP Ziao1510
[討論]請教把平面圖上的點位匯出成TXT檔的LISP Oo-2-110[討論]請教把平面圖上的點位匯出成TXT檔的LISP Zuoiy_10[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aizyao11[討論]請教把平面圖上的點位匯出成TXT檔的LISP Iyb_1510[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe1-111[討論]請教把平面圖上的點位匯出成TXT檔的LISP Uos15011[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe2da10[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe2da11[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe10

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

3 posters

向下

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

發表 由 ianlcc 2014-02-19, 16: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

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

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

回頂端 向下

[討論]請教把平面圖上的點位匯出成TXT檔的LISP Empty 請教在CAD圖上捉點並匯出TXT檔問題

發表 由 ianlcc 2014-02-21, 00: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
ianlcc
ianlcc
一般會員
一般會員

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

回頂端 向下

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

發表 由 明~ 2014-02-22, 00:49

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

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

回頂端 向下

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

發表 由 ianlcc 2014-02-22, 21:58

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

____________________________________________________________________________________
[討論]請教把平面圖上的點位匯出成TXT檔的LISP Ioaoe110 [討論]請教把平面圖上的點位匯出成TXT檔的LISP Zuoiy_10 [討論]請教把平面圖上的點位匯出成TXT檔的LISP 2020-211 [討論]請教把平面圖上的點位匯出成TXT檔的LISP Aizyao11 [討論]請教把平面圖上的點位匯出成TXT檔的LISP Iyb_1510
[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aizyao10 [討論]請教把平面圖上的點位匯出成TXT檔的LISP BPl3tjj.png [討論]請教把平面圖上的點位匯出成TXT檔的LISP Ziao1510 [討論]請教把平面圖上的點位匯出成TXT檔的LISP Oo-2-110 [討論]請教把平面圖上的點位匯出成TXT檔的LISP Oooa_110
ianlcc
ianlcc
一般會員
一般會員

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

回頂端 向下

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

發表 由 Atsai 2014-02-24, 21:27

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

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]請教把平面圖上的點位匯出成TXT檔的LISP Ioaoe110[討論]請教把平面圖上的點位匯出成TXT檔的LISP 2020-310[討論]請教把平面圖上的點位匯出成TXT檔的LISP Oiu15010[討論]請教把平面圖上的點位匯出成TXT檔的LISP 2020-211[討論]請教把平面圖上的點位匯出成TXT檔的LISP Ia15010[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aizyao10[討論]請教把平面圖上的點位匯出成TXT檔的LISP Uos15010[討論]請教把平面圖上的點位匯出成TXT檔的LISP BPl3tjj[討論]請教把平面圖上的點位匯出成TXT檔的LISP Ziao1510
[討論]請教把平面圖上的點位匯出成TXT檔的LISP Oo-2-110[討論]請教把平面圖上的點位匯出成TXT檔的LISP Zuoiy_10[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aizyao11[討論]請教把平面圖上的點位匯出成TXT檔的LISP Iyb_1510[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe1-111[討論]請教把平面圖上的點位匯出成TXT檔的LISP Uos15011[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe2da10[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe2da11[討論]請教把平面圖上的點位匯出成TXT檔的LISP Aoe10