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

由 **ianlcc** 周三 19 2月 - 8: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** 周四 20 2月 - 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