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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

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

(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

有只输出点坐标的没有？

账号		自动登录	找回密码
密码			我要加入

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

?

好程序，谢谢