View Full Version : Find Rotation Angle of a Block
13th Apr 2011, 03:19 am
Hi I think this is a simple question for you guys but how do you find the rotation of a block within a drawing that I know the name. I want to create a new USC that is at the same rotation.
I have tried Associated List 50 but there does not seem to be a rotation angle in that list is there some way to look into the properties and draw a rotation angle for there
Here is a the code I tried
(setq vfrt (assoc 50 (entsel "a3m_MS_viewframe_01000")))
13th Apr 2011, 03:46 am
(setq BLOBJ (entget (car (entsel "\nselect block "))))
(setq ang (cdr (assoc 50 BLOBJ)))
13th Apr 2011, 05:12 am
(defun c:TesT (/ x s)
(setq x (ssget "_x" '((0 . "INSERT") (2 . "a3m_MS_viewframe_01000"))))
(setq s (ssname x 0))
(alert (strcat (rtos (cdr (assoc 50 (entget s))) 2)
" : "
"in Radians "
(alert "There is no Block holds that name in the drawing")
13th Apr 2011, 08:02 am
Thankyou Tharwat and BIGAL for your codes. Tharwat Code is great but it was in need of modification to fit into the lisp I’m working on, which changes to ucs to the same as the object with that name.
BIGAL your code help me understand greatly thankyou
Here a script that does the same thing but it has not way to error check
The problem I have is that i have ucs 1000 in most of my drawings and it is correct but some of them have it strangely missing so i need a way to check if the ucs existed I did that with the (if) statement
Also Thank you to both of you i have learn a great deal more about lisping but trying to replicate a combination of you lisps and mine and i need to read more about what the ss functions did. This is now clear to me.
I will eventually post the completed lisp but bear with me I’m very slow at this stage
13th Apr 2011, 01:00 pm
Consider that the rotation angle of the block is in Radians, so a conversion may be necessary:
(defun c:test ( / e )
(setq e (car (entsel "\nSelect Block: ")))
(eq "INSERT" (cdr (assoc 0 (entget e))))
(command "_.ucs" "_z" (angtos (cdr (assoc 50 (entget e)))))
However, note that in most cases the 'Object' option may be used to align the UCS:
(defun c:uo nil (command "_.ucs" "_OB" pause) (princ))
14th Apr 2011, 02:32 am
Hi all thanks for the help I have now thought more about this. It would be very easy to solve if I run scrips and lisp together. The problem is that I don't even know if it is possible to run scrips from other files in lisp (if I can understand the lisp that does this)
Here's what I’ve my lisp that would work if I could run scrips within it
Parts in green are I don't know what to do
(defun uvf (/ vf usc1000)
;test weather a3m_MS_viewframes_01000 excists
(setq vf (ssget "_x" '((0 . "INSERT") (2 . "a3m_MS_viewframe_01000"))))
;then test if ucs 1000 excists
(setq ucs1000 (= "1000" (get ucs name)))
(run a script from search path) ;if ture run script 1
(run other script from search path) ;if nil run script 2
(alert "No Viewframe 1:1000 in Drawing") ;if;1 nil give error message
);end defun uvf
Thank for your help
14th Apr 2011, 04:19 am
Rather than run a script run a defun (defun script1 () ...... )
(script1) ;if ture run script 1
(script2) ;if nil run script 2
Its just part of your lisp program you can have as many defuns as you like in a lisp program.
14th Apr 2011, 06:18 am
That works fine I guess I wasn't thinking outside the box. But my real issue here is this silly ucs command. I can't find a function that will return the ucs name or something that I can check it with in multiple drawings.
14th Apr 2011, 11:39 am
I can't find a function that will return the ucs name
Powered by vBulletin™ Version 4.1.2 Copyright © 2013 vBulletin Solutions, Inc. All rights reserved.