wlbwrh 发表于 2011-8-7 11:17:18

求助：如何用LISP读取CAD中许多散点的坐标

我想把CAD中许多散点的坐标读到一个文本文件中，只需X，Y坐标就行了，有高手帮帮忙吧

Gu_xl 发表于 2011-8-7 12:56:53

本帖最后由 Gu_xl 于 2011-8-7 12:57 编辑

回复 wlbwrh 的帖子


(DEFUN C:TT (/ SS FN F N EN PT X Y)
(setq ss (ssget "x" '((0 . "point"))))
(if ss
    (progn
      (setq fn "d:\\坐标.txt")
      (setq f (open fn "w"))
    (repeat (setq n (sslength ss))
      (setq en (ssname ss (setq n (1- n))))
      (setq pt (cdr (assoc 10 (entget en)))
            x (car pt)
            y (cadr pt)
            )
      (write-line (strcat (rtos x 2 3) "," (rtos y 2 3)) f)
      )
      (close f)
      (startapp "notepad.exe" fn)
    )
    )
(princ)
)

wlbwrh 发表于 2011-8-7 15:41:09

非常感谢，好人啊

mogm127 发表于 2011-12-19 15:13:24

图元集，好方法咧！
页: [1]
查看完整版本: 求助：如何用LISP读取CAD中许多散点的坐标