看看这个是不是你想要的 - (defun c:getlaystat(/ objlst)
- (setq AcadObject(vlax-get-acad-object)
- AcadDocument(vla-get-ActiveDocument AcadObject)
- mSpace(vla-get-ModelSpace AcadDocument)
- )
- (setq LayerSel(vla-get-Layers AcadDocument))
- (setq layerobj(vla-add layerSel "layer1"))
- (vla-put-Color layerobj acRed)
- (setq layerstat1 (vla-get-LayerOn LayerObj))
- (vlax-for obj layersel
- (if (= (vla-get-LayerOn Obj) layerstat1)
- (setq objlst (cons (vlax-vla-object->ename obj) objlst))))
- (princ objlst)
- (princ)
- )
|