学习分享：图元dxf组码获取方法

小万LISP

最近在学习用entmake创建图元，为了更好的使用这个命令，就得查看目标图元的DXF组码。不知从哪位大神那复制来的代码，我从中提取了所需部分，改成了自己想用的。先分享出来：
方法1：

• ;图元属性数据分行列出，所获坐标为世界坐标系坐标
• (defun c:dxf(/ x )
•   (foreach x (entget (car (entsel)) '("*"))
•     (print x)
•   )
•   (princ)
• )
  

方法2：

• ;图元属性数据分行列出，所获坐标为世界坐标系坐标
• (defun c:dxf2(/ sj a )
•   (setq  sj(entget(car(entsel)))  )
•   (while(cdr sj)
•     (setq a(car sj)  sj(cdr sj)  )
•     (print a)
•   )
•   (princ)
• )
  

本想把所获数据导出到txt文本中，无奈新手上路，尝试多次失败，只能显示在命令行中了。
如有大神帮忙改下，不胜感激！

taoyi0727

(defun c:tt (/ dcl_file dxf file)
        (setq dxf (entget (car (entsel))))
        (setq Dcl_File (vl-filename-mktemp nil nil ".txt"))
        (setq file (open Dcl_File "w"))
        (foreach x dxf
                (write-line (vl-prin1-to-string x) file)
        )
        (close file)
        (startapp "notepad" Dcl_File)
)

zkq1212

学习了，谢谢分享

zj20190405

taoyi0727 发表于 2019-9-28 23:21
(defun c:tt (/ dcl_file dxf file)
        (setq dxf (entget (car (entsel))))
        (setq Dcl_File (vl-filename ...

大佬能加个动态块属性组码吗

趣意人生

学习了，谢谢分享

Carter丶Bo

学习了，谢谢分享

趣意人生

学习了，谢谢分享