[求助]这是meflying版主写的一个函数，请问怎样处理在创建图层的同时，并且创建此图

HQ_2003

[求助]这是meflying版主写的一个函数，请问怎样处理在创建图层的同时，并且创建此图层的线型(laylinetype)[br]

2. 这是meflying版主写的一个函数，请问怎样处理在创建图层的同时，并且创建此图层的线型(laylinetype)
   
3. (defun AddLayer (LayerName LayerColor / AcadDocument LayerSel LayerObj)
   
4.      (setq AcadDocument (vla-get-activedocument (vlax-get-acad-object)))
   
5.      (setq LayerSel (vla-get-layers AcadDocument))
   
6.      (setq LayerObj (vl-catch-all-apply 'vla-item (list LayerSel Layername)))
   
7.      (if (vl-catch-all-error-p LayerObj)
   
8.        (progn
   
9.          (setq LayerObj (vla-add LayerSel LayerName))
   
10.          (vla-put-color LayerObj LayerColor)
    
11.        )
    
12.      )
    
13.      (vla-put-activeLayer AcadDocument LayerObj)
    
14.      (princ)
    
15.    )
    
16. (AddLayer 11 3)

这是meflying版主写的一个函数，请问怎样处理在创建图层的同时，并且创建此图层的线型(laylinetype)<br /> (defun AddLayer (LayerName LayerColor / AcadDocument LayerSel LayerObj)<br />      (setq AcadDocument (vla-get-activedocument (vlax-get-acad-object)))<br />      (setq LayerSel (vla-get-layers AcadDocument))<br />      (setq LayerObj (vl-catch-all-apply 'vla-item (list LayerSel Layername)))<br />      (if (vl-catch-all-error-p LayerObj)<br />        (progn<br />          (setq LayerObj (vla-add LayerSel LayerName))<br />          (vla-put-color LayerObj LayerColor)<br />        )<br />      )<br />      (vla-put-activeLayer AcadDocument LayerObj)<br />      (princ)<br />    )<br /> (AddLayer 11 3)

meflying

为何又问一遍？
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9989

HQ_2003

对不起，我忘记了。请斑竹删除好了