|
AutoCAD VBA : reaktor: erase, added, modified
reltro am 15.02.2012 um 17:50 Uhr (0)
Hey Holger,Danke für dein Angebot der Unterstützung.hab das ganz jetzt auf einen anderen Weg gelöst.Jedoch wär es mit sicherHeit für die Nachwelt hilfreich. Habe danach so intensiv gesucht wie selten nach etwas.Meine Lösung: Habe jetzt denn "acadDocument_activate"-reaktor verwendet um die ObjectIDs jedes mal zu generieren und in ein Dictionary zu schreiben um die Verknüpfung mit den handles aufzubauen.Funkt soweit sehr gut und bis zu diesem Punkt auch zufreidenstellend. ---------------------------------- ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fasen mit Zusatzfunktion
Dirk.B am 13.01.2009 um 14:39 Uhr (0)
Hallo Wilfried!Hallo Forum!Das mit dem Fasen und stutzen der Linien direkt aus dem Editor funktioniert soweit gut.Hier kurze Auszüge aus dem Programm von Wilfried:Aus ThisDrawing:Code:Option ExplicitPrivate Sub AcadDocument_EndCommand(ByVal CommandName As String) Dim objModified As Variant Dim objEntity As AcadEntity Dim Koordinaten As Variant Dim minRechts As Double Dim minHoch As Double Dim maxRechts As Double Dim maxHoch As Double Dim MinPunkt(0 To 2) As Double Dim MaxPunkt(0 To 2) As Double D ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Schnittpunkt zweier Linien berechen
Snifer000 am 09.04.2007 um 13:54 Uhr (0)
danke tunnelbauer...aber so wie das sehen ist die IntersectWith nicht das richtige...denke ich jedenfalls...weil die linien sich ja noch nicht schneiden...es soll sich der schnittpunkt ergeben der eigendlich ja noch nicht da ist der....hmm_____________________________________________________________________danke CADmiumalso bei dieser Rechnung sehe ich nicht durch...sorry...grinswie die ganzen variabel herkommen und entstehen...ich schildere mein problem noch mal ausführlicher...also der benutzer zeichnet ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : VBA Block in Block einfügen
dechgo am 24.04.2009 um 10:23 Uhr (0)
Hallo zusammen,ich habe folgendes Problem:Ich habe eine Zeichnung in der ein Block (Name: Kreuz) vorhanden ist. Dieser Block soll an verschiedenen Stellen eingefügt werden und die eingefügten Blöcke sollen zuammen in einem neuen Block (Name: Kreuz_Gruppe) gespeichert werden.Das einfügen der Blöcke bekomme ich hin. Allerdings weiss ich nicht wie ich dem neuen Block die eingefügten Blöcke zuweise, da es keine .addBlock -Methode gibt.Hier mein Code zum einfügen:Sub Block_Positionieren()Dim objacadDim anz, ans ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Attribute Selektieren
RoSiNiNo am 01.07.2004 um 08:28 Uhr (0)
Wie wäre es damit: Code: Const TagString As String = Test Dim objBlk As AcadBlock Dim colBlks As AcadBlocks Dim objBlkEntity As AcadEntity Dim strNamesFilter As String Dim objAttribute As AcadAttribute Dim SS As AcadSelectionSet Dim FltTypes(1) As Integer Dim FltData(1) As Variant Set colBlks = ThisDrawing.Blocks For Each objBlk In colBlks For Each objBlkEntity In objBlk If TypeOf objBlkEntity Is AcadAttribute Then ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block Referenzen
Brischke am 13.12.2004 um 19:50 Uhr (0)
Zitat: Original erstellt von egug: ...Leider wird wenn ich mit REFBEARBEIT ein als XREF eingefügtes Element ändere nur gerade diese Zeichnung geändert in der ich das ausführe, die anderen x Zeichnungen bleiben ungeändert :-( . Scheinbar ist das Konzept in ACAD nicht so wie in anderen CAD Systemen vorhanden. ... Da würde ich mal behaupten, dass du dich täuschst. Das ist ja nun gerade der Vorteil. Zitat: Original erstellt von egug: Ist es eigentlich in ACAD 2004 möglich mehrzeilige Attribute z ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : nach bestimmten elem suchen
runkelruebe am 13.09.2009 um 15:03 Uhr (0)
Hallo adblue, wie komme ich an den string-text ran? mit welchem befehl?Du scheinst ja ebenfalls in der ACAD-VBA-Programmierung noch recht weit vorne zu stehen. Wenn ich mal nicht weiß, was für Methoden/Eigenschaften/Ereignisse ein Element hat, mach ich mir eine neue Zeichnung, erstelle genau so ein Element und schaue es mir im Menü: Ansicht Lokal-Fenster in aller Ruhe an.Dim xSet x = ThisDrawing weiter mit z.B. .ModelSpaceStopAndere gehen über F2 den ObjektkatalogVersuch einmal, es dort selbst herauszufi ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Gruppencode und Gruppentyp herausfinden
flori555 am 10.02.2006 um 01:06 Uhr (0)
Hallo Didi,bei mir wird aber "Insert" und nicht "Viewport" angezeigt. Und ueber den Begriff "Insert" wird in der Zeichnung schon was veraendert, so dass der Frame mitveraendert wird. Kann ich den Frame ueber einen speziellen Gruppencode aus der Gruppe "Insert" ansprechen und wenn, wie. Ich hab es mal so versucht:Dim a_Type(0) As IntegerDim a_value(0) As Varianta_Type(0) = 66a_value(0) = "Insert"a_Sset.Select acSelectionSetAll, , , a_Type, a_valueJedoch funktioniert das nicht. sobald du den Gruppencode uebe ...
|
| In das Form Autocad VBA wechseln |
 |
AutoCAD VBA : AutoCAD Sichtbarkeiten eines dynamischen Blocks mit VBA
Andre B. am 04.02.2018 um 10:14 Uhr (15)
Hallo liebe CAD-Gemeinde,ich bin nun leider am verzweifeln . Ich habe viel gelesen, auch hier im Forum. Leider bin ich im VBA-Programmieren von AutoCAD noch ein totales Greenhorn.Mein Ziel: Ich habe eine Access Datenbank aus der ich ACad-Zeichnungen öffnen möchte und die Blöcke, welche dort enthalten sind, auslesen. Die Zeichnung öffnen und alle Blocktypen auslesen (inkl. Attribute) habe ich schon geschafft. Ich weiß auch, ob es sich um einen dynamischen Block handelt. Jetzt fehlt mir lediglich der VBA B ...
|
| 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 : Pfad und Dateiname auslesen und an Attribut übergeben
JoeG am 12.10.2004 um 15:48 Uhr (0)
Hallo Dirk Als erstes erzeigst du ein Textobjekte mit dem Befehl rtext . Das Textobjekt kann Dieselausdrücke verarbeiten. Für denn Pfad haben ich „$(upper, $(getvar, DWGPREFIX) $(getvar, DWGNAME) )“ in das Fenster eingegeben. Das war’s auch schon, für andere Anwendungen z.B. Datum und so gibt es unter DIESEL eine halbwegs gute Onlinehilfe in Autocad. In VBA habe ich noch eine andere Möglichkeit Sub block() Dim Einfügepunkt(0 To 2) As Double Einfügepunkt(0) = 2 Einfügepunkt(1) = 2 Einfügep ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektzuweisung über Handle funzt nicht
TomiProg am 23.12.2004 um 14:57 Uhr (0)
Zitat: Original erstellt von mapcar: Geht schon musst sie nur in zeichnung.dwg.txt umbenennen. Aber lesen kann sie doch wohl trotzdem keiner, ist doch R14:-( Setz erstmal deinen Code hier rein, ich glaube, das bringt uns sowieso weiter. Gruß, Axel Strube-Zettler Tja, irgendwie funktioniert der upload trotzdem nicht. Meine Datei Namens Handletest.zip.txt läßt sich nicht uploaden. Nach der Meldung D A T E I ( E N ) G E S P E I C H E R T Die Datei ist in der Anhang-Liste gespeichert (Protokoll ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Bereich im Modell auswählen und im Papierbereich einfügen
Brischke am 08.01.2008 um 15:36 Uhr (0)
Hallo Andreas,Dein Wunsch lässt Fragen offen:1) Welches Layout soll herangezogen werden?2) Warum gehst Du diesen Weg?Meiner Meinung nach packst du das Thema an der falschen Seite an. Denn in aller Regel sollte man doch zunächst mal seine Zeichnung fertig stellen, und dann überlegt man sich, in welchem Maßstab man das Modell (oder einen Ausschnitt) auf welches Papierformat bekommt. Daher wäre es (aus meiner Sicht) sinnvoll zuerst den darszustellenden Bereich zu wählen, dann den Darstellungsmaßstab festzuleg ...
|
| In das Form AutoCAD VBA wechseln |
