Results 1 to 10 of 10

Thread: Revision Cloud

  1. #1
    I could stop if I wanted to rhayes.99001's Avatar
    Join Date
    2005-11
    Location
    New Jersey
    Posts
    349
    Login to Give a bone
    0

    Default Revision Cloud

    Anyone know how to draw revision clouds in a straight line? So you don’t have your hold your mouse ever so lightly and cloud a large area?

  2. #2
    Time Lord Steve_Bennett's Avatar
    Join Date
    2015-12
    Location
    far, far, far away...
    Posts
    4,730
    Login to Give a bone
    0

    Default Re: Revision Cloud

    Make a rectangle & use the command line option to convert a object to the rev cloud. (or any closed polyline)
    Steve Bennett |BIM Manager
    Taylor Design | Adventures in BIM

  3. #3
    Administrator Ed Jobe's Avatar
    Join Date
    2000-11
    Location
    Turlock, CA
    Posts
    6,397
    Login to Give a bone
    0

    Default Re: Revision Cloud

    You can also use the left mouse button to pick points rather than just hover.
    C:> ED WORKING....

  4. #4
    Super Moderator david_peterson's Avatar
    Join Date
    2002-09
    Location
    Madison, WI
    Posts
    5,687
    Login to Give a bone
    0

    Default Re: Revision Cloud

    Quote Originally Posted by Steve_Bennett
    Make a rectangle & use the command line option to convert a object to the rev cloud. (or any closed polyline)
    This was one of my favorite improvements in 2005. I love being able to draw a pline, and covert it to a revcloud, and even have the option to flip direction. It's great.

  5. #5
    Member
    Join Date
    2009-01
    Posts
    11
    Login to Give a bone
    0

    Default Re: Revision Cloud

    THE FOLLOWING SHOULD CREATE A RECT CLOUD:
    (defun c:txtcld (
    /
    pt1
    pt2
    pt_y
    s_y
    g_y
    pt_x
    s_x
    g_x
    h
    w
    llpt
    lpt
    urpt
    ulpt
    lrpt
    d1
    d2
    ang1
    ang2
    ang3
    ang4
    ts
    at1
    at2
    bl
    llpt1
    e1
    ut1
    ut2
    rl
    lr
    );start of txtcld
    (load "error")
    (initerr)
    (SETVAR "PLINETYPE" 0)
    (setvar "cmdecho" 0)
    (setq sc (getvar "DIMSCALE"));REV 9-21-98
    (setvar "blipmode" 0)
    (setq pt1 (getpoint "\nFirst Point: ")) ;1pt=first pt
    (setq pt2 (getcorner pt1 "\nSecond Point: ")) ;2pt=second pt
    (setq sc (getvar "DIMSCALE"));
    (if (< (cadr pt1) (cadr pt2))
    (progn
    (setq pt_y (cadr pt1))
    (setq s_y (cadr pt1))
    (setq g_y (cadr pt2))
    )
    (progn
    (setq pt_y (cadr pt2))
    (setq s_y (cadr pt2))
    (setq g_y (cadr pt1))
    )
    )
    (if (< (car pt1) (car pt2))
    (progn
    (setq pt_x (car pt1))
    (setq s_x (car pt1))
    (setq g_x (car pt2))
    )
    (progn
    (setq pt_x (car pt2))
    (setq s_x (car pt2))
    (setq g_x (car pt1))
    )
    )
    (setq h (- g_y s_y))
    (setq w (- g_x s_x))
    (setq llpt (list pt_x pt_y 0.0))
    (setq lpt llpt)
    (setq lrpt (list (+ pt_x w) pt_y 0.0))
    (setq ulpt (list pt_x (+ pt_y h) 0.0))
    (setq urpt (list (+ pt_x w) (+ pt_y h) 0.0))
    (setq d1 (distance llpt ulpt)) ;d1=dist llpt->ulpt
    (setq d2 (distance ulpt urpt)) ;d2=dist ulpt->urpt
    (setq ang1 (angle llpt ulpt)) ;ang1=ang llpt->ulpt
    (setq ang2 (angle ulpt urpt)) ;ang2=ang ulpt->urpt
    (setq ang3 (angle ulpt llpt)) ;ang3=ang ulpt->llpt
    (setq ang4 (angle urpt ulpt)) ;ang4=ang urpt->ulpt
    (setq ts (* (* sc 0.09375) 2)) ;ts=2x dwg txt size
    (IF(= METRIC T)
    (SETVAR "TEXTSIZE" (* 3.0 SC)))
    (IF(= METRIC T)
    (setq ts (GETVAR "TEXTSIZE"))) ;ts=2x dwg txt size
    (setq at1 (/ d2 ts)) ;at1=d2/t2
    (setq at2 (fix at1)) ;at2=real # at1
    (setq at1 (/ d2 at1)) ;at1=d2/at1
    (setq bl (ssadd)) ;bl=new selset
    (repeat at2 ;repeat
    (setq llpt1 (polar llpt ang2 at1)) ;llpt1=next pt
    (command ".line" llpt llpt1 "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 bl) ;add e1->selset bl
    (setq llpt llpt1) ;llpt=llpt1
    ) ;end repeat
    (command ".line" llpt lrpt "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 bl) ;add e1->sleset bl
    (setq ut1 (/ d1 ts)) ;ut1=d1/ts
    (setq ut2 (fix ut1)) ;ut2=real # at1
    (setq ut1 (/ d1 ut1)) ;ut1=d1/ut1
    (setq rl (ssadd)) ;rl=new selset
    (repeat ut2 ;repeat
    (setq lrpt1 (polar lrpt ang1 ut1)) ;lrpt1=next pt
    (command ".line" lrpt lrpt1 "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 rl) ;add e1->selset rl
    (setq lrpt lrpt1) ;lrpt=lrpt1
    ) ;end repeat
    (command ".line" lrpt urpt "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 rl) ;add e1->selset rl
    (setq tl (ssadd)) ;tl=new selset
    (repeat at2 ;repeat
    (setq urpt1 (polar urpt ang4 at1)) ;urpt=next pt
    (command ".line" urpt urpt1 "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 tl) ;add e1->selset tl
    (setq urpt urpt1) ;urpt=urpt1
    ) ;end repeat
    (command ".line" urpt ulpt "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 tl) ;add e1->selset tl
    (setq ll (ssadd)) ;ll=new selset
    (repeat ut2 ;repeat
    (setq ulpt1 (polar ulpt ang3 ut1)) ;ulpt1=next pt
    (command ".line" ulpt ulpt1 "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 ll) ;add e1->selset ll
    (setq ulpt ulpt1) ;ulpt=ulpt1
    ) ;end repeat
    (command ".line" ulpt lpt "") ;draw line
    (setq e1 (entlast)) ;e1=line
    (ssadd e1 ll) ;add e1->selset ll
    (command ".pedit" bl "y" "j" bl rl tl ll "" "") ;turn selset bl rl tl ll->polyln
    (setq box (entlast)) ;box=polyln
    (setq en box) ;en=box
    (setq hdata (entget en)) ;hdata=box entdata
    (entmod (subst '(70 . 1) '(70 . 0) hdata)) ;mod entdata
    (setq bulge (list (cons 42 0.5))) ;bulge=bulge dist
    (setq en (dxf -1 hdata)) ;mod box
    (while (and (setq en (entnext en)) ;while
    (setq ed (entget en)) ;ed is /= end
    (/= "SEQEND" (dxf 0 ed))
    )
    (setq ed (append ed bulge)) ;set ed w/bulge
    (entmod ed) ;mod ed
    (entupd en) ;mod en
    ) ;end while
    (command "redraw") ;redraw
    (reset nil)
    ) ;end of txtcld

  6. #6
    Active Member
    Join Date
    2006-03
    Posts
    85
    Login to Give a bone
    0

    Default Re: Revision Cloud

    Great tip! Thanks!

  7. #7
    Member
    Join Date
    2010-02
    Posts
    4
    Login to Give a bone
    0

    Default Re: Revision Cloud

    New issue with this is that in the 2010 MEP version, you can no longer create a rectangular polyline and convert it to a cloud. Unless I'm missing something and not realizing how to now change a polyline to a cloud please can someone help me?

  8. #8
    Certifiable AUGI Addict dzatto's Avatar
    Join Date
    2006-12
    Location
    Big "D"
    Posts
    3,711
    Login to Give a bone
    0

    Default Re: Revision Cloud

    Draw a rectangle, then type REVCLOUD , enter, then O, enter. It should let you pick the rectangle.

    If the radii of the cloud arcs is too large, it won't let you. So if it does't work, type A instead of O and change (or check) the size of the arcs.

  9. #9
    Woo! Hoo! my 1st post
    Join Date
    2010-06
    Posts
    1
    Login to Give a bone
    0

    Default Re: Revision Cloud

    Hi there, I have a question. Is there any standard method to draw hold cloud?

    I know we all use the same method to draw revision cloud but my consultant use cloud in reverse direction for hold cloud, and they claimed it is international standard. I try to search but I cannot find any international standard saying that we should draw hold cloud in reverse direction. Can anyone advice me on this issue?

  10. #10
    Super Moderator david_peterson's Avatar
    Join Date
    2002-09
    Location
    Madison, WI
    Posts
    5,687
    Login to Give a bone
    0

    Default Re: Revision Cloud

    Quote Originally Posted by phlizzow View Post
    Hi there, I have a question. Is there any standard method to draw hold cloud?

    I know we all use the same method to draw revision cloud but my consultant use cloud in reverse direction for hold cloud, and they claimed it is international standard. I try to search but I cannot find any international standard saying that we should draw hold cloud in reverse direction. Can anyone advice me on this issue?
    I've never heard of that one. I haven't done a lot of work outside the US, but I have done some and that's one I haven't seen. We just usually put them on a white layer (_coord) that we make non-plotting for Coordination items or items that need further investigation. If you want them to look different, I'd make the hold ones the Calligraphy style and the true revisions the normal style, or vice versa. Just a thought.

Similar Threads

  1. Revision Cloud
    By jonblaze451 in forum Revit Architecture - General
    Replies: 3
    Last Post: 2012-04-28, 08:08 PM
  2. Revision Cloud
    By johnthao714 in forum Revit Structure - General
    Replies: 3
    Last Post: 2010-04-09, 08:17 PM
  3. Revision Cloud and Tag
    By techsupport.161645 in forum Revit Architecture - General
    Replies: 1
    Last Post: 2010-03-19, 11:41 AM
  4. Revision cloud properties in cloud sketch
    By revit.wishlist1942 in forum Revit Architecture - Wish List
    Replies: 0
    Last Post: 2009-02-01, 07:08 PM
  5. Revision Cloud
    By ljones.27809 in forum AutoCAD General
    Replies: 4
    Last Post: 2005-09-01, 06:35 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •