|
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 : Listview - Vom ausgew. Listview-element zum dazugehörigen Block
Stelli1 am 19.02.2009 um 16:36 Uhr (0)
Hallo Volker,wenn ein Formular gebunden ist (modal=1) kannst du es mit me.hide ausblenden und hast so wieder Zugriff auf AutoCAD. Danach kannst du es wieder mit FOrm1.show anzeigen. Der Nachteil ist, dass du eventuelle Änderungen (Position, Eingaben etc) vor dem ausblenden auf "zwischenspeichern" musst (InI Datei oder als globale Variable) und nach dem erneuten Laden diese wieder herstellen musst.Im Listview kannst du die automatische Bearbeitung des Nodes abstellen (meine es wäre AutoLabel=false). Die wei ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppen bilden und löschen
Stelli1 am 25.03.2009 um 16:12 Uhr (0)
Hallo Stefan, Zitat:Original erstellt von Stefan1905:Hallo zusammen,Ich suche eine Möglichkeit, Autocadelemente, die mit VBA erzeugt wurden, anschließend in einer Gruppe zusammenzufassen (Elemente aber nicht durch Benutzer auzuwählen!). Der Name der Gruppe wird als Attribut in einem anderen Block gespeichert, ist also zu einem späteren Zeitpunkt abrufbar. Geschieht dies, soll die Gruppe und deren Elemente aus der Zeichnung gelöscht werden.Ich arbeite mit dem Buch AUTOCAD-programmieren mit VBA, komme jedoch ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD VB muss auf Access warten
Stelli1 am 01.10.2007 um 11:26 Uhr (0)
Hallo Jörg,ich meine du hast doch den Lösungsansatz. In einen vorherigen Thread war doch die Frage wie Access angesteuert wird. Da gabs ein Beispiel Zitat: If Err.Number 0 Then MsgBox "Keine Datenbank gefunden. Lade ...", , "Start MDB" On Error GoTo 0 Set MyAccess = CreateObject("access.application") MyAccess.OpenCurrentDatabase "C:Tempdb1.mdb" MyAccess.Visible = True End If On Error GoTo 0 Aufruf über Access Modul MyAccess.Run "openform", "Formular1" Direkter Aufruf MyAccess.DoCm ...
|
| In das Form AutoCAD VBA wechseln |
|
Rund um AutoCAD : Blöcke auf Layer 0 ? Warum?
Stelli1 am 26.08.2008 um 10:07 Uhr (0)
Hallo zusammen,jetzt muss ich aus der Fraktion der "m"-Zeichner mal einen Kommentar abgeben. Da ist jedem das Problem mit den Linien bekannt.Eigentlich kann man doch alles haben.Ich definiere alle Elemente eines Blocks auf "layer 0" und den Farb- und Linieneinstellungen "vonBlock". Die Eigenschaft "vonBlock" bedeutet ja das die Elemente die Einstellungen "erben" die beim Einfügen des Blocks aktiv sind.Wird beim Einfügen "vonLayer" verwendet bekommen die Elemente auch die Einstellung des Layers. Wird der Bl ...
|
| In das Form Rund um AutoCAD wechseln |
|
Autocad VBA : Text selectieren / auslesen
Stelli1 am 14.09.2005 um 12:59 Uhr (0)
Hallo Armand,hab gerade gesehen das schon eine Antwort da war.Hatte das Beispiel gerade fertig gestückelt und schickst halt mal.Ist aber der gleiche Ansatz wie bei Nancy.Code:Dim Ausgabedatei As StringDim SelSet As AcadSelectionSetDim SelPkt(0 To 2) As DoubleDim MyText As AcadMTextDim Text As StringDim intAusgabe As IntegerDim GpType(0 To 0) As IntegerDim GpValue(0 To 0) As VariantDim FilterType As VariantDim FilterValue As VariantOn Error Resume NextErr.Clear Versuch Zuweisung MySelSetSet SelSet = ThisDra ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ObjectDBX
Stelli1 am 08.09.2005 um 13:23 Uhr (0)
Hallo Florian,wenn denn unbedingt so sein muss ...Wenn viele Punkte zu suchen sind würde ich nicht jedesmaldie externe Zeichnung durchlaufen. Ich würde mir entwederein Datenfeld, eine Objektklasse oder ein Recordset (da gibtsauch ein Speicherinternes ADODB Recordset ohne DB Anbindung in demman suchen kann wie in einem "richtigen") anlegen.Danach braucht man dann nur noch nach den effektiven Punktensuchen.Code: Modul Type MessPunkt Rechtswert As Double Hochwert As Double Höhe As Double PNR As String ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Selbsterstellte Befehle mit AcadDocument_BeginCommand abfangen
Stelli1 am 22.04.2008 um 16:45 Uhr (0)
Hallo,ich verstehe nicht wo das Problem ist. Im obigen Link war eine Lösung aufgeführt wie man ein VBA Makro als AutoCAD Befehl definieren kann.Ich habe die Lisp Zeile zum Test mal in eine Funktion gepackt.Diese Sub muss du als erstes ausführen. Später wird die Zeile in die AcadDoc.Lsp eingefügt. Dann steht der Befehl nach jedem laden des Dokumentes zur Verfügung.Code:Sub EigenerBefehl() Dieser wird normalerweise in der AcadDoc.Lsp untergebracht ThisDrawing.SendCommand "(defun c:MyLoad (/) (vl-vbarun "" ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 27.08.2005 um 17:48 Uhr (0)
Hallo Wolfgang,wie in anderen Beiträgen schon ausführlich diskutiertdas Thema Blockvoransicht. Wenn die Blöcke schon in der Zeichnung sind kann man das doch über die Werkzugpaletten (ab 2004) lösen.Wenn die Blöcke auf der Platte schlummern und z.B. durch einTool mitgeliefert werden, kann man schon die Variante mit WMFoder BMP nehmen. Es ist für den Anwender ein wenig Arbeit dieBlöcke zu erstellen. Die WMF kann man automatisiert erstellen. Dazu ein Beispiel:Code:Private Sub CommandButton1_Click()Dim aktWinS ...
|
| 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 |
