Extract degree after using dimangular

[Johntosh]

Morning

 

After using dimangular, I'd like to extract the resultant degree. Is there a way?

[haustab]

Hi,

somethink like this:

(defun dimangle (/ ent txt)
 ;;(and (setq ent (CAR (ENTSEL "\nDimension : ")))
      (and (setq ent (entlast))
      (= (cdr (assoc 0 (entget ent))) "DIMENSION")
      (vlax-property-available-p
 (vlax-ename->VLA-OBJECT ent)
 'MEASUREMENT
      )
      (setq
 txt
  (rtos
    (/ (* (vla-get-measurement (vlax-ename->VLA-OBJECT ent)) 180)
       pi
    )
    2
    2
  )
      )
 )
 (princ txt)
 (princ)
)

[Lee Mac]

Or

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] dimangle [b][color=RED]([/color][/b]dim [b][color=BLUE]/[/color][/b] dim[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=DARKRED]'[/color][/b]VLA-OBJECT [b][color=RED]([/color][/b][b][color=BLUE]type[/color][/b] dim[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dim [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] dim[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ObjectName[/color][/b] dim[b][color=RED])[/color][/b]
         [b][color=#ff00ff]"AcDb2LineAngularDimension"[/color][/b][b][color=RED])[/color][/b]
      [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Measurement[/color][/b] dim[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:test [b][color=RED]([/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]print[/color][/b] [b][color=RED]([/color][/b]dimangle [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Dimension: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]