|
|
|
"How we think determines what we do, and what we do determines what we get."
Sincpac C3D ~ Autodesk Exchange Apps
Computer Specs:
Dell Precision 3660, Core i9-12900K 5.2GHz, 64GB DDR5 RAM, PCIe 4.0 M.2 SSD (RAID 0), 16GB NVIDIA RTX A4000
"How we think determines what we do, and what we do determines what we get."
Sincpac C3D ~ Autodesk Exchange Apps
Computer Specs:
Dell Precision 3660, Core i9-12900K 5.2GHz, 64GB DDR5 RAM, PCIe 4.0 M.2 SSD (RAID 0), 16GB NVIDIA RTX A4000
Is it the file content that is important or hardcopy?
Actually, scrub that.
How about a custom plot configuration (ctb and maybe stb) that assigns a different colour to each pen then, in Page Setup, check the "display plot styles" box. The assigned colours will display on-screen and in hardcopy.
At the end of a project I'm required to deliver a set of editable CAD drawings to the client, a large school district with lots of employees who may consult those drawings in the future. They have a particular color table that they all use and they want to be able to plot our drawings with their color table. Our drawings are a collection of work from different consultants, some of whom fail to convert their colors correctly before delivery to us. We just don't have time, sometimes, to send it back and wait for a corrected set of drawings.
It would be nice to have a routine that could automatically convert drawings from one color table to another but, apparently, not enough people have a need for such a routine or it would already be out there somewhere.
*cough* vlax-for + cond combo *cough*
Code:(defun c:MyLayerTrans ( / *error* flag oLayer layerColor) (princ "\rMY LAYER TRANSLATE ") (vl-load-com) (defun *error* (msg) (cond ((not msg)) ; Normal exit ((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit) ((princ (strcat "\n** Error: " msg " ** ")))) ; Fatal error, display it (and flag (not (vla-endundomark *activeDoc*))) (princ)) (and (not (vla-startundomark (cond (*activeDoc*) ((setq *activeDoc* (vla-get-activedocument (vlax-get-acad-object))))))) (setq flag T)) (terpri) (prompt "\nWorking, please wait... ") (vlax-for oLayer (vla-get-layers *activeDoc*) (vla-put-color oLayer (cond ((= 1 (setq layerColor (vla-get-color oLayer))) <AnotherColor1>) ((= 2 layerColor) <AnotherColor2>) ;; <- Additional filters go here (T layerColor)))) (princ "Done! ") (vla-endundomark *activeDoc*) (princ))
"How we think determines what we do, and what we do determines what we get."
Sincpac C3D ~ Autodesk Exchange Apps
Computer Specs:
Dell Precision 3660, Core i9-12900K 5.2GHz, 64GB DDR5 RAM, PCIe 4.0 M.2 SSD (RAID 0), 16GB NVIDIA RTX A4000
but bill the sub who submitted incorrect colors for the time it takes to manually correct their drawings to client standards. (Using client standards was part of the subcontractor agreement wasn't it? if not, make sure it gets in for the next one.)
While I agree that the consultants should be backcharged but it's usually a matter of time more than money at the end of the job. The offending consultants usually will offer to make the change themselves but, unfortunately, I'm near deadline time. It's an age-old problem; I'm just trying to come up with something that could make the change "push-button" easy.
"How we think determines what we do, and what we do determines what we get."
Sincpac C3D ~ Autodesk Exchange Apps
Computer Specs:
Dell Precision 3660, Core i9-12900K 5.2GHz, 64GB DDR5 RAM, PCIe 4.0 M.2 SSD (RAID 0), 16GB NVIDIA RTX A4000
Can't you just mash the top of the color column in the layer manager and sort by color....?
Then all you'd have to do is click the first one, hold shift...click the last one....and click one color box to change them all....