Jump to content

Find Rotation Angle of a Block


Recommended Posts

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

[font=Tahoma][font=Tahoma](setq vfrt (assoc 50 (entsel "a3m_MS_viewframe_01000")))[/font]

Link to comment
Share on other sites

Another ....


(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")

Link to comment
Share on other sites

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

[font=Tahoma](ssx) B
[font=Tahoma]UCS OB

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

Link to comment
Share on other sites

Hi SunnyTurtle


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))

Link to comment
Share on other sites

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"))))

;if true
;then test if ucs 1000 excists
     (setq ucs1000 (= "1000" ([b][color=lime]get ucs name[/color][/b])))
     ([b][color=lime]run a script from search path[/color][/b])          ;if ture run script 1
     ([b][color=lime]run other script from search path[/color][/b])     ;if nil run script 2
     );end if;2

    (alert "No Viewframe 1:1000 in Drawing")     ;if;1 nil give error message
   );end if;1
 );end defun uvf

Thank for your help

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Create New...