TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: notredave on March 01, 2016, 10:27:22 AM
-
To whomever can help me out,
Using Mr. Lee Mac's code and I appreciate it very much, but can someone edit code to use the fancy calligraphy arcs instead of the regular arcs? My lisp routine will be complete then. I am using Autocad 2015.
Thanks in advance,
David
(defun c:rv
( / *error* ar bn cm el fn rv
)
(setq bn
"REVTAG") ;; Rev Cloud Attributed Block
)
)
)
)
)
)
)
)
)
*rev*
)
( rv )
)
)
(princ "\nSpecify Point for Revision Block: ") (command "_.-insert" bn
"_S" 1.0 "_R" 0.0 "\\") )
)
)
)
)
)
-
Should just need to pass an "S" and "C"
-
ChrisCarlson,
I am not sure where to change that. Can you tell me exactly where to put that command or edit the one above please?
-
ChrisCarlson,
Nevermind, I figured it out and works like a champ!
Thank you very much
-
Lee Mac, if you're out there, please help me or someone else,
While looking around the web, I saw this:
(command "revcloud" "A" (* 0.3125 (getvar "DIMSCALE")) "")
That works great on scaled drawings, my question is where can I incorporate that into Lee Mac's lisp code to make it work.
Thanks in advance,
David
-
You can incorporate it as part of the REVCLOUD command call, i.e:
(command "_.revcloud" "_A" (* 0.3125 (getvar 'dimscale
)) "" "_S" "_C")
PS: Please edit your post and enclose your code with code tags:
[code]Your code here[/code]
-
In addition to using the code tags in your initial post I would also like to ask you to please also attach any header Lee had on his original code. Also, you may receive more help if you address other members of this forum--instead of just Lee (many people may be able to help and I'm sure Lee is often busy).
-
If you are putting revision clouds into model space, why not just make the revision block annotative?