Oblique dimensions

[Anonymous]

I am converting my pipeline manual isometric drawings into CAD for my company, I was wondering if there was a way to set up a dims tyke that automatically aligns the dim line to the isometric line rather than having to manually enter 30 or -30 through the oblique and dimedit command after the fact. This is killing my productivity, also if I could just save these settings as a template that'd be stellar. Please keep the jargon minimal as I graduated in 2009 with my degree in a little rusty.

[imadHabash]

Hi and welcome to AutoDesk community,

i hope that this >> Link << will help you.

[deusextechnic]

Hi, 

I think i may have just the thing. 

http://aolovciceng.com/downloads.html

Download Isometric dimensioning tool. 

[imadHabash]

Hi,

Does your issue solved? if you need more help we're ready for it?

[Anonymous]

I am familiar with the steps within the link you posted, but what I am looking for is a shortcut. A way for me to utilize a hot key (if you will) that will allow me to set the dim settings prior to dimensioning. so I can point and click lines to dimension without having to go through a 4 or 5 step motion every time I want to correctly display an isometric dimension.

[Anonymous]

I saw no link to download any Isometric dimension app, or is it already a program imbedded in CAD which will spring when I use the command.

[pendean · Accepted solution]

You need to create a DIMSTYLE to do this in your template file(s), then import that unique dimstyle into your working files either through a toolpalette or drag/drop using ADCENTER command.

>>>...I saw no link...>>>

If you are referring to the above link, are you not able to click through as I show here?

[deusextechnic]

Hi, 

it is a lisp routine i wrote for a similar job. Hope it helps. 

[leipengshang]

I wonder how to use vba do this.any suggestion?

First,what i thought is to use "adddimroteted" but it was failed.

Then, is to use sendcommand   and use "dimedit" to do this,but I couldn't get the dimenion like lisp with "entlst".

so could anybody help?😂

[leipengshang]

by looking for the oblique dimension in forum .finally i got the idea.
here is my code ,hope it could help those looking for question.
and thanks for *Tuersley, Mike, here is the link "https://forums.autodesk.com/t5/vba/iso-dims/m-p/300510"


Option Explicit

Sub testobliquedimension()
Dim pa As Variant
Dim pb As Variant
Dim ang As Double
pa = ThisDrawing.Utility.GetPoint(, "pa")
pb = ThisDrawing.Utility.GetPoint(pa, "pb")
ang = ThisDrawing.Utility.AngleFromXAxis(pb, pa)
ang = ThisDrawing.Utility.AngleToReal(ang, acDegrees)

Dim str1 As String
str1 = pa(0) & "," & pa(1) & "," & pa(2)
Dim str2 As String
str2 = pb(0) & "," & pb(1) & "," & pb(2)

ThisDrawing.SendCommand "DIMALIGNED" & vbCr & str1 & vbCr & str2 & vbCr
ThisDrawing.SendCommand "dimedit o l" & vbCrLf & 90 + ang & vbCr
End Sub

[Kent1Cooper]

---

@leipengshang wrote:

....what i thought is to use "adddimroteted" but it was failed. ....

---

Perhaps only because of the misspelling?

[leipengshang]

sorry for the misspelling.in vba ide it works.but can not get what i want.

beacuse vba dont have entity jig  class .by using sendcommand method to show it.but not perffect.