几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   [求助]怎样根据已知的dwg文件生成块定义? (http://www.dimcax.com/hust/showthread.php?t=11172)

yang686526 2009-04-26 01:34 PM

[求助]怎样根据已知的dwg文件生成块定义?
 
[求助]怎样根据已知的dwg文件生成块定义?
www.dimcax.com
[求助]怎样根据已知的dwg文件生成块定义?
请问如何根据已知的dwg文件在当前图形中生成块定义呢?
比如读取cad支持目录下的dwg,插入到当前编辑的图形文件中,作为块定义,可以多次使用?(不使用insert命令)
d
为什么不用insert??
d
因为小弟是想在程序里统一处理插入块的情形。在有块定义的情况下已经使用了entmake来处理了,所以这时想只是建立块定义而不要真的插入块的...
d
不插入还定义块有什么用?
(alert"ok!")
d
插入后再删除也行
(alert"ok!")
d
我的一个程序中有创建块实例,供你参考
( block_make ( p)
( '((0 . "block") (2 . "north_mark") (70 . 0) (10 0 0 0)))
( '((0 . "circle") (8 . "0") (62 . 0) (10 0 0 0) (40 . 10)))
( '((0 . "line") (8 . "0") (62 . 0) (10 12 0 0) (11 -12 0 0)))
( ( '(0 . "lwpolyline") '(100 . "acdbentity") '(100 . "acdbpolyline")
'(8 . "0") '(62 . 0) '(90 . 4)
'(70 . 1) '(10 10 0)
( 10 ( p ( ( '(0 0) pi ( 91)) ( pi 2) 3)))
'(10 -7.2654 0) ( 10 ( p ( p ( pi -2) 6)))
)
)
( ( '(0 . "solid") '(8 . "0") '(62 . 0) '(10 10 0 0)
'(11 -7.2654 0) ( 12 p) ( 13 p)
)
)
( '((0 . "endblk")))
)


所有的时间均为北京时间。 现在的时间是 09:17 PM.