Re(3): VBA-Möglichkeiten erweitern?

Re(3): VBA-Möglichkeiten erweitern?

Impressum | Werbung

Geizhals » Forum » Programmierung »

VBA-Möglichkeiten erweitern? (9 Beiträge, 83 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo!
Ich bin ganz neu hier, und hier schon mal meine erste Frage:
Gibt es eine Möglichkeit, die VBA-Entwicklungsumgebung eines CAD-Programms zu erweitern? Ich habe gehört, dass man für CAD-Programme, die eine VBA-SDK haben, auch in VB Anwendungen, Plug-Ins usw. programmieren kann.
Was das Programmieren angeht, bin ich eigentlich leider totale Anfängerin, ich habe grade mal ein paar Monate C (prozessorientiert) gelernt, und bin dort bis zu den Pointern gekommen.
Jetzt versuche ich mir gerade Visual Basic 6 beizubringen, aber im Literaturdschungel finde ich nur Bücher über Textanwendungen und Datenbankprogrammierung, nix über CAD.
Programme, die eine VBA-Entwicklungsumgebung haben, haben doch eigene Funktionen und Klassen, die nicht dieselben wie bei Visual Basic sind, oder sehe ich das falsch?
Also wenn ich jetzt was in Visual Basic programmiere, kann doch sein, dass das CAD-Programm den Code nicht lesen kann, weil es selbst in einer anderen Programmiersprache (wahrscheinlich C++ oder so) programmiert wurde und die VBA-Umgebung des Programms eigene Klassen und Funktionsnamen hat.
Wie kann ich dann in Visual Basic Anwendungen programmieren, die in diesem CAD-Programm laufen?
Ich hab schon so einige Begriffe aufgeschnappt, die mit Grafikprogrammierung zu tun haben, wie GDI, ActiveX, OLE, usw.
Was davon könnte mir nützen? Gibts da wirklich gar keine Literatur zu dem Thema?

Re: VBA-Möglichkeiten erweitern? (Somnatic am 11.11.2004, 19:26:39)

Re(2): VBA-Möglichkeiten erweitern? (Glitzerfee am 11.11.2004, 19:56:53)

Re(3): VBA-Möglichkeiten erweitern? (Somnatic am 11.11.2004, 22:48:16)

Re: VBA-Möglichkeiten erweitern? (TheTrumpeter am 11.11.2004, 22:37:29)

Re(2): VBA-Möglichkeiten erweitern? (TheTrumpeter am 11.11.2004, 22:40:12)

hm dankeschön für die Information erstmal!
Für AutoCAD gibts eh ein Buch, wo das alles drinsteht. Ich arbeite aber mit TurboCAD (AutoCAD kann ich mir nicht leisten) und da gibts keine Objekte, die mit Acad... anfangen.
Ich hab mir schon gedacht, dass eigentlich das VBA von AutoCAD und das VBA von TurboCAD ja nicht so unterschiedlich sein können, immerhin ist ja beides VBA und beides hat mit CAD zu tun.
Die Klassen haben aber in TurboCAD andere Namen und auch die Objekte heissen anders. Zum Beispiel gibts nicht "ThisDrawing" sondern das heißt dann immer "Active Drawing".
Ich stell mal einen TurboCAD-Code hier rein, um es zu veranschaulichen:
--------------------------------------------------------------------------------
Sample 2: Edit three parameters (center, coordinate, and radius) of a selected circle.

‘File EDITCIRLE.TCM Edit two coordinates, X and Y, as well as radius R for a selected circle.

'Before running the macro, a circle must be selected.Public Sub EditCircle()

Dim App As Application

Dim ActDr As Drawing

Dim Grs As Graphics

Dim Gr As Graphic

Dim Vers As Vertices

Dim Ver As Vertex

Dim ObjSel As Selection

Dim NumSel As Long, i As Long

Dim GrSelType As String

    Set App = IMSIGX.Application

    Set ActDr = App.ActiveDrawing

Set ObjSel = ActDr.Selection ‘Define the selected entities.
    NumSel = ObjSel.Count       If NumSel = 0 Then Exit Sub    For i = 0 To NumSel - 1        Set Gr = ObjSel.Item(i)
  GrSelType = Gr.Type        If GrSelType = "CIRCLE" Then ‘
Choose the entity of the Circle type.
            Set Vers = Gr.Vertices
            Set Ver = Vers.Item(0)
Dim XcOld#, YcOld#, Xr#, Yr#, ROld#
            XcOld = Ver.X
            YcOld = Ver.Y
            Set Ver = Vers.Item(1)

            Xr = Ver.X
            Yr = Ver.Y
            ROld = Sqr((Xr - XcOld) * (Xr - XcOld) + (Yr - YcOld) * (Yr - YcOld))

UserForm1.TextBox1.Text = CStr(XcOld)
            UserForm1.TextBox2.Text = CStr(YcOld)
            UserForm1.TextBox3.Text = CStr(ROld)
            UserForm1.Show
            Gr.Unselect

Dim XcNew#, YcNew#, RNew#
            XcNew = CDbl(UserForm1.TextBox1.Text)
            YcNew = CDbl(UserForm1.TextBox2.Text)
            RNew = CDbl(UserForm1.TextBox3.Text)

Dim Matr As Matrix ' A transformation matrix
Dim xScale#, yScale#, dx#, dy#
            xScale = RNew / ROld
            yScale = RNew / ROld
            dx = XcNew - XcOld
            dy = YcNew - YcOld
            Set Matr = Gr.Scale(xScale, yScale, 1)
            Set Matr = Gr.MoveRelative(dx, dy, 0)
            Gr.Select
        End If
    Next i
End Sub
--------------------------------------------------------------------------------

Wenn du dich mit AutoCAD-Programmierung gut auskennst, kannst du mir ja sicher, nachdem du den Code angesehen hast, sagen, wie unterschiedlich die Objekte und Klassen sind, oder ob man einen AutoCAD-VBA-Code einfach für TurboCAD umschreiben könnte.

Könnte es nicht eigentlich auch funktionieren, in Visual Basic einen Code wie deinen geposteten zu schreiben und die AutoCAD-Objektbibliotheken in das VB-Projekt einzubinden?
Läuft der Code dann aber in TurboCAD?
Oder geht das nur mit den TurboCAD-eigenen Objektbibliotheken?

Das Problem ist nämlich, über VBA für AutoCAD habe ich ein umfangreiches Buch mit zahlreichen Listings, die man ausprobieren könnte (wenn man AutoCAD hat...) aber für TurboCAD gibts so gut wie keine Dokumentation, die das einem Anfänger erklärt.

lg

Re(4): VBA-Möglichkeiten erweitern? (TheTrumpeter am 12.11.2004, 07:20:07)

Re(5): VBA-Möglichkeiten erweitern? (Glitzerfee am 12.11.2004, 12:19:31)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung