|
Autocad VBA : Layout löschen
mapcar am 16.07.2004 um 08:41 Uhr (0)
Zitat: Original erstellt von rkl3011: In meinem Fall müssen alle Entities des Blocks durchlaufen werden, da ich wissen möchte, wie viele Ansichtsfenster in dem Layout vorhanden sind, denn nur die, die keine Ansichtsfenster haben (also leere Layouts) müssen gelöscht werden. Öh, Ronny, du hast offensichtlich nicht verstanden, was ich meinte. Es ist doch egal, wie viele Ansichtsfenster drin sind. Wenn du 1 gefunden hast, kannst du schon abbrechen, oder? Um zu prüfen, dass in einem See Wasser drin ist, ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout wechseln
mapcar am 07.09.2004 um 21:49 Uhr (0)
Tja, irgendwie verstehe ich einfach noch nicht so ganz, worum es geht... Kannst du das nochmal ganz ausführlich erklären? Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Save event
mapcar am 02.04.2004 um 00:34 Uhr (0)
Na ja, auch _copyclip ist ein save-event, da ja ein verkapptes WBLOCK vorliegt. Der Grund dafür, warum z.B. alle Einstellungen verlorengehen, wenn man ein Mansfen über das Clipboard von einem Layout in ein anderes kopiert. Ich denke, es ist besser so, dass auch hier getriggert wird. Abhilfe, wenn nicht gewollt: Das Event-Argument (filename) mit dem aktuellen Zeichnungsnamen vergleichen. Das ist doch nicht so schwer... Gruß, Axel [Nachtrag:] Der Autosave triggert ja auch... ------------------ Meine A ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout löschen
mapcar am 16.07.2004 um 01:18 Uhr (0)
Hi Namenlos, dein Code ist ein wenig schwer nachvollziehbar, weil ich nicht weiss, was du da wirklich übergibst. Kann dir also nicht sagen, woher der Fehler kommt. Aber das Problem liegt irgendwo bei dir und nicht im System, denn das hier geht ohne Problem: Code: Public Sub Test() Dim n_layouts As Integer Dim oLayout As Object, oBlock As Object, oEntity As Object Dim bKeep As Boolean n_layouts = ThisDrawing.Layouts.Count For Each oLayout In ThisDrawing.Layouts bKeep = False If oLayo ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
