Hiho Miteinander,
komme auch aus der xls-Richtung und habe bislang unter ac_vba null Erfahrung, will mich da aber mal langsaaaaaaam rantrauen
Meine Fragen sind Folgende (gleich mehrere, wennschon, dennschon :
1.
Wie gesagt, bin ja noch am probieren.
Ein 'selectionset' geht nur 1x? hinterher bekomme ich immer einen Laufzeitfehler, es sei' denn ich ändere den Namen.
Da ich dies satt hatte, habe ich am Ende der Prozedur auf gut glück ein .delete eingefügt
Code:
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS11")
sset.SelectOnScreen
...
sset.Delete
Macht man das regulär so ???
2.
Sowas wie ein _beginSaveAs gibts nicht im Modul ThisDrawing?
beginSave spricht sowohl ein 'save' als auch ein 'saveAs' an.
Hintergrund ist der, alles was im Modul 'ThisDrawing' steht, wird ja via speichern_unter mitgenommen. Ich würde gern Code automatisch beim Speichern_unter löschen.
Als Beispiel, unter xls ging das so ähnlich:
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
ThisWorkbook.VBProject.VBComponents"DieseArbeitsmappe").CodeModule.DeleteLines 1, 13
End If
End Sub
Wie müsste das unter acad richtig heissen? Hab' schon rumprobiert, gibt aber immer Fehlermeldungen.
3.
Da bin ich nun total verwirrt ..., wenn ich eine Zeichnung öffne die direkten Code enthält, kommt da keine Meldung ??? (enthält Makros, wollen Sie ... usw)
Sorry für die 'Querbeet-Fragen', muss mich erst mal an das neue Terrain gewöhnen
Schonmal Danke für Antworten und Euch 'nen guten Rutsch in's 04'er
lg Nancy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP