MR MAN Posted September 23, 2008 Share Posted September 23, 2008 Can Any One Help Me To Make Revcloud Macro? Quote Link to comment Share on other sites More sharing options...
nocturne00 Posted September 23, 2008 Share Posted September 23, 2008 Isnt the revcloud macro already included in ACAD 2007? ^C^C_revcloud Quote Link to comment Share on other sites More sharing options...
MR MAN Posted September 23, 2008 Author Share Posted September 23, 2008 iam sorry i forget explain what i mean i need rectangular revcloud macro. sorry again Quote Link to comment Share on other sites More sharing options...
nocturne00 Posted September 23, 2008 Share Posted September 23, 2008 Im not sure if there's a direct macro for that (but please correct me if im wrong). perhaps a LISP could be better. try to start a thread in the LISP section on this topic, those guys are goooood with this things Quote Link to comment Share on other sites More sharing options...
ReMark Posted September 23, 2008 Share Posted September 23, 2008 The macro would have to have ORTHO enabled. Quote Link to comment Share on other sites More sharing options...
nocturne00 Posted September 23, 2008 Share Posted September 23, 2008 ... now thats why ReMark's a Forum Diety Coz its just a walk in the park hehe Quote Link to comment Share on other sites More sharing options...
lpseifert Posted September 23, 2008 Share Posted September 23, 2008 ^c^crectangle;\\revcloud;o; or something like that... untested Quote Link to comment Share on other sites More sharing options...
ReMark Posted September 23, 2008 Share Posted September 23, 2008 When the hair turns silver you get to be called a Forum Diety. If it were based on knowledge of AutoCAD I'd be a Forum Dunce. Quote Link to comment Share on other sites More sharing options...
rustysilo Posted September 23, 2008 Share Posted September 23, 2008 ^c^crectangle;\\revcloud;o;; Add another ; at the end to get through the Reverse direction [Yes/No] : Quote Link to comment Share on other sites More sharing options...
MR MAN Posted September 24, 2008 Author Share Posted September 24, 2008 thanks guys for your help Quote Link to comment Share on other sites More sharing options...
neekcotrack Posted September 24, 2008 Share Posted September 24, 2008 iam sorry i forget explain what i mean i need rectangular revcloud macro.sorry again I have two lisp you might like. First one: 1. Make Rev Triangle Layer 2. Make RevCloud Layer 3. Draw Rectangle 4. Make the Rectangle into a reccloud. (The Arc is predetermined by the dimscale) 5. Make the revcloud thicker with pedit 6. Insert the revtriangle 7. Edit the triangles text inside (defun c:rev1 () (vl-load-com) (command "_.layer" "m" "RevT1" "c" "145" "" "") (command "_.layer" "m" "Revcloud1" "c" "2" "" "") ; Make layer & sets Current (COMMAND "_RECTANG" PAUSE PAUSE) (COMMAND "_.REVCLOUD" "_a" (* 0.35 (getvar "DIMSCALE")) "" "_o" "L" "_N") (command "_pedit" "l" "w" (* (getvar "dimscale") 0.015) "") (command "_.layer" "s" "Revt1" "") ;; Make layer Revt1 Current ;; Insert Revtri Block. (command "_INSERT" "RevTri" "s" (getvar "dimscale") pause "0") (command "_attedit" "n" "y" "" "" "" "l" "1" "1") ) Second one: It is the same as above but it lets you make a revcloud out of a pline. (defun c:rev1 () (vl-load-com) (command "_.layer" "m" "RevT1" "c" "145" "" "") (command "_.layer" "m" "Revcloud1" "c" "2" "" "") ; Make layer & sets Current (c:plev) ;; call the routine (command "_pedit" "l" "w" (* (getvar "dimscale") 0.015) "") (command "_.layer" "s" "Revt1" "") ;; Make layer Revt1 Current ;; Insert Revtri Block. (command "_INSERT" "RevTri" "s" (getvar "dimscale") pause "0") (command "_attedit" "n" "y" "" "" "" "l" "1" "1") ) (defun c:plev (/ lOb nPl) (setq lOb (entlast)) (command "_.pline") (while (/= 0 (getvar "CMDACTIVE")) (command pause)) ; end while (if (not (equal c (setq nPl (entlast)))) (command "_.revcloud" "_a" (* 0.35 (getvar "DIMSCALE")) "" "_o" nPl "_n") ) ; end if (princ) ) ; end of c:plev Hope you like. If you have any questions feel free to ask. Quote Link to comment Share on other sites More sharing options...
MR MAN Posted October 9, 2008 Author Share Posted October 9, 2008 thanks neekcotrack for your usefull help Quote Link to comment Share on other sites More sharing options...
flowerrobot Posted October 16, 2008 Share Posted October 16, 2008 i have a question plz i was just working on my own code tho im having problems with the after math of the cloud, im useing pause, for the user to either select a rentanlge or pline or by doing by hand which workings fine but then it dosnt listen to the next bit of code where it inserts the revtriangle (defun c:rrc () ;setup (setvar "cmdecho" 0) (setq sc (getvar "dimscale")) (SETQ LA (GETVAR "OSMODE")) (SETVAR "OSMODE" 0) (COMMAND "ATTDIA" 0) ;(setq oldlayer (getvar "layer")) (command ".layer" "m" "REV" "c" "white" "REV"\) (setq DNO (getvar "dwgname")) (princ dnO) (SETQ FL (STRLEN DNO)) (SETQ FL2 (- FL 4)) (SETQ RN (STRCASE(SUBSTR DNO FL2 1))) (setq ard (* 5 sc)) ;Draws the revcloud (command "revcloud" "ar" ard ard pause) (princ) ;added triangle (setq tl (getpoint "\nInsertion point for revision triangle: ")) (command "-INSERT" "REVMARK" tl sc sc 0 rn) (SETVAR "OSMODE" LA) (COMMAND "ATTDIA" 1) ;(COMMAND "CLAYER" oldlayer) (setvar "cmdecho" 1) ) Quote Link to comment Share on other sites More sharing options...
dbroada Posted October 17, 2008 Share Posted October 17, 2008 I sometimes have trouble with inserting blocks. Insert your "REVMARK" by hand to ensure it is in the drawing and try again. Quote Link to comment Share on other sites More sharing options...
flowerrobot Posted October 20, 2008 Share Posted October 20, 2008 nope, saddly inserting this did not work Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.