TunzaGibbo Posted December 11, 2017 Share Posted December 11, 2017 Our office only uses 1 set of settings to create a Rev Cloud. Is there a way I can write this into a Lisp file? Example: (c:_revcloud "A" 4.5 "P" pause) A being for Arc size & P for Polygonals (bns_revcloud "A" 4.5 "P" pause) tried bns because that works with Express Tools These don't work but something like these. Thank you Tony Quote Link to comment Share on other sites More sharing options...
rlx Posted December 12, 2017 Share Posted December 12, 2017 (edited) it one of my oldies but still works for me. RlxCloud.DCL RlxCloud.LSP RLL.lsp RL-Layer.lsp Edited December 12, 2017 by rlx Quote Link to comment Share on other sites More sharing options...
marko_ribar Posted December 12, 2017 Share Posted December 12, 2017 Hi rlx, I am afraid we need "rll.lsp" or something equivalent to answer calling (load "rll") statement... Not sure, but I suppose it could be incorporated inside the same function... Thanks, M.R. Quote Link to comment Share on other sites More sharing options...
rlx Posted December 12, 2017 Share Posted December 12, 2017 Hi rlx, I am afraid we need "rll.lsp" or something equivalent to answer calling (load "rll") statement... Not sure, but I suppose it could be incorporated inside the same function... Thanks, M.R. oops ... always forget that one... time to update and merge these files. Have updated my original post. You also have tot rename rl-layer.lsp to *.dat. (else couldn't upload)You can make your own data file , its just a text file with on each line : name layer name line-type and color. And just change the name from RL-layer.dat to your-layers.dat or whatever. gr. Rlx Quote Link to comment Share on other sites More sharing options...
marko_ribar Posted December 12, 2017 Share Posted December 12, 2017 (edited) Thanks rlx, I decided to implement everything you attached into one single *.LSP... It works fine for me, only lack I've found was in Free option, which I altered just a little to suit my needs... You can look now and check if there is something else, but I think it's fine now... I've already put it in my startup acaddoc.lsp... Thanks again, wish you all the best, M.R. RlxCloud.LSP Edited December 12, 2017 by marko_ribar Quote Link to comment Share on other sites More sharing options...
rlx Posted December 12, 2017 Share Posted December 12, 2017 Thanks rlx, I decided to implement everything you attached into one single *.LSP... It works fine for me, only lack I've found was in Free option, which I altered just a little to suit my needs... You can look now and check if there is something else, but I think it's fine now... I've already put it in my startup acaddoc.lsp... Thanks again, wish you all the best, M.R. looking at the code (my own code) is looking back in time , when I was in my 'early' years and I can do much better by now so I'm a little ashamed for it now. Despite the lack of programming style it does the job for me and probably the reason upgrading it has always been low priority. While back I rewrote my batch utility and ended up starting from scratch and although I am pleased with the result it did cost me a lot of time. But if and when I have time I maybe will rewrite this routine completely. But thanx you like it anyway. gr. Rlx Quote Link to comment Share on other sites More sharing options...
aawilds Posted December 12, 2017 Share Posted December 12, 2017 Hi, I know It is nowhere as complex as RLX's but here is what we use in our office. Hope it helps. (defun c:myrevcloud ( / moc pt2 polrad poly mincrad maxcrad newcloud) (setq moc (getpoint "\nPick center of the Revcloud")) (setq pt2 (getpoint "\nPick point away from center")) (setq polrad (distance moc pt2)) (command "_polygon" 7 moc "" polrad) (setq poly (entlast)) (setq mincrad (/ polrad 2)) (setq maxcrad (* polrad 0.6)) (command "_revcloud" "A" mincrad maxcrad "o" poly "") (setq newcloud (entlast)) (entmod (subst '(43 . 1 ;|new global width of line| (assoc 43 (setq newcloud (entget newcloud))) newcloud)) (princ) ) Quote Link to comment Share on other sites More sharing options...
rlx Posted December 12, 2017 Share Posted December 12, 2017 Hi, I know It is nowhere as complex as RLX's but here is what we use in our office. Hope it helps. It's actually a nice cloud My appie saw first light in a time there was no revcloud command in autocad. It had saved me a lot of work (but also a lot of fun ) thanx for your contribution aawilds gr. Rlx Quote Link to comment Share on other sites More sharing options...
rlx Posted December 12, 2017 Share Posted December 12, 2017 Thanks rlx, I decided to implement everything you attached into one single *.LSP... It works fine for me, only lack I've found was in Free option, which I altered just a little to suit my needs... You can look now and check if there is something else, but I think it's fine now... I've already put it in my startup acaddoc.lsp... Thanks again, wish you all the best, M.R. p.s. fast rewrite! what are you, speedy gonzales? Quote Link to comment Share on other sites More sharing options...
aawilds Posted December 12, 2017 Share Posted December 12, 2017 It's actually a nice cloud My appie saw first light in a time there was no revcloud command in autocad. It had saved me a lot of work (but also a lot of fun ) thanx for your contribution aawilds gr. Rlx Thank you, I am just happy that I got to contribute, usually I am the one asking questions. Quote Link to comment Share on other sites More sharing options...
rlx Posted December 12, 2017 Share Posted December 12, 2017 if you want to see some really cool clouds check out this site : http://www.ductisoft.com/ go to free lisp and look at the examples [1] [2] etc from Dcloud & Ncloud ... amazing! gr. Rlx Quote Link to comment Share on other sites More sharing options...
Grrr Posted December 12, 2017 Share Posted December 12, 2017 Nice program, Rlx! I always get impressed by your dialogs! Quote Link to comment Share on other sites More sharing options...
rlx Posted December 12, 2017 Share Posted December 12, 2017 Nice program, Rlx!I always get impressed by your dialogs! thanx Grrr , still think there's room for improvement both dialog and coding but its doing what its suppost to do ... for now Gr. Rlx Quote Link to comment Share on other sites More sharing options...
TunzaGibbo Posted December 15, 2017 Author Share Posted December 15, 2017 I thought I'd try this one again. Our office only uses 1 set of settings to create a Rev Cloud. Is there a way I can write this into a Lisp file using the Autocad Revision Cloud command "revcloud"? Example: (c:_revcloud "A" 4.5 "P" pause) A being for Arc size & P for Polygonals Thank you Tony Quote Link to comment Share on other sites More sharing options...
BIGAL Posted December 16, 2017 Share Posted December 16, 2017 Did you search here or it was at Augi.com or Theswamp.org extensive posts with the answer. Quote Link to comment Share on other sites More sharing options...
SLW210 Posted December 18, 2017 Share Posted December 18, 2017 Double posting is not allowed. You never even responded to the other thread you created. Threads merged. Quote Link to comment Share on other sites More sharing options...
marko_ribar Posted December 18, 2017 Share Posted December 18, 2017 I think that OP has the answer at autodesk site : https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/revision-cloud/td-p/7628634 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.