×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Polar coordinates

Polar coordinates

Polar coordinates

(OP)
Hey Guys,
I've never posted here, though i've been lurking around for years. I've picked up tons of great ideas and even started fooling with "lisp's", and for that I thank you.
Now i need help with polar coordinates, I need to dimention
a dwg with angls and radius and cant find anything to do this.
I run AutoCad 2002 as a Methods Eng. in manufacturing,
Many thanks in advance.

RE: Polar coordinates

Have you searched in AutoCAD "Help"? Search for "polar coordinates".

Chris
SolidWorks/PDMWorks 08 3.1
AutoCAD 06/08
ctopher's home (updated Jul 13, 2008)

RE: Polar coordinates

(OP)
Chris,
Thanks, yes I did
In the help section the only polar coord. item is for describing (inserting) points, I'am looking to put the arc
and rad on the part print as a dim
I may not be calling it the proper thing, but I've also
tried vector's & polar dimmentions, I don't see what I'am looking for.  

RE: Polar coordinates

Try command "dimradius". Is that what you are looking for?
I'm running ACAD 2008.

Chris
SolidWorks/PDMWorks 08 3.1
AutoCAD 06/08
ctopher's home (updated Jul 13, 2008)

RE: Polar coordinates

You could try this... text style height of 0 is required

CODE

;;; Leader annotated w/ Distance and angle LPS 2008
(defun c:test (pt1 pt2 di ang mid tjpt)
  (defun rtd (a) (/ (* a 180.0) pi))
  (setq    pt1 (getpoint "Pick base point: ")
    pt2 (getpoint "Pick end point: " pt1)
    di  (strcat (rtos (distance pt1 pt2) 2 2) "'")
    ang (strcat "@ " (rtos (rtd (angle pt1 pt2)) 2 2) "%%d")
  )
  (command "qleader" pt2 pt1)
  (command)
  (setq    mid  (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
    tjpt (polar mid
            (+ (/ pi 2) (angle pt1 pt2))
            (* (getvar "dimscale") 0.08335)
         )
  )
  (command "text"
       "mc"
       tjpt
       (* 0.1 (getvar "dimscale"))
       (rtd (angle pt1 pt2))
       di
       ""
  )
  (command "text" "" ang "")
)

____________________
Civil 3D 2008, Terramodel

RE: Polar coordinates

oops, forgot a /
this can be tweaked to suit your needs

CODE

;;; Leader annotated w/ Distance and angle LPS 2008
(defun c:test (/ pt1 pt2 di ang mid tjpt)
  (defun rtd (a) (/ (* a 180.0) pi))
  (setq    pt1 (getpoint "Pick base point: ")
    pt2 (getpoint "Pick end point: " pt1)
    di  (strcat (rtos (distance pt1 pt2) 2 2) "'")
    ang (strcat "@ " (rtos (rtd (angle pt1 pt2)) 2 2) "%%d")
  )
  (command "qleader" pt2 pt1)
  (command)
  (setq    mid  (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
    tjpt (polar mid
            (+ (/ pi 2) (angle pt1 pt2))
            (* (getvar "dimscale") 0.08335)
         )
  )
  (command "text"
       "mc"
       tjpt
       (* 0.1 (getvar "dimscale"))
       (rtd (angle pt1 pt2))
       di
       ""
  )
  (command "text" "" ang "")
)

____________________
Civil 3D 2008, Terramodel

RE: Polar coordinates

(OP)
thats it!
thanks ipseifert, sorry i didnt get to it sooner, i had
a machine fail and had to get dirty!
that is certainly the way for me to go, and maybe add a
tweak
thanks to all

RE: Polar coordinates

You can create an attributed block in this form (Radius,Theta) but then you would need to manually fill in the values for the radii and angles which you can get with command LI for list.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources