|
Autocad VBA : Datei schließen & öffnen ; crosspost.Lisp
Karsten HST am 15.08.2003 um 13:55 Uhr (0)
OldName = ThisDrawing.FullName Zeichnungsname merken ThisDrawing.Close False Zeichnung schließen ohne speichern Documents.Open OldName Zeichnung wieder öffnen
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block erstellen mit VBA
Karsten HST am 16.12.2003 um 14:57 Uhr (0)
Versuchs mal mit der CopyObjects-Anweisung des Dokument-Objectes. Dim nBlock As AcadBlock, InsPoint(2) As Double Dim sSet As AcadSelectionSet, sItem As AcadEntity Dim Objects() As AcadEntity On Error Resume Next Set nBlock = Blocks.Add(InsPoint, AllEntities ) Set sSet = SelectionSets.Add( Entities ) If sSet Is Nothing Then Set sSet = SelectionSets( Entities ) End If sSet.Clear sSet.SelectOnScreen ReDim Objects(sSet.Count - 1) For i = 0 To sSet.Count - 1 Set Objects(i) = sSet.Item(i) Next CopyObjects Ob ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Gruppemcode Auswahlätze
Karsten HST am 28.04.2005 um 17:00 Uhr (0)
Die Zusammenstellung des Filters müsste in etwa folgendermaßen ausschauen: Dim GC(4) As Integer Dim GC_Value(4) As Variant GC(0) = 0 Gruppencode für Elementname GC_Value(0) = insert GC(1) = -4 Beginn der Gruppe GC_Value(1) = OR Oder - Verknüpfung GC(2) = 2 Name des benannten Blockelements GC_Value(2) = Blocktyp1 Entweder Blocktyp1 GC(3) = 2 Name des benannten Blockelements GC_Value(3) = Blocktyp2 Oder Blocktyp2 GC(4) = -4 Ende der Gruppe GC_Value(4) = OR Zitat: Original erstellt v ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : autocad 2004 getpoint-befehl (vba)
Karsten HST am 02.10.2003 um 08:36 Uhr (0)
Der Fehler Benutzereingabe ist ein Schlüsselwort sollte eigentlich nur auftauchen, wenn Du Erstens die Benutzereingabe initialisiert hast und zweitens der Benutzer auch eine Eingabe (außer der Auswahl des Punktes in der Zeichnung) getätigt hat. Um den Abbruch des Programmes zu unterdrücken, mußt Du die Zeile On Error Resume Next Deinem Code voranstellen. In diesem Fall wird der Code dann in der nächsten Zeile fortgesetzt. Danach stellt sich dann nur die Frage, ob die Funktion GetPoint eine gewählte Koord ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : fso.filecopy funktioniert nicht
Karsten HST am 18.10.2004 um 10:47 Uhr (0)
Anscheinend existiert der Auswahlsatz XX bereits und kann somit nicht mehr hinzugefügt werden. In diesem Fall muss dann die Item-Funktion verwendet werden. Set ssetObj = ThisDrawing.SelectionSets.Item( XX ) Kommentierst Du die erste Zeile zur Zuweisung eines Auswahlsatzobjektes aus, kannst Du auch keine Anweisungen darauf ausführen, da die Objektvariable ssetObj keinen Verweis gespeichert hat. Zur Initialisierung könntest Du folgende 2 Zeilen nacheinander ausführen ThisDrawing.SelectionSets.Add XX Set ...
|
| In das Form Autocad VBA wechseln |
