Excel naar Autocad

[Woordvoerder]

Ik ben bezig om van een excel bestand een aligned dimline te maken.

in het excel bestand staat onder A1 de X positie en onder B2 staat de Y positie.

voorbeeld:
A1 = 3
B2 = -10

Nu is het me wel gelukt met de volgende code de aligned dimline te maken.

Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim dimObj As AcadDimAligned
Dim CurDimStyle As AcadDimStyle
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double
Dim wb As Workbook
Dim ws As Worksheet
    
Set wb = ThisWorkbook
Set ws = wb.ActiveSheet
    
Set CurDimStyle = acadDoc.ActiveDimStyle
    
point1(0) = ws.Range("A1"): point1(1) = 0: point1(2) = 0
point2(0) = ws.Range("A1"): point2(1) = ws.Range("B1"): point2(2) = 0
location(0) = ws.Range("A1"): location(1) = 0: location(2) = 0 
Set dimObj = acadDoc.ModelSpace.AddDimAligned(point1, point2, location)

Maar nu is het de bedoeling dat het text van de dimline op een vaste Y positie komt namelijk -15

Is hier een oplossing voor ?

 

[alphamax]

Plaats het hele bestand met de code, ik kan geen verbinding maken met het openstaand autocad document.

 

[Woordvoerder]

Zie bijlage:

Ik heb er een voorbeeld naast gemaakt hoe ik het graag wil hebben.

Excel: Bekijk bijlage 1.xlsm

Autocad: http://we.tl/DvpuYmdHOA

 

[alphamax]

Jouw dimension staat verticaal, hoe kan die dan op een vaste Y positie komen.
Er zijn in autocad parameters voor b.v. de afstand tussen de zijkant van het object en de maatlijn, of de maatlijnen onderling, zie http://www.caddmanager.com/CMB/2009/09/cad-standards-autocad-dimension-variables/comment-page-1/
Het bestand kan ik niet openen, heb helaas maar autocad2004 (maar onder de VBA-motorkap is het hetzelfde)

 

[alphamax]

Kon wel eens lastig worden, ik ben er niet zo goed meer in thuis.
Maar is de enige manier om text buiten de maatlijnen te krijgen door het gebruik van grippoints?

 

[Woordvoerder]

alphamax,

normaal kun je deze onder propopties van de aligned dimlined handmatig aanpassen

Maarja ik heb meeste ook van internet geplukt, en om dit te realiseren kon het nog wel eens zo zijn dat het helemaal een andere code is.

 

[Woordvoerder]

Heb de oplossing al.

deze regels erbij doen en het is klaar

    location(0) = ws.Range("A2"): location(1) = -15: location(2) = 0
    dimObj.TextPosition = location
    dimObj.Update