寻求提取坐标的帮助

bestafirst

好像调试通过不了，不会用，能不能讲一下，谢了

zhongguola

不会吧？

我刚用过的很好用！

先加载此程序

再选择多义线，然后再CAD屏幕任意地方点击一下，就可标注出多义线的坐标，真的很好用。

realliyu

(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 "未命名" 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)

 )

zhongguola

这个程序根本就不能应用，在命令行提示：参数太少