[求助]：谁能提供DXF文件的读取源程序（LISP）？

bubble0126 · 发表于 2005-5-21 15:57:39

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

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

×

只需要读取图元信息即可

它山之石 · 发表于 2005-5-21 16:10:19

[php]
(DEFUN C:SHOW (/ Q1)
  (SETQ Q1 (CAR (ENTSEL)))
  (PRINC "\n")
  (PRINC (ENTGET Q1))
  (PRINC "\n")
  (PRINC (ENTGET (ENTNEXT Q1)))
  (PRINC)
)

[/php]

命令: show
选择对象:
((-1 . <图元名: 7efd1060>) (0 . INSERT) (330 . <图元名: 7ef6fcc0>) (5 . 169EEC)
(100 . AcDbEntity) (67 . 0) (410 . Model) (8 . AXIS) (100 . AcDbBlockReference)
(66 . 1) (2 . _AXISO) (10 -1.245e+006 157919.0 0.0) (41 . 800.0) (42 . 800.0)
(43 . 800.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0
1.0))
((-1 . <图元名: 7efd1068>) (0 . ATTRIB) (330 . <图元名: 7efd1060>) (5 . 169EED)
(100 . AcDbEntity) (67 . 0) (410 . Model) (8 . AXIS_TEXT) (100 . AcDbText) (10
-1.2452e+006 157695.0 0.0) (40 . 448.0) (1 . A-23) (50 . 0.0) (41 . 0.231481)
(51 . 0.0) (7 . COMPLEX) (71 . 0) (72 . 5) (11 -1.2448e+006 157695.0 0.0) (210
0.0 0.0 1.0) (100 . AcDbAttribute) (2 . A) (70 . 0) (73 . 0) (74 . 0))

复制代码

xyp1964 · 发表于 2005-5-22 17:59:45

[php](DEFUN C:dxf ()
  (PRINC (ENTGET (CAR (ENTSEL))))
  (textscr)
  (PRINC)
)[/php]

狂刀 · 发表于 2005-5-22 18:46:44

(defun c:dxf ()
  (if (setq a (car(entsel)))
   (mapcar 'print (entget a '("*")))
  )
  (princ)
)

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

[求助] [求助]：谁能提供DXF文件的读取源程序（LISP）？

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

相关帖子