Alex Borodulin shared this tip for using objects to add revision clouds (Revcloud command), making this procedure faster and performance easier. When prompted, specify a start point or [Arc length/Object/Style] <Object>. Press Enter or type O, then select a single Object on the screen. To download a program related to this tip, visit this NYacad Web site. Thanks, Alex!
Follow-Up: In response to the Multiclouds tip, Marc Boyer sent this quick routine for generating revisions. "This routine will first insert the revision tag on the A-RVSN-TAGS layer (even if the layer does not exist), prompting the user for placement and revision number. Then, the routine will create an A-RVSN- layer and will start the REVCLOUD command. I've included the code below that can be modified easily to your company's requirements. I've highlighted in red the portion of this code that would need to be modified to meet a potential user's standards." (Note: This is one continuous string of code.)
^C^Cattdia;1;CMDDIA;1;-layer;m;A-RVSN-TAGS;color;3;;s;;;-insert;rev-tag ;;;;-layer;m;A-RVSN-;c;4;;s;;;revcloud;a;1/4;;
"AutoCAD legend" Jack Foster wrote, "I created two small LISP programs similar to the latest revcloud tip, only these offer instant gratification. Instead of Pline, the Rectang command could be used for quick square boxes. I prefer to use different layers for different-weight lines to control line thickness. The key to this is using the CMDACTIVE so you can pick all you need to before closing. If you just press Enter before you are done, that terminates the Pline command and you still get the revcloud."
(defun C:revcloudnormal () (command "-layer" "m" "revcloud" "c" "1" "revcloud" "lw" "0.40" "revcloud" "") (setvar "orthomode" 0)(setvar "osmode" 0) (command "pline" ) (while (= (getvar "cmdactive") 1)(command pause)) (command "revcloud" "o" "last" "n") (princ) ) (defun C:revcloud03 () (command "-layer" "m" "revcloud03" "c" "1" "revcloud03" "lw" "0.03" "revcloud03" "") (setvar "orthomode" 0)(setvar "osmode" 0) (command "pline" ) (while (= (getvar "cmdactive") 1)(command pause)) (command "revcloud" "o" "last" "n") (princ) )
|