[LISP函数]：在lisp中如何打开一个dwg文件&操作!!!!在线等，急，谢谢！

以马内利

请问在lisp中如何打开一个dwg格式文件,
我虽然找到了方法，可是打开的不是同一个document下，
在程序中我对打开后的图形想要操作，但打开后不在一个document下就非常的苦恼了！
下面的程序是打开dwg文件

( setq dm_high -228.000 )
( setq title_name ( strcat "请选择标高为" dm_high "米的水平地质图位置" ))

(setq dwgname ( getfiled title_name "" "dwg" 0 ))
(setq dwgname ( strcat "AcadApplication.Documents.Open \" "dwgname "\"" ))

( vl-cmdf "vbastmt" dwgname)

这样打开了，但是下面的想操作就不是在一个图档下了，

( setq ss (ssget "X" ))
( setq pt1 ( list 1 1) )
( setq pt2 ( list 20000 20000 ))
(vl-cmdf "mirror" ss "" pt1 pt2 "Y")

上面的操作和打开的图件不是在一个图档下，
请问怎么样才能在有图件的图档下操作呢？？？
非常急谢谢！

zhang8755

用lisp不行，需要用vlisp的对象方法才行，大部分是以vla-开头的函数

以马内利

那么请问版主，或是其它的弟兄，有什么好的方法实现我的思路呢，
谢谢大家！

zhang8755

(setq doc (vla-open (vla-get-documents APP) DWGNAME))     ;打开图形并获得其对象
(setq msp (vla-get-ModelSpace doc))

MSP 即为模型空间
(vlax-for ENT msp
      ........
ent为实体，用vla-mirror 可以对其操作