|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
Stelli1 am 25.02.2008 um 10:35 Uhr (0)
Hallo Ines,schön das es geklappt hat. Eigentlich brauchst du nur eine Reference, die auf die Autocad Typbiliothek.Du kannst in deinem Code beide Varianten vorhalten in dem du mit bedingter Complilierung arbeitest.Code:Option Explicit#Const isWithReference = TrueSub test() #If isWithReference = True Then Dim exApp As Excel.Application #Else Dim exApp As Object #End If End SubFüge den Code mal in ein Modul ein. Wenn isWithReference=true ist brauchst du den Verweis, wenn isWithReference=false ist k ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Speicher zugemüllt ?!?
Stelli1 am 25.04.2006 um 11:38 Uhr (0)
Hallo,ich habe nicht ganz verstanden wieso die Zeichnung 3000 geöffnet wird. Holst du Blöcke aus anderen Zeichnungen (Vorlagen) ?Bernd meint folgendes:Du deklarierst z.B. mit DIM Master_Doc as AcadDocument ein Objekt vom Typ Dokument. Mit Set Master_Doc = Thisdrawing instanzierst du eine Klasse im Speicher. Diese bleibt auch nach deinen SaveAs im Speicher.Am Ende deiner Prozedur sollest du mit Set Master_Doc= nothing die Instanz der Klasse aus dem Speicher entfernen. Schaeu doch auch mal wo deine Undo Date ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Pickfirst Objekte entfernen
Carsten1210 am 07.02.2008 um 19:02 Uhr (0)
Hi Chris,Ich will dich ja nicht enttäuschen, aber der PickFirstSelectionSet ist ReadOnly.Aus der Hilfe: Zitat:PickfirstSelectionSetSelectionSet object; read onlyThe pickfirst selection set. Abgesehen musst du das "a = a + 1" in die Zeile vor dem "Redim Preserve..." setzen, da du sonst leere Einträge in dem Array bekommst.Was spricht denn dagegen die Bemassungen, worum es hier ja gehen soll, auf einen gesperrten Layer zu packen, dann können diese auch nicht gelöscht und / oder verändert werden.Was machst du ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Polylinie Vertex entfernen
DraftsmanCAD am 02.08.2023 um 09:23 Uhr (1)
Ich habe eine Zeichnung mit tausenden Polylinien, wobei bei jeder Polylinie die Koordinaten des letzten Punktes exakt denen des ersten Punktes entsprechen. Leider ist keine der Linien geschlossen, was jedoch für die weitere Verarbeitung erforderlich ist. Ein einfaches Schließen aller Polylinien würde dazu führen, dass beispielsweise eine quadratische Fläche 5 Eckpunkte hätte (Punkt 1 und Punkt 5 hätten weiterhin die gleichen Koordinaten).Um mögliche Fehler bei weiteren Berechnungen zu vermeiden, beabsichti ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppen bilden und löschen
Stefan1905 am 26.03.2009 um 12:17 Uhr (0)
Hallo Alfred,ich sende Dir eine bereinigte Zeichnung.Mein Programm lädt eine Vorlagedatei, die atomisierte Elemente enhält, z.B. einen Fördererquerschnitt mit 1mm Länge, und andere Einzelelemente. Beim Zeichnen werden sie auf die entsprechende Größe extrudiert, gedreht und 3D gezeichnet. An den fertigen Förderer (als Block) werden Attribute angehangen. In der Entwurfsphase eines Fördererlayouts ist keine Positionierung erforderlich, erst dann, wenn ein Leistungsverzeichnis erstellt werden muß.Wird das Layo ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : SelectionSet Fehlermeldung Programmabbruch
startrek am 07.12.2011 um 18:20 Uhr (0)
Hallo,als erstes schalte mal deinen Errorhandler wieder ein ... ... und dann führe nochmal aus.Jetzt siehst Du, dass er in der Zeile hängt:Code:objSset.RemoveItems objEnEin F1 auf RemoveItems verrät:Object = Variant (array of objects)Ergo müsste dein Code dann irgendwie so in der Art aussehen:Code: Alle Kreise aus Auswahl entfernen Dim i&, arr() As AcadEntity i = -1 Debug.Print objSset.Count For Each objEnt In objSset If objEnt.ObjectName = "AcDbCircle" Then i = i + 1 ReDi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Polylinie Vertex entfernen
KlaK am 02.08.2023 um 08:40 Uhr (1)
Hallo,Zitat:Original erstellt von DraftsmanCAD:Oh, ich habe die PLNeu_Coord noch nicht befüllt Wie schneide ich denn die ersten 2/3 Werte der P1.coordinates ab?[Diese Nachricht wurde von DraftsmanCAD am 02. Aug. 2023 editiert.]Zumindest hast Du den ersten Fehler schon selber gefunden Zum Füllen einfach ab Wert 3/4 kopieren.ABER : Ich würde zunächst mal prüfen ob die Polylinie nicht schon geschlossen ist und ob der letzte Wert auch wirklich dem ersten entspricht. Darf man Fragen warum Du das machst? Waru ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Elemente in Blöcken auslesen
Abele am 04.10.2004 um 11:40 Uhr (0)
Hallo zusammen, ich stehe immer wieder vor dem Problem, das ich bestimmte Layer aus Zeichnungen entfernen will, diese aber noch laut AutoCAD in dictionaries referenziert sind. Ich habe nun schon festgestellt, das das wohl bedeutet, das in irgendwelchen Blöcken Elemente mit diesem Layer vorhanden sind. Nun dachte ich mir ich mach in VBA eine Routine, die die Blöcke durchsucht. In der Regel gehe ich wie folgt vor Dim Objekt as acadblockreference Dim Element as acadentity Dim I as double For each element in t ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : automatisch Polygon aus einzelnen Linien erstellen
Brischke am 04.12.2018 um 13:45 Uhr (1)
Hallo ritchie,du kannst einen Auswahlsatz bilden, bei dem der Start oder Endpunkt einer Linie dem aktuell betrachteten Punkt entspricht. Aus dem Auswahlsatz musst du dann natürlich die aktuell betrachtete Linie entfernen.Das andauernde Bilden eines Auswahlsatzes ist langsam. Du kannst auch einmal alle Linien ermitteln und aus diesen dann die jeweils passende Linie über den Punktevergleich ermitteln.Hast du dann alle Punkte beisammen, kannst damit ja dann die Polylinie bilden.Grüße!Holger------------------H ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : VBA/PurgeAll
dobatec am 23.03.2006 um 14:06 Uhr (0)
Hallo Leute!Ich habe derzeit ein konkretes Problem mit der PurgeAll Methode die ich bei einer automatisierten Zeichnungserstellung (es werden ca. 2000 kleinere DWGs aus einer Datenbank erstellt). Ich öffne in einer Schleife eine Master_DWG, baue aus Blöcken eine Zeichnung zusammen und speichere die Datei unter neuem Namen. Zuvor möchte ich jedoch die unnötigen Blöcke, Layer etc. entfernen. Wende ich hierzu die PurgeAll Methode an, wird mir beim öffnen der produzierten Zeichnungen eine Fehlermeldung (4 Fehl ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Xref Entfernen und Neuladen via VBA
Ecko am 21.09.2011 um 13:27 Uhr (0)
Hallo Klaus,den Befehl reload konnte ich zwischenzeitlich implementieren. hat zwar etwas gedauert, aber es ging. Ich habe es aber geschafft, ohne neuladen der Xrefs zum gewünschten Ergebnis zu kommen.Visretain ist in allen Zeichnungen = 0.Dein Tipp mit "ThisDrawing.Layers("KüWa_1|KüWa_1_PWT_1_Layer")"brachte den Erfolg.Ich friere jetzt aus der Hauptzeichnung die Layer aller Unter-Zeichnungen bzw. taue sie auf. Danach noch ein "thisdrawing.regen acallviewports" und es läuft.Die Unterzeichnungen werden davon ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : SelectionSet Fehlermeldung Programmabbruch
ela-cad am 07.12.2011 um 17:28 Uhr (0)
Hallo Zusammen,im Internet habe ich eine schönes Beispiel für den SelectionSet gefunden.Hier der Code:----------------------------------------------------Sub AusAuswahlEntfernen() Dim objSset As AcadSelectionSet Dim objEnt As AcadEntity On Error Resume Next Auswahlsatz löschen, falls vorhanden For Each objSset In ThisDrawing.SelectionSets If objSset.Name = "NeuerAuswahlsatz" Then objSset.Delete End If Next Set objSset = ThisDrawing.SelectionSets.Add("NeuerAuswahlsatz") objSset.SelectOnScreen A ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objeke vergleichen
fuchsi am 26.11.2008 um 12:46 Uhr (0)
ich würde das problem anders angehen.Zuerst einen Auswahlsatz über alle Linien (nennen wir ihn MasterAusdwahlsatz).Hiervon die erste Linie nehmen. Dann einen Auswahlsatz erstellen von allen Linien in der zeichnung, wo entweder der Startpunkt mit dem Start oder Endpunkt meiner Linie (und bzw. umgekehrt). Alle diese gefundenen Linien aus dem MasterAuswahlsatz entfernen.Jetzt für alle dies gefunden Linien wiederum rekursiv angrenzende Linien suchen, bis jede dieser Suchen ins Lehre läuft.Jetzt nimmt man wiede ...
|
| In das Form AutoCAD VBA wechseln |
