|
Autocad VBA : Blockvoransicht
Dirk.B am 07.03.2007 um 12:58 Uhr (0)
Hallo Stelli!Hallo zusammen!Es ist schon ein wenig her mit diesem Thema, aber ich möchte es nochmal aufgreifen.Die Blöcke aus der aktuellen Zeichnung durchlaufen lassen funktioniert gut.Was ich aber nicht hinbekomme, ist die Blöcke aus einem Verzeichnis aus- einlesen und als WMF oder BMP wieder abzuspeichern bzw. zu exportieren.Das Verzeichnis lautet z.B. C:TempKannst Du / Ihr mir da detailierter mit einem Code helfen?Klasse wäre es, wenn man nun auch noch die Möglichkeit hätte, das nach dem laden des Bloc ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
KlaK am 14.02.2009 um 10:20 Uhr (0)
Und das ist auch richtig so, denn wenn Du einen Block zuweisen möchtest, den es nicht gibt, ist das eben ein Fehler.Deshalb mache ich es entweder so wie Du am Anfang mit:on error resume nextSet Block = ThisDrawing.Blocks.Add(Bpkt, blockname)If Err 0 then Set Block = ThisDrawing.Blocks.Item(blockname)End Ifon error goto 0oder (die sauberste Lösung) ich verwende eine Unterroutine, die alle Blöcke in Blocks durchsucht. Wenn der Block nicht vorhanden ist wird er erzeugt. Die Funktion gibt dann den Block (vor ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Datei bearbeiten ohne öffnen ???
BloodyMess am 20.11.2003 um 06:45 Uhr (0)
Hallo Nancy, das Problem ist, daß ich hier ca 1700 dwg-files habe. Jedes davon ist um die 60 kb groß. Gestern ist über diese Files ein VBA-Programm gelaufen, welches sich die Files nur nimmt und in eine neues Zeichnung kopiert und dann wieder abspeichert. Alleine das hat schon 2 Stunden gedauert. Bin nun halt am kucken, wie ich das Programm schneller bekomm und ich muß nicht am PC sehen, was das Programm macht. Weiß nicht, ob es was bringt, wenn ich die Eigenschaft auf hide setze, aber iss nen Versuch wert ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Attribut über Visibillity übergeben
KlaK am 08.12.2020 um 09:29 Uhr (1)
Hallo Walter, willkommen im Forum Wenn Du Deinen Code hier einstellen würdest, könnte man besser sehen wo der Fehler liegt.Dann stellt sich noch die Frage normale BlockReference (der Block ist ja nur die "Bauanweisung") oder dynamischer Block (wegen Auswahl)?Oder triffst Du die Auswahl in einem Formular?GrüßeKlaus PS: Wenn Du im Forum Autocad VBA den Filter auf Attribut stellst findest Du viele hilfreiche Tips, Beiträge. Das generelle Schreiben / füllen eines normalen BlockReference Attributes z.B. h ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : _massprop automatisieren?
CowMover am 04.11.2003 um 12:48 Uhr (0)
Hallo! Weiss jemand ob es in Autocad2000 einen Möglichkeit gibt den Befehl _massprop mit VBA zu automatisieren? Konkret habe ich da folgendes Problem: Mein Makro ruft den Befehl _massprop in der Acad Befehlszeile auf, markiert die Zeichnung und bestätigt die Frage ob ich das Ergebis in eine Datei schreiben will mit ja. Soweit klappt auch alles prima. Nur anstatt das ich jetzt die möglichkeit habe einen Namen und Pfad für die zu speichernde an die Befehlszeile zu schicken macht Autocad ein Fenster auf in de ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Beschriftungsblock einfügen über VBA --> kein Beschriftungsblock???
Andreas Widmann am 23.07.2009 um 13:51 Uhr (0)
Hallo Leute,VBA macht mal wieder nur die Hälfte...Ich habe einen Beschriftungsblock erstellt und mit Wblock rausgespeichert.Diesen Block will ich nun über VBA in eine andere Zeichnung einfügen.Code:Dim levelblock As Stringlevelblock = "C:DWGseLevelSymb.dwg"Dim blo As AcadBlockReferencexpoint = ThisDrawing.Utility.GetPoint(, "Platzierungspunkt wählen")Set blo = ThisDrawing.ModelSpace.InsertBlock(xpoint, levelblock, 1, 1, 1, 0)Nach dieser Aktion habe ich aber einen NICHT-Beschriftungsblock drin.Füge ich den ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : SelectionSets mit Excel ohne Verweise
MReAutoCAD am 09.03.2018 um 16:16 Uhr (1)
Hallo,vielen Dank für deine Antwort und den Vorschlag das Thema umzudrehen. Das Tool selbst besteht im Wesentlichem aus Code für Excel und AutoCAD- Funktionen werden nur wenige genutzt.Außerdem wird das Tool nicht für jede AutoCAD Zeichnung gebraucht, sodass ich es in Summe lieber im Excel habe. Wäre also eher eine Notlösung, aber besser als keine LateBinding kenne ich leider nicht. Habe es mir aber gerade angeguckt.. Vom Prinzip her könnte es aber gehen glaube ich, da ich (unbewusst) meine ACAD-App gena ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block.delete funktioniert nicht immer
Christian Blei am 31.01.2010 um 16:55 Uhr (0)
Hi Alfred,kommt mir ein wenig quer vor, denn ich konnte Dein Problem direkt reproduzieren, ohne dass zuvor ein SelectionSet (oder Dein dotNET-Teil) aktiv geworden wäre. Zumindest kanns damit mal nicht vom Ablauf abhängen.Die Zeichnung, die ich dir geschickt habe, hat ja schon die Macken.....Wenn aber Dein zweiter Aufruf der dotNET-Sub etwas in die Elemente hineinschreibt == dann könnte ich es mir vorstellen. Da wäre wichtig zu wissen, was hineingeschrieben wird.Ich muss das nochmals durchschauen. Aber ich ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block einfügen
Huebi am 05.04.2005 um 09:20 Uhr (0)
Servus Ines, ich glaube, daß Du AcadBlock und AcadBlockReference durcheinander bringst (ist mir anfangs auch ein bisserl schwer gefallen). Ein AcadBlock wird (im Normalfall) einmal definiert als ein Zusammenschluß von verschiedenen AutoCAD Elementen. Der Block hat einen eindeutigen Namen. Ein neuer Block muß daher einen neuen Namen haben. Wenn Du das einmal gemacht hast, kannst Du diesen Block x-fach in die Zeichnung einfügen (AcadBlockReference - InsertBlock). Dabei kannst Du die Einfügeposition, die Dreh ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
sarotti am 04.10.2007 um 16:13 Uhr (0)
Hallo Carsten, hallo Wilfried,das mit der Farbe 9 war nur ein Beispiel. Mein Makro durchläuft die gesamte Autocad-Sitzung und zeigt den Inhalt nach Layer, Farbe, Textbreite usw. an.Nachdem ich jetzt weis, was in der Zeichnung von meinem Standard abweicht, muss ich die einzelnen Elemente auswählen und deren Eigenschaften ändern.Wilfried,wenn ich Dein Code richtig verstehe, dann muss ich für jedes Objekt (Linien, Texte, Blöcke usw.) einen eigenen Filter schreiben, und diese Auswahl übergeben.Jetzt könnten di ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Objekte die auf dem Bildschirm sichtbar sind
Benny4 am 24.02.2011 um 12:02 Uhr (0)
Hallo,ich möchte folgendes machen: Ich möchte alle Entitys haben, die zur Zeit auf dem Bildschirm sichtbar sind. Der Grund ist folgender:Ich habe ein Makro geschrieben, bei dem man eine Linie auswählt, und das dann alle angrenzenden Objekte sucht und aus allen dann eine Polylinie macht. Funktioniert soweit auch gut. Das Problem ist nur bei sehr großen Zeichnungen (ca. 50.000 Entitys) dauert das Suchen der angrenzenden Objekte natürlich sehr lange. Und aus diesem Grund möchte ich nicht die ganze Zeichnung d ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Suche Einfuegepunkt von Block und Blockkopien
KasparKnopf am 16.07.2006 um 11:04 Uhr (0)
Hallo zusammen,ich habe folgendes Problem.In einer Zeichnung befindent sich im Modelbereich ein Block, welcher etliche Male kopiert worden ist.Mein Problem ist nun, die Einfuegepunkte all dieser Bloecke zu finden,was mir bis anhin noch nicht gelungen ist.Ich nehme auch an, der Block existiert nur ein Mal und die restlichen Kopien sind Blockrefenrenzen.Mit folgendem Codeabschnitt konnte ich den gesuchten Block finden,leider komme ich da dann nicht mehr weiter.AktBlockName beinhaltet den gesuchten Namen des ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Mit VBA einAttribut zu vorhandenen Blöcken hinzufügen ?
Juergen55 am 28.02.2005 um 14:46 Uhr (0)
Danke Cadmium, funktioniert, der Code sieht dann so aus, das VBA scheint mir gar nicht so schlecht, gefällt mir ! Public Sub Block() Set blockObj = ThisDrawing.Blocks.Item( 2ig_082e ) Dim attributeObj As AcadAttribute Dim height As Double Dim mode As Long Dim prompt As String Dim tag As String Dim value As String height = 0.25 mode = acAttributeModeNormal prompt = Attribute Prompt tag = Neuer Tag value = Neuer Wert MsgBox Basispunkt des Blocks ...
|
| In das Form Autocad VBA wechseln |
