CADsite forum

bedankt, maar die zit er ondertussen al in geprogrammeerd
ik zit nu met een volgend probleem

maar kzal eerst zelf nog wat zoeken
kan je doordat je een macro in autocad geopend hebt daarna verder gaan met je originele ?
want dat wil hij bij ook niet doen, maar opnieuw kben nog ant prutsen eraan

De wonderen zijn de wereld nog niet uit !

Dank je wel, het werkt nu idd perfect

als je natuurlijk een andere manier weet om een stelsel te laten oplossen in vba, dan mag je dat ook altijd zeggen

de bedoeling is om je positie in een assenstelsel in te lezen aan de hand van 2 afstanden naar 2 gekende punten.

Gelieve niet te letten op de VBA-code in excel; ik ben daar mee bezig
ik apprecieer allesinds de moeite die je doet

Ja inderdaad die laatste 2 regels zijn niet nodig, maar dat had te maken met afrondingen,
dus die regels zijn al weg

het blijft het zelfde probleem, hij wil die intersection niet nemen
ik werk met autocad 2011 en office 2010, misschien heeft het daar iets mee te maken

Door het feit dat er niets in die intpoints komt te zitten, slaat hij die if lus over en dus schrijft hij niets uit

Het frustrerende is dat jouw code bijna gelijk is de mijne
maar bij mij wil hij niets in die intpoints steken, bijgevolg wordt de stap voor het uitschrijven overgelaten

dus hij heeft problemen met de volgende lijn
intPoints = circle1.IntersectWith(circle2, acExtendNone)

als ik het jouwe laat runnen, doet ie het perfect.
heel raar
alvast bedankt voor de moeite

ik ben bang dat ze niet mee upgeload zijn

de cirkels worden zonder probleem getekend

het probleem ligt in de zone
Dim intPoints As Variant
   

intPoints = circle1.IntersectWith(circle2, acExtendNonde)


bijgevolg krijg ik een Ubound(intPoints) van -1
dus moet er ergens iets onbekends zijn, maar aangezien hij toch de cirkels tekent ...
ik weet het niet

sterk, maar bij mij wil dit om de een of andere manier niet lukken
dus dat is balen met de pet op

Beste

ik heb een probleempje bij het uitvoeren van de intersectwith methode.
Ik zoek dus de snijpunten van de cirkels waarvan ik de gegevens haal uit een excelwerkblad
Op het internet gevonden dunkt me dat er een probleem is met deze methode
kan iemand mij helpen

dit is mijn code (ik denk dat er niet zoveel mis, edoch kan ik niet verder)

alvast bedankt

Public Sub testje()



Dim exa As Excel.Application
Dim exwb As Excel.Workbook

On Error Resume Next
Set exa = GetObject(, "excel.application")
Set exwb = exa.Workbooks.Open("F:\Werkblad 1.xlsm")
If Err.Number <> 0 Then
Err.Clear
Set exa = CreateObject("excel.application")
Set exwb = exa.Workbooks.Open("F:\Werkblad 1.xlsm")

End If



Dim bpoint1(0 To 2) As Double
Dim bpoint2(0 To 2) As Double
Dim position(0 To 2) As Double
Dim distance1 As Double
Dim distance2 As Double


bpoint1(0) = exwb.Worksheets("ReadPosition").Cells(5, 2).Value
bpoint1(1) = exwb.Worksheets("ReadPosition").Cells(5, 3).Value
bpoint1(2) = exwb.Worksheets("ReadPosition").Cells(5, 4).Value

bpoint2(0) = exwb.Worksheets("ReadPosition").Cells(6, 2).Value
bpoint2(1) = exwb.Worksheets("ReadPosition").Cells(6, 3).Value
bpoint2(2) = exwb.Worksheets("ReadPosition").Cells(6, 4).Value

distance1 = exwb.Worksheets("ReadPosition").Cells(5, 5).Value
distance2 = exwb.Worksheets("ReadPosition").Cells(6, 5).Value

Dim circle1 As AcadCircle
Dim circle2 As AcadCircle
Set circle1 = ThisDrawing.ModelSpace.AddCircle(bpoint1, distance1)
Set circle2 = ThisDrawing.ModelSpace.AddCircle(bpoint2, distance2)
ZoomAll

Dim intPoints As Variant
   

intPoints = circle1.IntersectWith(circle2, acExtendNonde)


 
  Dim i As Integer, j As Integer, k As Integer
    Dim str As String
    If VarType(intPoints) <> vbEmpty Then
        For i = LBound(intPoints) To UBound(intPoints)
            exwb.Worksheets("ReadPosition").Cells(3 + k, 2).Value = intPoints(j)
            exwb.Worksheets("ReadPosition").Cells(3 + k, 3).Value = intPoints(j + 1)
           
            exwb.Worksheets("ReadPosition").Cells(3 + k, 2).Value = Worksheets("ReadPosition").Cells(3 + k, 6).Value
            exwb.Worksheets("ReadPosition").Cells(3 + k, 3).Value = Worksheets("ReadPosition").Cells(3 + k, 7).Value
           
                       
           
            i = i + 2
            j = j + 3
            k = k + 1
        Next
    End If


End Sub