(DEFUN C:TT ( / ss ff ss1 en pt x y)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(setvar "dimzin" 0)

(vl-load-com);;加载vlax扩展函数

(setq ss (ssget '((0 . "point"))) n 0);;请选择点

(if (/= ss nil)

(progn

(setq ff (open "d://文字到TXT.txt" "w") ss1 '());;在D盘建立记事本《文字到TXT》这里可以查看内容

(repeat (sslength ss);;循环选择

(setq en (ssname ss n) n (+ n 1);;提取图元

pt (cdr (assoc 10 (entget en)));;取得点坐标

ss1 (cons pt ss1);;加入表

)

)

(setq ss1 (vl-sort ss1 (function (lambda (x y)(

(setq ss1 (vl-sort ss1 (function (lambda (x y)(> (cadr x) (cadr y))))));;Y排序从上到下

(foreach en ss1;;函数遍历表，将其中每一个元素依次赋给变量，并对每一个表达式求值

(setq x (rtos (car en) 2 5))

(setq y (rtos (cadr en)2 5));;取得Y坐标精确到小数点后5位

(princ x ff)

(princ "," ff)

(princ y ff)

(princ "\n" ff)

)

(close ff)

)

)

(princ)

)

这个TT命令修改了一下，可以对点坐标排序，保存到D盘《文字到TXT》记事本里面；实际上坐标需要X=；Y=这个标记的，这个标记表示大地坐标；大地坐标X=cad里面的y坐标，同样的Y=cad里面的x坐标，所以不能够随便修改文字格式。

更多追问追答

追问

利用原来那个TT命令流，不用选择对象输入“tt"后自动出来点坐标，不过那些坐标值与实际CAD中坐标值不一样，不太懂。还有就是输出坐标点数与实际不一样，而且输出的很乱。您的命令应该就是图元集吧，从网上看过。。下面的CAD图就是小弟要提取点坐标的dwg图，就是提取网格点坐标，横向从左向右编号，竖向从下往上编号，就是加载您的命令选择对象为0个。不知道怎么回事，还望大神指教。。

追答

提取的对象必须是(点)，交点或块里面的点都不能够提取。

要得到交点的话，需要别的方法，如这条多段线里面有多少个点提取出来，就可以了。

(setq ss (ssget '((0 . "point"))) n 0);以下修改为：

(setq ss (ssget '((0 . "point,LWPOLYLINE"))) n 0)

(if (/= ss nil)

(progn

(setq ff (open "d://文字到TXT.txt" "w") ss1 '())

(repeat (sslength ss)

(setq en (ssname ss n) n (+ n 1)

pt (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget en)))

i (length pt)

L 0

)

(repeat i

(setq pt1 (nth L pt)

L (+ L 1)

ss1 (cons pt1 ss1);;加入表

)

)

)

(setq ss1 (reverse ss1) ss (cdr (assoc 0 (entget (ssname ss 0)))));;取得第一个图元

(if (/= ss "LWPOLYLINE");不是多段线的话排序

(setq ss1 (vl-sort ss1 (function (lambda (x y)(< (car x) (car y)))))

ss1 (vl-sort ss1 (function (lambda (x y)(> (cadr x) (cadr y)))))

)

)

(foreach en ss1

(setq x (rtos (car en) 2 5))

(setq y (rtos (cadr en)2 5))

(princ x ff)

(princ "," ff)

(princ y ff)

(princ "\n" ff)

)

(close ff)

)

)

(princ)

)

追问

(我是框选的，然后就出来对象为0个)非常感谢您，这么细心解答。。那照您说的，图中的线必须是多段线才能够提取每个点，要是网格线用的是普通的line命令可以么。。不过我刚刚试了，怎么提取点的坐标与实际的不一样呢，我的图中线不是多段线画的。还有好像提取的比较乱，X、Y值我在excel中导入数据在同一列了，我想分在A、B两列这种，这样好处理数据。谢谢