(defun c:plzbsc()
(princ "\n
選擇所需輸出的點(
point
)
:")
(setqss (ssget ));;
選取坐标點
(setq n (sslengthss ));
計算坐标點數量
(setqff (open (getfiled "
檔案儲存為
" "f:/" "dat" 1) "w"));
儲存路徑
(setqi 0)
(repeat n
(setqspt (ssnamessi ))
(setqept (entgetspt))
(if (= (cdr (assoc 0 ept)) "POINT")
(progn
(setqlxyz (cdr (assoc 10
ept)))
(setqsx (rtos (nth 1 lxyz)));
将坐标值實數轉換成字元
(setqsy (rtos (nth 0 lxyz)))
(setqsz (rtos (nth 2 lxyz)))
(setq i1 (+ i 1));
計算點序号
(setqsn (rtos i1 2 0));
将序号實數轉換成字元
(setqsxyz (strcatsn",,"
sy ","
sx
","
sz))
(write-linesxyzff)
)
)
(setqi (+ i 1))
);repeat
)
(prompt "* <<
指令
:plzbsc>> *
輸出格式(點号
,, Y
,
X
,
Z
)
**")
(prin1)