AutoCAD在工程管理的应用.pptVIP

9. 图层管理 (defun C:cd (/ ENT NAME) ; (prompt 选择将使其图层成为当前图层的对象.\n) ; (if (setq ENT (entsel)) ; (setq NAME (vla-get-layer (vlax-ename-vla-object (car ENT)))) ; (setq NAME (getstring 输入图层名:))) ; (setvar clayer NAME) ; (princ)) ;(defun C:LL (/ ENT NAME I LAY COLOR) ; (prompt 设置图层颜色.\n) ; (if (setq ENT (entsel)) ; (setq NAME (vla-get-layer (vlax-ename-vla-object (car ENT)))) ; (setq NAME (getstring 输入图层名:))) ; (vlax-for I (vla-get-layers *ACADDOC*) ; (if (= NAME (vla-get-name I)) ; (setq COLOR (vla-get-color I) ; LAY I))) ; (if (setq COLOR (acad_colordlg CO