Convert to Oblique dimension adjusting to angle of exist line
 
  File name : OB.LSP

This program convert common dimension to oblique dimension. 
Program adjusts oblique angle to exit line.

 
   Example-1 (Adjuest to exist line)
Command: ob
Select Dimension: {select s1}   [Select a dimension to be oblique]
Select objects: 1 found
Select objects:             [Type enter to finish selecting]
Select line/2p: {select s2}        [ Select reference line]
 
   Example-2 (Adjust to anble of two points)
Command: ob
Select Dimension: {select s1}      [Select a dimension to be oblique]
Select objects: 1 found
Select objects: }           [Type Enter to finish selecting]
Select line/2p: 2            [Enter '2' to choose 2 point option]
Pick start point: {Pick p1}     [Pick first point]
Pick end point: {Pick p2}       [Pick second point] 




 

¡Ø If you pick p1 after picking p2, Result is same.