- ;;;get a working list of all the layers
- (vl-load-com)
- (setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
- (setq layertable (vla-get-layers acadDocument))
- ;;;make layers an array and editable
- ;;;make the properites of the layers accessable
- ;;;check the names against a standard list of valid layer names
- ;;;remove valid layers from the working list
- ;;;check the first layers color
- ;;;get a list of all valid layers with that color from the standard layers list
- ;;;check the line type of the first layer
- ;;;get a list of all valid layers with same line type from the modified list
- ;;;change the layer name to the standard valid layer name
这是我的清单,我已经通过了第一步,现在不知所措,我很确定我离目标还有很长的路要走。。。我需要一些重定向,有人能帮我吗? |