[求助]怎样根据已知的DWG文件生成块定义？

starlet2003

请问如何根据已知的DWG文件在当前图形中生成块定义呢？

比如读取CAD支持目录下的DWG，插入到当前编辑的图形文件中，作为块定义，可以多次使用？（不使用insert命令）

caoyin

为什么不用insert？？

starlet2003

因为小弟是想在程序里统一处理插入块的情形。在有块定义的情况下已经使用了entmake来处理了，所以这时想只是建立块定义而不要真的插入块的...

英雄无敌

不插入还定义块有什么用？

英雄无敌

插入后再删除也行

caoyin

我的一个程序中有创建块实例，供你参考

2.   (defun BLOCK_MAKE (/ P)
3.     (entmake '((0 . "BLOCK") (2 . "NORTH_MARK") (70 . 0) (10 0 0 0)))
4.     (entmake '((0 . "CIRCLE") (8 . "0") (62 . 0) (10 0 0 0) (40 . 10)))
5.     (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 12 0 0) (11 -12 0 0)))
6.     (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
7.                    '(8 . "0")          '(62 . 0)             '(90 . 4)
8.                    '(70 . 1)           '(10 10 0)
9.                    (cons 10 (setq P (polar (polar '(0 0) pi (sqrt 91)) (/ pi 2) 3)))
10.                    '(10 -7.2654 0)     (cons 10 (setq P (polar P (/ pi -2) 6)))
11.              )
12.     )
13.     (entmake (list '(0 . "SOLID")  '(8 . "0")  '(62 . 0) '(10 10 0 0)
14.                    '(11 -7.2654 0) (cons 12 P) (cons 13 P)
15.              )
16.     )
17.     (entmake '((0 . "ENDBLK")))
18.   )

  (defun BLOCK_MAKE (/ P)     (entmake '((0 . "BLOCK") (2 . "NORTH_MARK") (70 . 0) (10 0 0 0)))     (entmake '((0 . "CIRCLE") (8 . "0") (62 . 0) (10 0 0 0) (40 . 10)))     (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 12 0 0) (11 -12 0 0)))     (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")                    '(8 . "0")          '(62 . 0)             '(90 . 4)                    '(70 . 1)           '(10 10 0)                    (cons 10 (setq P (polar (polar '(0 0) pi (sqrt 91)) (/ pi 2) 3)))                    '(10 -7.2654 0)     (cons 10 (setq P (polar P (/ pi -2) 6)))              )     )     (entmake (list '(0 . "SOLID")  '(8 . "0")  '(62 . 0) '(10 10 0 0)                    '(11 -7.2654 0) (cons 12 P) (cons 13 P)              )     )     (entmake '((0 . "ENDBLK")))   )

starlet2003

谢谢各位了