[求助]用LISP打开DWG文件，并改图？（已解决）

ZHAOWCHANG

程序打开文件，并对他进行操作。改点类型和每层的线宽，但不知如何做，希望高手指点，谢谢！

2. (defun c:test(/ i rownum)
3.   (vl-load-com)
4.   (Setq rownum (Odcl_Grid_GetRowCount btplot_zhu_Grid1) i 0)
5.   (repeat rownum  
6.     (Setq FOLDER (Odcl_Grid_GetItemText btplot_zhu_Grid1 i 1) )
7.     (Setq DWG (Odcl_Grid_GetItemText btplot_zhu_Grid1 i 2) )
8.     (setq read_only ""  fjm (strcat folder dwg))
9.     (setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) fjm));打开并获得新文档
10.      (vla-SetVariable newdoc "PDMODE" 3)
11.    (setq lays (vla-get-layers newdoc) layobj (vla-item lays "0"))
12.   (vla-put-Lineweight layobj acLnWt009);改变线宽，不知如何得到每层的OBJECT
14.     (vla-close newdoc)(setq i (+ i 1))
15.      )
16. )

(defun c:test(/ i rownum)   (vl-load-com)   (Setq rownum (Odcl_Grid_GetRowCount btplot_zhu_Grid1) i 0)   (repeat rownum       (Setq FOLDER (Odcl_Grid_GetItemText btplot_zhu_Grid1 i 1) )     (Setq DWG (Odcl_Grid_GetItemText btplot_zhu_Grid1 i 2) )     (setq read_only ""  fjm (strcat folder dwg))     (setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) fjm));打开并获得新文档      (vla-SetVariable newdoc "PDMODE" 3)    (setq lays (vla-get-layers newdoc) layobj (vla-item lays "0"))   (vla-put-Lineweight layobj acLnWt009);改变线宽，不知如何得到每层的OBJECT     (vla-close newdoc)(setq i (+ i 1))      ) )

经过两天的研究终于可以使用，拿来共享。