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.
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
Chris
SolidWorks/PDMWorks 08 3.1
AutoCAD 06/08
ctopher's home (updated Jul 13, 2008)
RE: Polar coordinates
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
I'm running ACAD 2008.
Chris
SolidWorks/PDMWorks 08 3.1
AutoCAD 06/08
ctopher's home (updated Jul 13, 2008)
RE: Polar coordinates
CODE
(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
this can be tweaked to suit your needs
CODE
(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
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