DD to DMS
@RickfromtheNorth The below works when selecting the start and end points of the arc to label Clockwise, I leave it to you to add the code needed to work when selecting in CCW. I used the code @CodeDing posted as it is much cleaner to read and functions well. Also, the line to apply a scale factor is commented out since you did not provide that function and I needed to test without it.
(defun c:curvelabletest (/ p1 p2 p3 x entlength y arclen dlt ent inspt rad)
(prompt "\nPick Arc or Circle: ")
(setq ent (entget (car (entsel))))
(if (or
(= (valu 0 ent) "ARC")
(= (valu 0 ent) "CIRCLE")
)
(progn
(setq p1 (getpoint (valu 10 ent) "\nSelect the Beginning of the Curve."))
(setq p2 (getpoint (valu 10 ent) "\nSelect the End of the Curve."))
(setq p3 (valu 10 ent))
(setq entlength (vla-get-arclength (vlax-ename->vla-object (valu -1 ent))))
(setq x (angcor (- (angle p3 p1) (angle p3 p2))))
(setq y (distance p1 p3))
;;(setq y (* y (exp-get-csf-convert)));apply scale factor
(setq rad (strcat "R = " (rtos y 2 2)))
(setq dlt (atof (angtos x 0 6)))
;;using DD2DMS-5Sec by Code Ding as posted to the C3D Customization forum
(setq dlt (strcat "\\U+0394 = "(DD2DMS-5Sec dlt)))
(setq arclen (strcat "A = " (rtos (abs (* x y)) 2 2)))
(setq inspt (getpoint "\nSelect an insertion point for the text. "))
(command "TEXT" "M" inspt "90" rad)
(command "TEXT" "" arclen)
(command "TEXT" "" dlt)
)
(princ "\nItem is not a Circle or Arc...")
)
(princ)
)
Hi, ok I have combined these together and do not get the proper Delta either way I select it. CW or CCW. I should get as an example 67%%d50'20"
(defun angcor (xa)
(cond ((minusp xa) (angcor (+ xa (* 2 pi))))
(xa)))
(defun c:curvelabletestnew (/ p1 p2 p3 x entlength y arclen dlt ent inspt rad)
(prompt "\nPick Arc or Circle: ")
(setq ent (entget (car (entsel))))
(if (or
(= (valu 0 ent) "ARC")
(= (valu 0 ent) "CIRCLE")
)
(progn
(setq p1 (getpoint (valu 10 ent) "\nSelect the Beginning of the Curve."))
(setq p2 (getpoint (valu 10 ent) "\nSelect the End of the Curve."))
(setq p3 (valu 10 ent))
(setq entlength (vla-get-arclength (vlax-ename->vla-object (valu -1 ent))))
(setq x (angcor (- (angle p3 p1) (angle p3 p2))))
(setq y (distance p1 p3))
(setq y (* y (exp-get-csf-convert)));apply scale factor
(setq rad (strcat "R = " (rtos y 2 2)))
(setq dlt (atof (angtos x 0 6)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun DD2DMS-5Sec (deg / Pad2 d m s tmp r)
(defun Pad2 (str / )
(strcat (substr "00" (1+ (strlen str))) str)
);defun
(setq d (fix deg)
m (fix (setq tmp (* 60.0 (- deg d))))
s (fix (* 60.0 (- tmp m)))
);setq
(setq r (rem s 5))
(if (< r 2.5)
(setq s (- s r))
;else
(progn
(setq s (+ s (- 5 r)))
(if (= 60 s)
(setq s 0 m (1+ m))
);if
(if (= 60 m)
(setq m 0 d (1+ d))
);if
);progn
);if
(strcat
(Pad2 (rtos d 2 0)) "°"
(Pad2 (rtos m 2 0)) "'"
(Pad2 (rtos s 2 0)) "\""
);strcat
);defun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq dlt (strcat "\\U+0394 = "(DD2DMS-5Sec dlt)))
(setq arclen (strcat "A = " (rtos (abs (* x y)) 2 2)))
(setq inspt (getpoint "\nSelect an insertion point for the text. "))
(command "TEXT" "M" inspt "90" rad)
(command "TEXT" "" arclen)
(command "TEXT" "" dlt)
)
(princ "\nItem is not a Circle or Arc...")
)
(princ)
)
