拐点图怎么转化成txt格式的坐标？求大侠指点

张好

像这种，具体怎么操作，急 。

rexxar

选取需要拐点坐标的多段线-list

rexxar

选取多段线-list

傻傻暴暴

多段线LIST会有重复点坐标的情况，地信论坛里面有cadlsp导出坐标文本的文件，可以直接生成序号的，你再用word和excel编辑就好了的

山涧小石

1、连接多段线-list，这是一个好方法2、快速选择，后用cad导出也是一种好办法，需要2010以上版本3、快速选择后直接保存为dxf，用txt打开，也可以4、一段简单的代码也许可以帮你（这是框选版的lsp代码）(defun C:zbsc ()
(setq ss2 (ssget '((0 . "MTEXT"))))
  (setq n 0)                      ;;;;将索引号初始为0.
(setq shitigeshu (sslength ss2)) ;;;返加选择集中实体个数。
(repeat shitigeshu
(setq stb (entget (ssname ss2 n))) ;;;返回选择集中指定索引号的列表
(setq mc (assoc 1 stb)) ;;;;在列表中找与关键字相同的元素，点对表，文字内容
(setq nr (cdr mc)) ;;;反回点对表中的第二个元素，文字内容。
(setq zblb (assoc 10 stb)) ;;;返回坐标列表。
(setq xzb (nth 1 zblb)) ;;;;返回X坐标。
(setq xzbzh (rtos xzb)) ;;;将X坐标转换为字符串。
(setq yzb (nth 2 zblb)) ;;;;返回y坐标
(setq yzbzh (rtos yzb)) ;;;;;将y坐标转换为字符串。
(setq zzb (nth 3 zblb)) ;;;;;返回z坐标。
(setq zzbzh (rtos zzb)) ;;;;;;将z坐标转换为字符串。
(setq hecheng (strcat nr " "  xzbzh " " yzbzh " " zzbzh))
(setq wj (open "e:/new.txt" "a"))
(write-line hecheng wj)
(setq n (+ 1 n))
)
  (close wj)
)5、cass可以直接输出