aspen 发表于 2005-11-24 20:15

[转帖]将autocad中坐标输出文本文件的lisp

不知道好不好用，有需要的可以试一下

(defun c:zb2txt1()
(setq ffn (getfiled "坐标写入文本文件" "c:/坐标" "txt" 1))
(setq opf (open ffn "w"))
(setq ss (ssget '((0 . "*LINE"))))
(setq kg " ")
(setq txt (strcat "角点" kg "X坐标" kg "Y坐标"))
(write-line txt opf)
;(princ (strcat "角点" kg "X坐标" kg "Y坐标") opf)
(setq i -1)
(setq key 10)
(repeat (sslength ss)
(setq ent (entget (ssname ss (setq i (1+ i)))))
(setq count 1)
(foreach xy ent
(if (eq (car xy) key)
(progn
(setq pe (cdr xy))
(setq x (rtos(cadr pe)2 3))
(setq y (rtos(car pe)2 3))
(write-line (strcat (itoa count) kg x kg y) opf)
;(princ "\n" opf)
;(princ (strcat (itoa count) kg x kg y) opf)
(setq count (1+ count))
)
)
)
)

(close opf)
(princ(strcat "\n坐标已写入文本: " ffn))
(princ)
)

ptsos 发表于 2005-12-28 13:28

上面的程序能输出线段的坐标，不能输出点的坐标，希望能完善。

zhizhusyh 发表于 2006-1-3 21:16

?

?

怎么用？我是菜鸟想学学 呵呵

wasp 发表于 2006-1-20 11:03

good

tnt2002 发表于 2006-2-17 09:47

好程序，谢谢

好程序，谢谢

hunter_009 发表于 2009-6-21 17:58

能不能将直线的六个坐标都导出呢，我不会LISP，所以请哪位仁兄改一下程序了

剑啸熙枫 发表于 2009-7-31 16:31

有只输出点坐标的没有？
页: [1]
查看完整版本: [转帖]将autocad中坐标输出文本文件的lisp