|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 11.08.2003 um 09:50 Uhr (0)
Dann genügen dir natürlich die Linien, allerdings hab ich da einen kleinen Fhler gemacht, natürlich mußt du bei der eingabe der Koordiaten der Linien den Radius berücksichtigen. Code: Set Linie1_1 = AddLineEx(Point3D(Radius, 50), Point3D(Radius+50, 50)) Set Linie2_1 = AddLineEx(Point3D(Radius-1, -27), Point3D(Radius+36, -27)) So, hoffe das war es. Wie wäre es mit ein paar Unities? Muß natürlich nicht wein, ist aber immer schön, wenn auch etwas zurück kommt, auch wenn man gar nichts damit anfan ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zeichnung/drawing kopieren/duplizieren
cadffm am 08.11.2013 um 18:35 Uhr (1)
Mir ist zwar schleierhaft wie die Maschine an die Daten kommen soll für ein Schild ??Aber angenommen man würde den Vorgang den du dir vorstellst nicht in Frage stellen, so hast du 2 Möglichkeiten.Jedes Objekt mit geänderten Koordinaten erneut erstellen (mehrfach mit entsprechend angepassten Koordinaten,oder ziemlich simpel mit dem AutoCadbefehl _copy kopieren.Dafür brauchst du nur ein sendcommand dem du folgendes mitgiebst:"_copy" "_all" "chr" "0,0,0" neue Koordinate neue Koordinate...Beispiele für die ric ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bestimmtes Schriftfeld in Zeichnung finden
vittorio0 am 30.09.2009 um 20:59 Uhr (0)
Hi alfreddanke für die Info. Ich hab nun mein code abgespeckt, so dass ich verstehe was passiert. Mit dem folgenden code werden mir die Attributwerte ins Formular übertragen und mit UBound(Tatts) sehe ich dass es deren 19 an der Zahl sind.Was ich jetzt noch herausfinden möchte, ist der komplette Name des *SF_N* Blockes, wie komme ich an den ran?Code:Private Sub userform_Initialize()Dim EntGrp(1) As IntegerDim EntPrp(1) As VariantEntGrp(0) = 0EntPrp(0) = "INSERT"EntGrp(1) = 2EntPrp(1) = "*SF_N*" define erro ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 17.03.2007 um 11:23 Uhr (0)
Hallo Stelli1,innerhalb der letzten 70h Arbeit waren nicht viele Erfolgsmeldungen zu verbuchen. Nun ist es wieder so weit. Bin dazu übergegangen kleine Programme zu schreiben, um mich auf den entsprechenden Fehler zu konzetrieren. Hätte ich vielleicht schon früher machen sollen. Über den ersten Teil habe ich es nicht hin bekommen, der Workaround klappt. Hier der Code:Sub Beispiel()Dim NeuesElement As AcadEntityDim AnzahlEntity As LongDim AcadApp As AcadApplicationSet AcadApp = CreateObject("autocad.applica ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 28.02.2005 um 17:04 Uhr (0)
Servus CoXiDo, Zitat: Also als erstes, ich programmiere ja mit VB6 und nicht mit dem vom Autocad mitgelierferten VBA. Daher kann ich solche Objekte wie ThisDrawing und die Methode SendCommand nicht benutzen bzw. finden. Du benutzt doch die Variable acadDoc die Du auch als AutoCAD-Document in Deinem VB6 Programm definierst. Nun nimm einfach den Namen ThisDrawing und ersetze es mit Deinem acadDoc und schon sollte es funktionieren. Hier mal ein Schnellschuß in VB6: Code: Private Sub Command1_Cl ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 15:14 Uhr (0)
Ich dachte, ich hätte es beschrieben. Mein Fehler. Das Makro dient zum Erstellen eines Modells mit abweichenden Parametern. Diese verursachen in der überwiegen mit "Solid" gefüllten Fläche einige nicht gefüllte Bereiche. Sie werden jeweils von n Kreisausschnitten begrenzt. Mein Algorithmus sollte über ein Raster die gesamte Fläche scannen und feststellen ob es an dem gerade zu betrachtenden Punkt eine gefüllte Fläche gibt. Ist das der Fall springt er zum nächsten Punkt. Ist es nicht der Fall, soll er von d ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zeichnung in einen Block laden klappt nicht immer
alfred neswadba am 05.07.2009 um 23:03 Uhr (0)
Hi,es hat aber nichts damit zu tun, dass Du für Blocknamen den Variablennamen szrSource setzt und dann beim einfügen nicht diese Variable, sondern insideSource verwendest?Und Du hast in den Eigenschaften von Deinem VBA-Projekt unter Allgemein auf Unterbrechen bei Fehlern auf In Klassenmodul gesetzt, denn dann solltest Du einen Abbruch bekommen und debugen können, z.B. ob mainBlock überhaupt gesetzt ist.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 01.09.2003 um 17:12 Uhr (0)
Hallo VIP, ich bin gerade auf etwas gestoßen. Ich habe dir doch geraten, Objekte mit eigenen Funktionen, die den aktuellen Zeichnungsbereich abrufen, einzusetzen. Vielleicht geht es aber für dich so einfacher. Unter ThisDrawing stell einfach diesen Code. Code: Public Property Get CurrentSpace() As AcadBlock If Me.ActiveSpace = acModelSpace Then Set CurrentSpace = Me.ModelSpace Else If Me.MSpace Then Set CurrentSpace = Me.ModelSpace Else Set CurrentS ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 17.03.2007 um 13:46 Uhr (0)
Hallo Forum,zum Überprüfen ob ein SelectioSet vorhanden ist, hab ich die Routinen Code: On Error Resume Next Set objSelSet = AcadApp.ActiveDocument.SelectionSets("Selection") If Err.Number Then Set sset = AcadApp.ActiveDocument.SelectionSets.Add("Selection") End If On Error GoTo 0oderCode: If Err.Number = 0 Then objSelSet.Clear Err.Clear Else Set objSelSet = AcadApp.ActiveDocument.Add("Selection") On Error GoTo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 28.02.2005 um 14:11 Uhr (0)
Hallo CoXiDo, ich denke, zuerst brauchst Du die Maximalwerte (Ausdehnung) Deiner Zeichnung um sie skalieren zu können. Schau Dir dazu mal diesen Beitrag an: http://ww3.cad.de/foren/ubb/Forum259/HTML/000520.shtml Den Befehl _scale und _move machst Du am besten via SendCommand z.B. so (unter der Annahme, Deine Zeichungseinheit entspricht 1mm): Code: Dim AllMin, AllMax As Variant Die zuvor ermittelten Maximalwerte Dim XMinStr, YMinStr, ScaleFaktor As String Const SollHoehe = 146 ScaleFaktor = ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 08.08.2003 um 09:42 Uhr (0)
Im Grunde ist der Aufbau der Drausicht recht simpel. Ich habe eine Datei angehägt bei der allerdings nicht alles drauf ist was wir in der Regel für den Kunden darstellen (nicht dass ich sonst noch ärger bekomme wenn ich sowas hier veröffentliche ) Wie gesagt, bei uns werden oft ungerade Durchmesser (z.B. 2550) verlangt und dann muss man immer alles neu zeichnen. Da aber alle Linien mathematisch an eine bestimmte Position gehören dürfte das über ein Makro und ein kleines Eingabefeld sicher zu bewerkste ...
|
| In das Form Autocad VBA wechseln |
Drawing1.zip |
AutoCAD VBA : Modifizierung Zeichnung in Autocad bei import einer dxf-datei
stefanschubi am 07.01.2012 um 10:31 Uhr (0)
Ein kleiner Nachtrag dazu. Man könnte zuerst die Layer über makro erstellen.Sub layer_erzeugen()Dim objlayerA As AcadLayerDim objlayerB As AcadLayerSet objlayerA = ThisDrawing.Layers.Add("Bezugslinie")Set objlayerB = ThisDrawing.Layers.Add("Begrenzungslinie")objlayerA.Color = acGreenobjlayerB.Color = acBlueEnd SubDann mit der Filterfunktion über Selectionset die genannten Einstellungen für die Objekte vornehmen. Doch daran scheitert es, da ich die Befehle nicht so speziell kenne.Eine Beispielzeichnung mit ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Zeichnung über einen Menüpunkt öffnen
Brischke am 15.05.2004 um 19:11 Uhr (0)
Hallo, @caladia Richtiger sollte es heißen: Der Documents-Collection ein weiteres Document hinzufügen. Die Documents-Collection hängt direkt unter dem Acad-Object. Das Ganze könnte dann ein VBA-Macro werden, welches über einen Button aufgerufen wird - oder wie folgt in Lisp. Das Prinzip kann ja 1:1 nach VBA übernommen werden. (defun open_dwg (Name) (setq NewDWG (vlax-invoke-method (vlax-get-property (vlax-get-acad-object) Documents ) ...
|
| In das Form Autocad VBA wechseln |
