改了一下,还是不行呢? (defun MLA (layname laycolor LayLine) (setq acadobject1 (vlax-get-acad-object) acaddocument1 (vla-get-activedocument acadobject1) mspace1 (vla-get-modelspace acaddocument1)) (setq LayerSel (vla-get-Layers AcadDocument1)) (setq LayerObj (vla-add LayerSel layname)) (setq LineObj (vla-get-Linetypes AcadDocument1)) (if (/= nil (tblsearch "layer" layname)) (progn (if (/= nil laycolor) (vla-put-color LayerObj laycolor))) (progn (vla-get-activelayer AcadDocument1 LayerObj) (if (/= nil laycolor) (vla-put-color LayerObj laycolor)) ) ) (if (/= nil LayLine) (vla-put-Linetype LayerObj LayLine) (progn (vla-get-ActiveLinetype AcadDocument1 LayerObj) (if (/= nil LayLine) (vla-put-Linetype LayerObj LayLine)) ) ) ) |