输出POLYLINE顶点到TXT文件

marting · 发表于 2017-2-7 22:50:42

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

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:GetVertex ()
  (vl-load-com)
  (setq ent (car (entsel)))
  (setq entl (entget ent))
  (setq ct 0)
  (setq file "d:/Mytest.txt")
  (setq x (open file "a"))
  (repeat (length entl)
    (if (= 10 (car (nth ct entl)))
      (progn
 (print (car (nth ct entl)))
 (print (nth ct entl) x)
      )
    )
    (setq ct (1+ ct))
  )
    (close x)
)

yoyoho · 发表于 2017-2-9 18:24:03

啥也不说了，感谢 marting 分享程序!!!

cq_qg68 · 发表于 2017-2-10 09:21:11

十分简洁的代码。

占卜者 · 发表于 2017-4-4 22:18:31

谢谢

账号		自动登录	找回密码
密码			立即注册

[每日一码] 输出POLYLINE顶点到TXT文件

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