Keskustelu: Ohjelmointikysymykset: Macro VB6:lla autocadiin (VBA)

Miten makrossa saadaan luotua piirustukseen uusi taso?
Ja miten makrossa ohjataan esimerkiksi ympyrän piirto,
Set ympyra = ThisDrawing.ModelSpace.AddCircle(keskipiste, sade)
tälle tasolle?

Norvis

Moikka Norvis!

Tsekkaa täältä VBA-toteutus (ei eroa VB-toteutuksesta nimeksikään)

Heippa neau33

Minä pääsin ohi edellisestä, vaan ongelmia tulee lisää!!

Tarkoituksena on määrittää piirrettävän objektin väri.

miksi lause

    Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")

antaa virheilmoituksen "problem inloading application"

tietysti edeltäväissä lauseissa on:

    Dim color As AcadAcCmColor

En löydä ratkaisua Acadin ohjeista. Ohjeet tarjoaa sinnikkäästi yo. riviä "problema:n" ratkaisuun.

Jotenkin on tullut tuntuma että, tämä vaatii laajempaa muuttujien esittelyä?

Heippa Norvis!

Dim AcadApp As AcadApplication
'...
'...
Dim color As AcadAcCmColor

'luot tässä instanssin Application-objektista
Set AcadApp = CreateObject("AutoCAD.Application")
'...
'...
'joten tämän pitäisi käsittääkseni toimia näin...
Set color = AcadApp.GetInterfaceObject("AutoCAD.AcCmColor.16")
'koska instanssi Application-objektista (AcadApp) on jo ladattu...