song宋_74729 发表于 2016-2-6 12:45:09

提取坐标至txt

本帖最后由 song宋_74729 于 2022-8-7 20:08 编辑

提取坐标至txt能够用lsp编源码 谢谢

wmz 发表于 2016-2-6 13:31:23

来一个最简单的
(defun c:tt()
   (setq f (open "d:/text.txt" "w"))
   (setq s (ssget "X" '((8 . "5")(0 . "INSERT"))))
   (setq n (sslength s) m 0)
(repeat n
    (setq e1 (ssname s m) m (1+ m))
    (setq e2 (entget e1))
    (setq d1 (cdr(assoc 10 e2)))
    (setq pp (strcat (rtos m 2 0) "," (rtos (car d1) 2 2) "," (rtos (cadr d1) 2 2) "," (rtos (caddr d1) 2 3)))
    (write-line pp f)
)
   (close f)
   (princ)
)

song宋_74729 发表于 2016-2-6 13:44:26

本帖最后由 song宋_74729 于 2022-8-7 20:08 编辑

感谢 已经解决问题
页: [1]
查看完整版本: 提取坐标至txt