AutoLISP將多段線各個(gè)端點(diǎn)坐標(biāo)寫入外部文件，代碼如下。

(defun c:test()
? (setvar "cmdecho" 0)
? (setq ffn (getfiled "選取文件" "" "doc" 1))
? (setq ff (open ffn "w"))
? (close ff)
? (princ "\n選取多段線：")
? (setq ss (ssget))
? (setq i 0)
? (setvar "pdmode" 33)
? (repeat (sslength ss)
??? (setq ssn (ssname ss i))
??? (setq endata (entget ssn))
??? (setq n 0)
??? (repeat (length endata)
??? (setq pp (nth n endata))
??? (setq key (car pp))
??? (if (= key 10)
????? (progn
??? (setq x (cadr pp))
??? (setq y (cadr pp))
??? (command "point" (list x y))
??? (setq ff (open ffn "a"))
??? (princ x ff)
??? (princ " " ff)
??? (princ y ff)
??? (princ "\n" ff)
??? (close ff)
??? )
????? )
??? (setq n (1+ n))
??? )
? (setq ff (open ffn "a"))
? (princ "End\n" ff)
? (close ff)
? (setq i (1+ i))
? )
(princ (strcat "\n文件寫至=" ffn))
(prin1)
)

代碼完。

總結(jié)

以上是生活随笔為你收集整理的AutoLISP将多段线各个端点坐标写入外部文件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。