|
Autocad VBA : Skalierfaktor auslesen
TomiProg am 27.05.2004 um 11:25 Uhr (0)
Hallo Heiko. Nur den Namen des Blocks zu kennen reicht nicht aus, da mehrere Blöcke dieses Namens in einer Zeichnung existieren und unterschiedliche Skalierfaktoren haben können. Den Skalierfaktor bekommst du über die BlockReference und den Block mußt du auf dem Bildschirm auswählen. Versuche mal diese Zeilen. Du mußt evtl. ThisDrawing änderen, damit es bei dir läuft. Dim Objekt As Object, Punkt(2) As Double Dim BlockRef As AcadBlockReference Dim XScale As Double, YScale As Double ThisDrawing.Ut ...
|
| 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 : Attribute mit Excel abgleichen
Stelli1 am 06.02.2006 um 11:19 Uhr (0)
Hallo Sven,mit einem Verweis wird auf eine externe Bibliothek verwiesen.Mit dem Verweis hat man Zugriff auf dessen Objektmodel.Damit kannst du die darin enthaltenen Objekte und Datentypen deklarieren. Ein weiterer Vorteil ist die Kontexteingabehilde im Editor. Verweis und Projekt/Verweise der VBE.Mit einem Selektionset (AWSATZ) kannst du Teile (Auswahl) deiner Zeichnung bearbeiten. Anstatt SelectOnScreen gibt es auch die Möglichkeit alle Elemente mit einer Eigenschaft (Block) in eine Auswahl zu bringen.Alt ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : dwf erzeugen
Heiko76 am 08.03.2006 um 11:03 Uhr (0)
Hallo,ich habe das mittlerweile so gelöst:Sub Ch9_PrintModelSpace() Verify that the active space is model space If ThisDrawing.ActiveSpace = acPaperSpace Then ThisDrawing.MSpace = True ThisDrawing.ActiveSpace = acModelSpace End If Set the extents and scale of the plot area ThisDrawing.ModelSpace.Layout.PlotType = acExtents ThisDrawing.ModelSpace.Layout. _ StandardScale = acScaleToFit Set the number of copies to one ThisDrawing.Plot.NumberOfCopies = 1 Initiate the plot This ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Gruppemcode Auswahlätze
guido159 am 27.04.2005 um 10:48 Uhr (0)
Hallo, hab da wieder ein Anliegen: Folgende Situation, möchte gerne meinen Auswahlsatz mit nen Filter versehn. Hab das folgendermaßen zum laufen gebracht: ******************************************************************** If TypeName(ThisDrawing.SelectionSets( Auswahl )) = Nothing Then ThisDrawing.SelectionSets.Add ( Auswahl ) End If Set AcSSet = ThisDrawing.SelectionSets( Auswahl ) Dim GC(1) As Integer Dim GC_Value(1) As Variant GC(0) = 0 Gruppencode für Elementname GC_Value(0) = insert GC(1) = ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Prüfmaße auflisten
insidERR am 20.10.2011 um 11:56 Uhr (0)
Hallo Gemeinschaft,ich versuche in einer Zeichnung alle Prüfmaße zu finden, scheitere aber an der Stelle, wo ich erkennen kann, ob das Maß "normal" oder eine Prüfmaß ist.Mein Code sieht so aus:Code:Public Function getPrüfmaße() As String Dim oEntity As AcadEntity Dim oLayout As AcadLayout Dim sFile As String For Each oLayout In ThisDrawing.Layouts For Each oEntity In oLayout.Block If TypeOf oEntity Is AcadDimRotated Then sFile = sFile & oEntity.Measurement & vbTab ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block im Auswahlsatz sprengen
Dirk.B am 22.03.2011 um 09:43 Uhr (0)
Hallo zusammen!Ich filter mir mehrere Objekte aus einer Zeichnung in einen Auswahlsatz. Da können auch Blöcke drin enthalten sein.Nun möchte ich gerne zwei bestimmte Blöcke sprengen.Dazu soll der Auswahlsatz durchlaufen werden und wenn es einenBlock mit dem Namen "Sofadi" und /oder "Aluline" gibt, sollen diese gesprengt werden.Könnte mir dabei kurzfristig jemand weiterhelfen?Code:For Each BlocksprengEnt In RSSetSet BlocksprengObj = BlocksprengEnt If BlocksprengObj.ObjectName = "AcDbBlockReference" Then ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Doppelklick
BerndE am 10.11.2005 um 14:42 Uhr (0)
Hi Stelli,ja...so würde ich es mir vorstellen, nur...und soweit kam ich in der OH. aber wenn ich bei mir in der zeichnung ein doppelklick auf einen block mit attributen mache, geht das "attribute bearbeiten"-fenster auf. Ist es kein block, wird mir ändern xref u. block in zeichn. bearbeiten angeboten. bei text kann ich den text editieren und bei sonstigen elementen wird mir das eigenschaftsfenster angezeigt.bei rechtem mausklick geht das kontextmebü auf und wenn ich unter optionen das kontxtmenü abschalte, ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 21.01.2009 um 13:58 Uhr (0)
Hi Gerhard,Code: On Error Resume Next t2 = rs!dateiname So öffne ich auch die DXF-Files AutoCAD.Documents.Open t2, True Mit diesem Sub erstelle ich PNG-Dateien je Layout für unser ERP-System Call pngPlot ThisDrawing.Close Falsewenn ich es (ohne zu probieren) richtig verstehe, dann solltest Du eigentlich folgendes ändern können:Code:AutoCAD.Documents.Open t2, Trueif Err.Number = 0 then nur plotten, wenn problemlos geöffnet Call pngPlot ThisDrawing.Close Falseelse Err.Clear Call de ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : wie Excel Makro starten
Frank136 am 19.06.2009 um 22:19 Uhr (0)
Hallo zusammen, ich hab schon wieder nen Problem und find hier keine Lösung (oder bin ich einfach zu blöd um die Suche zu bedienen )Ich habe Daten aus einer Zeichnung in eine Excel Datei geschrieben und möchte diese Daten mittels eines Excel-Makros auswerten.1.Frage: kann ich aus AutoCad dieses Makro starten.2.Frage: wenn ja, wie?3.Frage: Ich kann das Makro auch per Button in Excel starten, würde dafür gerne von AutoCad das passende Excel-Arbeitsblatt direkt angezeigt bekommen. Geht so was?Danke für Hilfe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block einfügen und Attributwert zuweisen
LaFoF am 10.03.2019 um 13:10 Uhr (5)
Hallo zusammen,Zu meiner nachfolgend beschriebenen Aufgabenstellung habe ich schon diverse ähnliche Ansätze hier im Forum gefunden, die mich aber nicht ganz zu dem führen, was ich möchte. (oder ich hab´s nie richtig verstanden)Also... In meiner Zeichnung ist ein Block mit einem Attribut definiert. Diesen Block möchte ich in einer Schleife setzen und dann dem Attribut eine Nummer zuweisen, die in jedem Schleifendurchlauf um 1 erhöht wird.Was mir im Grunde nicht klar ist, ist wie ich dem Attribut eines gerad ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Handle eines eingefügten blockes
JoergAD am 16.08.2007 um 11:48 Uhr (0)
Hi VBAler,habe ein Problem und hoffe hier auf Hilfe.Ich habe einen Block in eine Zeichnung eingefügt und würde nun gern dessen Handle auslesen und speichern.Soweit alles klar.Aber jetzt das Problem:Den Block habe ich über die Befehlszeile eingefügt, alsoThisDrawing.SendCommand "-einfüge" & vbCrThisDrawing.SendCommand "Blockname" & vbCr & "100,40,0"& vbCr & Wandel(allBLFaktor) & vbCr & vbCr & vbCrDiesen Block möchte ich nun auslesen und sein Handle für spätere Aktionen speichern.Wie komme ich an den richtig ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : InsertBlock langsam - Alternativen ?
KlaK am 20.11.2008 um 13:29 Uhr (0)
Hallo zusammen,muß auch mal wieder eine Frage stellen:Ich habe ein Programm, das Blöcke in eine Zeichnung einträgt. Aber: Es dauert ewig bis er damit fertig ist.Zu den Grundvoraussetzungen:DWG mit ca. 400 vordefinierten BlöckenBlöcke werden ohne Attribute aus einer im Speicher befindlichen Liste mittels der .InsertBlock Methode eingetragen.Bei 70 000 einzutragenden Punkte ist AutoCAD inzwischen 3 Stunden beschäftigt.Ein Versuch ohne BlockRefObj.Update bringt minimale Verbesserung.Wie macht Ihr das bei groß ...
|
| In das Form AutoCAD VBA wechseln |
