给它一个go，期望文本样式为pick pt，默认ht=0，而不是预设
- (defun pt2txt ( / ss x y z lineans)
- (setq ss (ssget "x" (list (cons 0 "Point"))))
- (setq fout (open "C:/temp/pt2txt.csv" "w"))
- (setq I 0)
- (repeat (sslength ss)
- (setq pt (assoc 10 (entget (ssname ss I))))
- (setq x (nth 1 pt))
- (setq y (nth 2 pt))
- (setq z (nth 3 pt))
- (setq lineans (strcat (rtos (+ I 1) 2 0) "," (rtos x 2 3) "," (rtos y 2 3) "," (rtos z 2 3)))
- (princ lineans)
- (command "text" (list x y z ) 2.5 0 lineans ) ;pt x y z
- ;(command "text" (list x y z ) 2.5 0 (rtos I 2 0) ) ; pt numb only
- (write-line lineans fout)
- (setq I (+ I 1))
- ) ; repeat
- (close fout)
- (princ)
- )
- (pt2txt)
| 
置顶卡
