button help
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
button help

 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization
Author Message
todd
Guest
Posted: Tue Jan 04, 2005 7:35 pm    Post subject: button help Reply with quote
I need help making a button to stack dimension alternate units under primary
units per individual dimensions

Back to top
T.Willey
Guest
Posted: Wed Jan 05, 2005 3:07 am    Post subject: Re: button help Reply with quote
Maybe something like.

(defun c:TurnOnAltUnits (/ Ent Obj)

(if (setq Ent (entsel "\n Select dimension: "))
(progn
(setq Obj (vlax-ename->vla-object (car Ent)))
(vla-put-AltUnits Obj ':vlax-true)
(vla-put-TextSuffix Obj "\\P")
)
)
)

Tim
Back to top
todd
Guest
Posted: Fri Jan 07, 2005 8:52 pm    Post subject: Re: button help Reply with quote
hey Tim, this worked great with a couple changes...
added this to my acad.lsp and then made a button to access it.

thanks alot Tim,
todd@formafab.net



(defun c:dimstack (/ Ent Obj)

(if (setq Ent (entsel "\n Select dimension: "))
(progn
(setq Obj (vlax-ename->vla-object (car Ent)))
(vla-put-AltUnits Obj ':vlax-true)
(vla-put-TextSuffix Obj "mm\\P")
)
)
)

Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB