CADsite forum

Goedenavond,

Ik ben al een poosje aan het stoeien met onderstaand "probleem".
Heel lang geleden heb met VBA een koppeling gemaakt die met de kolommen 1 tm 4 lijnen zet in AutoCad, daarnaast ook maatlijnen met weer andere kolommen.

Nu wil ik met de kolommen 13 tm 17 tekst plaatsen in AutoCAD.
De waarden worden dan gegenereerd met Excel.
13 : X-coördinaat
14 : Y-coördinaat
15 : Hoogte tekst
16 : Rotatie
17 : "tekst"

De 2 stukjes code zijn als volgt:

Sub tekst(x, y, h, rotatie, txtregel)

    commando = "[TEXT " & x & "," & _
                           y & " " & _
                           h & " " & _
                           rotatie & " " & Chr(13) & _
                           txtregel & Chr(13) & _
                           "]"
   Application.DDEExecute KanaalNr, commando
End Sub 'Einde tekst

En

Call verbinden
i = 1
Do
  Call tekst(xVeld(i, 13), xVeld(i, 14), xVeld(i, 15), xVeld(i, 16), xVeld(i, 17))
i = i + 1
Loop Until xVeld(i, 1) = ""
Call verbreken

Kolom 13, 14 en 15 werken goed.
16 eigenlijk ook, wat hij neemt die waarde wel mee naar AutoCAD.
Maar in AutoCAD blijft de tekst cursor knipperen en vraagt hij onderin hoeveel graden de tekst gedraaid moet worden.
Daar moet ik dan een "Enter" op geven en dan stopt de code. En dus geen teksten.

Ik heb de code van roteren en kolom 16 op allerlei manieren aangepast en ook uit de code verwijderd, maar hij vraag steeds weer om een rotatie op te geven.
Weet iemand hier een oplossing voor?

Deze vraag heb ik ook op een Excel-forum geplaatst.

Goedenavond,

Ooit...
Heb ik in Excel via Visual Basic lijnen getekend in Auto-cad.

Dat deed ik met de volgende codes:

AutoCad LT
KanaalNr = Application.DDEInitiate("AutoCAD LT.dde", "system")

AutoCad 2017
KanaalNr = Application.DDEInitiate("AutoCAD.R21.dde", "system")
Wat ik er nog van weet is dat "R21" na enkele versies ook opnummerde.

Nu teken ik met AutoCad architecture 2020

Graag zou ik weten hoe de code er uit gaat zien bij:
AutoCad 2022, AutoCad 2023 en AutoCad architecture 2020

Kan iemand mij daarmee helpen?
Vast bedankt.

Eddy,

Ik weet niet of ik het goed begrijp....
Bart zegt dat Acad geen komma's lust.
Dat zou voor mijn gevoel betekenen dat die komma's omgezet moeten worden in punten. (met vba-code)

Als ik jou code goed interpreteer dan stel je daarmee de eigenschap van de output vast....?

Maar daarmee veranderd de input toch niet? (komma's in Excel)

Of zit ik te moeilijk te denken of op de verkeerde weg?

Dag Eddy,

Als ik "Option Explicit" bovenaan mijn code zet loopt hij vast bij KanaalNr van de Sub Rollaag en krijg de volgende melding:
Een variabele is niet gedefinieerd.

Deze melding krijg ik ook als ik
"Option Explicit
Dim commando As String"
Bovenaan de code zet.

Ook als ik "Dim commando As String" bij Sub lijn en bij Sub maten zet.

Waarschijnlijk komt het nogal precies waar de bepaalde codes staan.
Maar ik beheers dit niet genoeg om dat te bevatten 

Waar zou de code "Dim commando As String" precies moeten staan?

Goedenavond,

Heb een oude hobby van stal gehaald.
Met waarden uit Excel tekenen in Auto-cad.

Ik loop ergens tegenaan wat ik toen niet op kon/wilde lossen.

Bijgevoegd bestand bevat een macro die lijnen zet in Auto-cad met waarden uit het 2e tabblad.
Dat heeft altijd goed gewerkt en werkt nu ook nog zolang alle waarden maar afrond op hele cijfers.
En eigenlijk wil ook lijnen tekenen met cijfers achter de komma.

Kan iemand mij helpen hoe ik dit op kan lossen?
Wellicht moet ik de code in VBA aanpassen....

Vast bedankt voor het meedenken
VrGr JieBie