|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
kiltswitch am 02.11.2004 um 08:18 Uhr (0)
Wie ist das mit der Microsoft Scripting Runtime- Aktivierung gemeint? Wo mache ich das? Der Code wie er unten steht, funktioniert irgendwie nicht. Er bringt einen Fehler beim Kompilieren und meint bei der Zeile: Dim fso As FileSystemObject benutzerdefinierter Typ nicht definiert Was kann da falsch sein? K Zitat: Original erstellt von BloodyMess: Hallo kiltswitch, ja es ist möglich. Das Ausdokumentieren des Codes habe ich mir erspart, aber vielleicht mal selber reinschauen. So schwer ist es ja nicht. ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Probleme ein dem Verstehen eines Codeabschnitts
startrek am 08.12.2007 um 15:58 Uhr (0)
Mal ein Beispiel für einen Block, der die Attribute X,Y und Z besitztund denen die Attributwerte der XYZ Koordinaten zugeordnet werden sollen.Code:Lesen aller Attribute eines Blockes im Array blockattsblockAtts = myBlockRef.GetAttributes Durchlauf des Array und Suche nach Attributen mit Tagstring X,Y und ZFor attIndex = LBound(blockAtts) To UBound(blockAtts) Select Case blockAtts(attIndex).TagString wenn X: dann überschreibe Textstring mit x-Koordinate, dito für Y,Z Case Is = "X": block ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA-Selectionset an Acadbefehl übergeben; Wie ??
fuchsi am 07.10.2005 um 12:44 Uhr (0)
noch eine Antwort in Lisp ausprogrammiert(vl-load-com); Autocad Objekt holen(setq AxAcad (vlax-get-acad-object)); aktuelle zeichnung holen(setq AxDrawing (vla-get-activedocument AxAcad)); Container Selectionssets holen(setq AxSelectionsets (vlax-get AxDrawing "SelectionSets")); den in VBA erstellten Selectionset mittels dessen Namen holen(setq AxSelectionset (vlax-invoke AxSelectionsets "ITEM" "TEST3")); einen leeren Lisp Auswahlsatz erstellen(setq LispSelectionset (ssadd) i1 0); eine Schleife über alle im ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : ACAD VBA + Word
The VIP am 27.10.2004 um 09:52 Uhr (0)
Hallo. Unsere Projektzeichnungen haben immer auch eine Beschreibung. D.h. wir haben auf einem DIN A3 Blatt links die Vorder- und Draufsicht dargestellt und rechts einen recht langen MTEXT der je nach dem was der Kunde bestellt hat inhaltlich variieren kann. Der Text beinhaltet ca. 35-40 Zeilen und einige wenige Formatierungen zur Übersichtlichkeit. Es kam nun der Wunsch vom Vertrieb (die kein AutoCAD auf den Rechnern haben) diesen Text ändern zu können falls der Kunde sich mal eben umentscheidet in der Bes ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Abmessungen und Formen von Selectionsets
mapcar am 02.04.2004 um 11:33 Uhr (0)
Dunkel ist deiner Worte Sinn... Hier dazu mein kleiner 1. Codeversuch Und? Was ist das Problem damit? ... Möglichkeit alle Informationen die der ausgewählte Bereich enthalten zu bekommen Did you mean ... Möglichkeit, alle Informationen, die der ausgewählte Bereich enthält, zu bekommen ? Was für Informationen denn? Oder meinst du Geometrie? Soll das die Begrenzung für einen Auswahlsatz werden? auf dem Bildschirm zu errechneten Koordinaten verschieben? Did you mean verschieben ? Falls du das mein ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Linienfarbe und Linientyp aendern mittels Vb
flori555 am 03.02.2006 um 02:34 Uhr (0)
Hallo an Alle,ich habe ein echt grosses Problem. Ich soll eine Zeichnung (Programm, Advanced CAD , Version 13.01) im .dxf Format in AutoCAD 6 importieren und alle Linientypen richtig darstellen. Das importieren kann man ja manuel, ist also kein Problem. Es werden beim importieren aber alle Linientypen in Roter Farbe darbestellt. Meine Frage: Wie kann ich mit Hilfe von Visual Basic die Linien einer Kategorie (z.B. alle Bemassungslinien) auswaehlen und auf den richtigen Linientyp und die richtige Linienfarbe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme ein dem Verstehen eines Codeabschnitts
KlaK am 07.12.2007 um 21:11 Uhr (0)
Hallo Gloem,betrachte es doch mal so:Du bekommst von der Methode GetAttributes das Feld zurückgeliefert in dem alle Namen (TagString) und Inhalte (TextString) aller zu dem Block gehörigen Attribute stehen.In Deinem Programm weist Du jetzt dem ersten Attribut (0) einen neuen Inhalt zu, nämlich die Punktnummer aus der Datenbank. Dies wird direkt in die entsprechende AutoCAD Tabelle eingetragen. In AutoCAD gibt es öfters Daten die nicht direkt anzusprechen sind, beispielsweise werden von vielen Programmen XDa ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad 2011, Code zum Dateiöffnen funktioniert nicht
steven-66 am 17.02.2012 um 13:21 Uhr (0)
Hallo runkeruebe,ja Du hast recht. Mit dem Codeschnipsel ist das Problem wohl nicht zu erkären/beheben.Der Gesamtcode soll eine ausgewählter Geometrie aus einer DWG in eine neue Zeichnung speichern,in diese Zeichnung die Positionsnummer reinschreiben, den erzeugten Text sprengen, ein Flatten Objects ausführen,die Datei dann als DXF-Datei speichern und die DWG-Datei dann löschen.Hier mal der Code (der so schon Jahrelang in AutoCAD 2009 funktioniert):Private Sub btnWBlock_Click()Positionstext einfügen Dim t ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Herausforderung Mechanical Part
cadx am 28.01.2008 um 09:08 Uhr (0)
Ein schier hoffnungsloser Fall sind die Bohrungen und Gewinde Objekte in ACAD Mechanical 2007. Es geht darum die Zeichnung nach Objekten wie Linien, Kreise, Bögen zu durchsuchen und in DXF zu speichern. Solange es AutoCAD Standardobjekte sind, ist dies kein Problem. Nun sind in unseren Zeichnungen auch Objekte vom Typ "AmgStdPart". Es handelt sich dabei um Objekte wie Bohrungen, Gewinde und Langlöcher, die über Normteile erstellt wurden. Bisher habe ich keinen Weg gefunden unter VB an die SubElemente zu ko ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Rahmen zeichnen mit VBA
KlaK am 25.04.2008 um 01:35 Uhr (0)
Hallo Markus,aller Anfang ist schwer. Da hilft nur lesen, üben und ausprobieren.Beiliegend hab ich Dir mal Dein Programm so abgeändert dass ein Rahmenblock erzeugt wird.Die zusätzlichen Funktionen dienen der Überprüfung. Wenn Du sie nicht benutzt werden beim wiederholtem Aufruf des Programmes zum Beispiel mehrere Attribute an den Block angefügt, die den gleichen Namen haben. Ansonsten müßtest Du immer darauf achten dass Du wirklich eine leere Zeichnung hast.Deine Farbzuweisung funktioniert so nur wenn Du e ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektaktualisierung, ID, Datenbank
c.schojer am 21.06.2008 um 21:49 Uhr (0)
Also mal eine TeilantwortEs gibt 2 Arten die Objekte zu IdentifizierenObject.handle BsP.: 1CA "Eindeutig permanente ID"Object.ObjectID Bsp.: 2130396304 "Adresse im Speicher = Nicht permanent!"Ich denke mal damit kann man schon viel machen!Du willst Mtext verwenden?? Viel Spaß!Hast dir schon mal einen modifizierten Mtext reingeladen??Für Änderungen mußt den zerklauben da man beim Mtext ja alle möglichen Fonts usw einstellen kann!Hab mal ein solches Programm erhalten um aus dem codierten Mtext den eigent ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block.delete funktioniert nicht immer
alfred neswadba am 28.01.2010 um 00:23 Uhr (0)
Hi, Ich habe mich auch schon gefragt, ob die Database nach dem Löschen der Blockreferenzen abgedated wirdMit VBA ja, da es nicht TransAction-basierend arbeitet, wird jede Modifikation sofort an der Datenbank durchgeführt. Was ich ja mache in dem Modul, ist, ich lösche die vorhandene Blockreferenz mit Namen "X", lösche dann den Block mit Namen "X". (Was nicht funzt)Das versteh ich, ich hätte nur gehofft, dass Dir ein Zusammenhang zwischen den Volumenkörpern auf diesem Layer und den (gelöschten) Blockrefere ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Text selectieren / auslesen
Stelli1 am 14.09.2005 um 12:59 Uhr (0)
Hallo Armand,hab gerade gesehen das schon eine Antwort da war.Hatte das Beispiel gerade fertig gestückelt und schickst halt mal.Ist aber der gleiche Ansatz wie bei Nancy.Code:Dim Ausgabedatei As StringDim SelSet As AcadSelectionSetDim SelPkt(0 To 2) As DoubleDim MyText As AcadMTextDim Text As StringDim intAusgabe As IntegerDim GpType(0 To 0) As IntegerDim GpValue(0 To 0) As VariantDim FilterType As VariantDim FilterValue As VariantOn Error Resume NextErr.Clear Versuch Zuweisung MySelSetSet SelSet = ThisDra ...
|
| In das Form Autocad VBA wechseln |
