CADsite forum

Bedankt ik ga hier eens wat mee proberen

Wat e.v.t. nog een leuke toevoeging tot autocad is als dit ook uitgebreide technische installaties betreft dan zou je eens kunnen kijken naar StabiCad

Zojuist intern overlegd en ga binnekort waarschijnlijk een cursus volgen bij cadcollege voor vba.net basis

nu mijn vraag dat wij voorlopig verder kunnen oldskool zeg maar:

Is het mogelijk de regel hiervoor te plaatsen om de !sch in te stellen op basis van de ingestelde Dimscale?

ThisDrawing.SendCommand "-layer" + vbCr + "s" + vbCr + "64---1--telecom-datainst" + vbCr + vbCr
ThisDrawing.SendCommand "-insert" + vbCr + "k:/bibdata/nieuw/DATA1L.DWG" + vbCr + "s" + vbCr + "!sch" + vbCr

Of alternatief stukje code

(werkt .net binnen de zelfde omgeving als waar je vba schrijf? of is dit een apparte aplicatie en waar kan je deze dan evt vinden?)

Ik zal binnenkort toch maar eens een cursus of zo moeten gaan volgen....

Ik kan het niet vinden in deze topic

Ik werk met autocad 2010 als ik hier in vba kijk voor sugesties voor commandos (ctrl + spatie) kom ik hierin geen InsertBlock in voor ook bij alles wat ik probeer gaat hij bij een aantal van deze commandos een foutmelding geven als ik wil gaan testen

kan iemand me helpen met een stuk script en hierbij een uitleg wat wat doet?

Hallo,

Ik ben vrij nieuw in vba maar heb besloten me hier eens in te gaan verdiepen omdat wij een oude vba tool hebben om symbolen in te voeren nu wil ik deze gaan uitbreiden en aanpassen op bepaalde vlakken:

Nu is mijn eerste probleem het invoegen van een symbool via een knop op basis van de dimscale


Dit is wat ik nu heb om de dimscale in te stellen vanuit een lijst

Voorheen stelde je hiermee de !sch in (ThisDrawing.Sendcommand (setq sch 50) ).

Private Sub cboSchaal_Change() 'schaal van de tekening instellen
    If Me.cboSchaal.ListIndex = 0 Then
        ThisDrawing.SetVariable "dimscale", 50
    End If
    If Me.cboSchaal.ListIndex = 1 Then
        ThisDrawing.SetVariable "dimscale", 100
    End If
    If Me.cboSchaal.ListIndex = 2 Then
        ThisDrawing.SetVariable "dimscale", 200
    End If
End Sub


Dit is de code waarmee het block momenteel werd ingevoerd dit gaat dus niet werken met simpel de !sch te vervangen met dimscale aangezien dit geen numerieke waar is.
ik zal hiervoor de een nieuw script moeten hebben.

Private Sub cmd01r_Click()
    Me.Hide
    ThisDrawing.SendCommand "-layer" + vbCr + "s" + vbCr + "64---1--telecom-datainst" + vbCr + vbCr
    ThisDrawing.SendCommand "-insert" + vbCr + "k:/bibdata/nieuw/DATA1R.DWG" + vbCr + "s" + vbCr + "!sch" + vbCr
    Me.Show
End Sub


Wie kan mij hier in helpen

Alvast bedankt