[求助]怎样提取文件中的所有点坐标?

51082481

文件中说明         跪求!

yshf

;请试用以下程序
(defun c:tjzb()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq ff (open (getfiled "请指定坐标数据存盘文件" "" "txt" 1) "w")
p1 (getpoint "\n请指定提取范围左上角：")
p2 (getcorner p1 "\n请指定提取范围右上角：")
)
(if (setq sa (ssget "w" p1 p2 '((0 . "POINT"))))
(progn
(setq n (sslength sa) i 0)
(repeat n
(setq db (cdr (assoc 10 (entget (ssname sa i)))) i (1+ i))
(princ (strcat (rtos (car db) 2 5) " , "
(rtos (cadr db) 2 5) " , "
(rtos (last db) 2 5) "\n"
)
ff
)
)
)
(alert "所指定范围内没有点")
)
(close ff)
(setvar "cmdecho" cm)(princ)
)

51082481

非常感谢 楼上的


真的很厉害 !

wolaikk

yshf 能再加上单选点吗？如果从图上仅仅需要某些已知点的情况下用，点样式最好能支持多一些