讀取圖面中的孔位置寫出座標至檔案.txt中

sqqr

;;读取图面中的孔位置写出座标至档案.txt中
(defun c:cirpt()
(setq ffn (getfile "选取档案" "" "txt" 1))
(setq ff (open ffn "w"))
(princ "\n选取孔穴:")
(setq ss (ssget)) (setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq sstyp (cdr (assoc 0 (entget ssn))))
(if (= sstyp "CIRCLE")
(progn
(setq c_pt (cdr (assoc 10 (entget ssn))))
(princ (car c_pt) ff) (princ "" ff)
(princ (cadr c_pt) ff) (princ "" ff)
(princ (caddr c_pt) ff) (princ "\n" ff) )
)
)
(setq i (1+ i)) )
(close ff)
(princ (strcat "\n档案名称==>" ffn))
(prin1)
)

5956263

用不到吹牛

lmc

用不到吹牛

spring

(defun c:cirpt (/ ffn ff)
(setq ffn (getfiled "选取档案" "" "txt" 1))
(setq ff (open ffn "w"))
(princ "\n选取孔穴:")
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq sstyp (cdr (assoc 0 (entget ssn))))
(if (= sstyp "CIRCLE")
(progn
(setq c_pt (cdr (assoc 10 (entget ssn))))
(princ (car c_pt) ff)
(princ "" ff)
(princ (cadr c_pt) ff)
(princ "" ff)
(princ (caddr c_pt) ff)
(princ "\n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\n档案名称==>" ffn))
(prin1)
)