|
Autocad VBA : Eigene Sysvar
Stelli1 am 28.09.2005 um 15:42 Uhr (0)
Hallo,eigene Voreinstellungen kann man ja in der Registry speichern.Geht das auch in AutoCAD als Sysvar ?etwa so:Code: Varname = "MyColor" Vardata = CStr(Farbe) ThisDrawing.SetVariable Varname, VardataStelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Timer in Autocad 2000 einbinden ?
Stelli1 am 16.10.2005 um 17:04 Uhr (0)
Hallo Ralf,da war doch so was. http://ww3.cad.de/foren/ubb/Forum259/HTML/000674.shtml#000008 Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeiten im Programmablauf überwachen
Stelli1 am 16.10.2005 um 17:31 Uhr (0)
Hallo Heiko,zur Arbeitserleichterung kannst du in VB mit bedingten Variablenarbeiten.Code:#Const demoversion = True#If demoversion = True Then If Format(Date, "yyyymmdd") "20051231" Then On Error Resume Next Unload frmSplash frmAbout.Show MsgBox "Sorry .." End End If#End IfSo kannst du deine Testroutinen im Programmcode lassen ohnedas diese nachher mit in die Exe kommen (Variable ändern).Wir haben ein zentrale Log Datei am Anfang und Ende einer Funktion wird hier ein Ein ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Code in neuem Modul oder in ThisDrawing
Stelli1 am 16.10.2005 um 20:02 Uhr (0)
Hallo Didi,grundsätzlich ist VBA auch Objekt orientiert. Beim AutoCAD VBA ist schon immer ein Standard Objekt "thisdrawing" angelegt. In diesem Objekt (Klassenmodul) werden die Eigenschaften und vor allem die Events für diese Klasse verwaltet. Für komplexere Aufgaben sollte man auch von der Möglichkeit gebrauch machen eigene Klassen anzulegen.Für globale Standardaufgaben z.B. Funktionen für irgendeine Umwandlung sollten die "normalen" Module verwendet werden.Ich habe die Module ein bisschen organisiert:z.B ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-Befehl in VBA definieren
Stelli1 am 18.10.2005 um 19:14 Uhr (0)
Hallo Fred,habs mal so probiert.Code:Sub testlauf() Alias xyz MsgBox "Hallo"End SubSub cmds() Dim strCmd As String strCmd = "(defun c:xyz (/) (vla-runmacro(vlax-get-acad-object) ""testlauf""))" & Chr$(13) ThisDrawing.SendCommand strCmdEnd SubDie Sub cmds erzeugt im AutoCAD das oder die Befehlssynonym(e).Du musst nur noch schauen das diese Sub zuerst abgearbeitet wird.Übrigens noch der Hinweis auf die Grundidee von RoSiNiNosiehe: http://ww3.cad.de/foren/ubb/Forum259/HTML/000142.shtml#000004 Zitat:.. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : verschiedene Elemente auswählen und drehen
Stelli1 am 24.10.2005 um 16:18 Uhr (0)
Hallo,du brauchst nicht unbedingt ein Selektionset.Das kannst du füllen in dem du über einen FIlter und/oder einer Benutzerauswahl Element aus der Zeichnung holst.Das Brauchst du hier nicht, da du die Elemente selbst erzeugst.Da du eine Achse zeichnest, hat die x-Elemente.Anschrieb und Referenzlinie zum Achshauptpunkt kommt aber nur einmal.Merke die doch die Zeichnungsentitys in einem eigenen Arrayz.B.Dim MyElements () as acadentityfor i=1 to 10 myPolyline = blabla redim Preserve myElements(Ubound(myElem ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ThisDrawing.SendCommand
Stelli1 am 27.10.2005 um 12:23 Uhr (0)
Hallo Martin,wenn du die Form (die hört sich halt besser an) mitfrmMeineForm.show startes wird sie Modal angezeigt.Das heisst du kannt nur Eingaben in dieser Form machen.Willst du was in AutoCAD bewegen, musst du die Formentladen (unload frmMeineForm) oder verbergen (frmMeineForm.hide).Dann kannt du in AutoCAD wieder Eingaben machen und der Cursur erscheint.Code:Private Sub bt_Punkt_Click() Dim punkt As Variant Me.Hide punkt = ThisDrawing.Utility.GetPoint(, Chr$(10) & "Bitte Punkt klicken: ") Me.ShowEn ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Eigenschaftspalette ändern/ VBA Formulare immer sichtbar
Stelli1 am 29.10.2005 um 16:07 Uhr (0)
Hallo Dominik,wenn ein VBA Formular einmal geladen ist, ist es so lange sichtbar bis es entweder entladen (unload form) oder verborgen (form.hide) wird.Wird das Formular mit "Form.show" oder "Form.show 1" geladen, ist es im Modalen Zustand, das heisst die Programmausführung und somit auch AutoCAD müssen warten bis ds Formular wieder geschlossen wird.Wird das Formular mit "Form.Show 0" geladen, ist es immer sichtbar aber die Ausführung des Programmes geht weiter. Das könnte man dazu benutzen um ein eigenes ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : AutoCAD per VB6 / VBA starten
Stelli1 am 01.11.2005 um 15:15 Uhr (0)
Hallo Christian,hintet autocad.appclication kommt die Versionsnummer.[url http://ww3.cad.de/foren/ubb/Forum259/HTML/000722.shtml#000005]Beispiel GetObject[url]Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objekteigenschaften
Stelli1 am 02.11.2005 um 09:09 Uhr (0)
Hallo Didi,mir wäre das hier nicht bekannt, dass man mit"for each Property in Entity.Properties"so was abfragen kann.Einigermassen variable könnte man es so machen: http://ww3.cad.de/foren/ubb/Forum259/HTML/000751.shtml#000004 Dann brauchst du pro Entity nur eine Auflistung der Properties erstellen und diese abarbeiten.Dann stellt sich aber noch die Frage nach dem Sinn. Es sind ja nicht alle EIgenschaften so flac wie "Layer" oder "Color".z.B. Blockreferenz hat Einfügepunkt in 3D, LWPolyline hat x-Stützpunk ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Access -> AutoCAD
Stelli1 am 03.11.2005 um 18:21 Uhr (0)
Hallo Markus,das mit dem Zugriff von Access nach AutoCAD ist eigentlich kein Problem. Wenn du mit Access VBA gearbeitet hast, kennst du sicherlich auch einen Teil des Access Objektmodelles.Ähnlich hat AutoCAD auch ein Objektmodell. Mit dessen Methoden und Eigenschaften hast du (fast) Zugriff auf alle Zeichnungselemente einer Zeichnung und auf das Programm.An deiner Stelle würd ich erst mal einige Versuche im AutoCAD VBA machen. Von der Befehlszeile VBAIDE und los gehts. Wenn du dort die Hilfe für die Activ ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : noch mal die Frage nach dem Layereigenschaften-Filter
Stelli1 am 04.11.2005 um 18:52 Uhr (0)
Hallo,zum Filtern gibts in meiner Version nichts (oder wieder mal nicht gefunden).Schau doch mal in deiner Version nach folgendem:Code:Sub Example_SetDatabase() The following code saves the color and linetype settings of the current layer. It uses the SetDatabase method to associate the current drawing database with the LayerStateManager object. Dim oLSM As AcadLayerStateManager Access the LayerStateManager object Set oLSM = ThisDrawing.Application. _ GetInterfaceObject("AutoCAD.AcadLayerSt ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Access -> AutoCAD
Stelli1 am 04.11.2005 um 20:09 Uhr (0)
Hallo Markus,das "VBA Teil" siehst du wenn du im AutoCAD VBAIDE eingibst.In Access hast du ähnlich Code der in Modulen steht (diese kannst du dir beliebig anlegen) und Code der an den Formularen hängt.In den Modulen hast du den Code der überall gilt.Code:Public Function GetAcad() As Boolean *** AutoCAD Objekt eines geladenen AutoCADs holen Fehlerbehandlung ein On Error Resume Next Versuch das AutoCAD Objekt auf das Objekt AcadApp zuzuweisen Set AcadApp = GetObject(, "AutoCAD.Application") ...
|
| In das Form Autocad VBA wechseln |
