|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 20.12.2011 um 19:57 Uhr (0)
Erstmal Hallo ins ACAD VBA- Forum.Bin sonst nur im IV VBA- Forum unterwegs und muss euch jetzt hier auch mal nerven... Gleich zur Frage:Ist es über VBA möglich Layer zusammenzufassen?Wenn ich aus Inventor einen DXF- Export ausführe vergebe ich über eine XML- Datei3 neue Layer. Die vorhandenen Layer werden dann in der gleichen Datei einfach umbenanntin die neu erstellten Layer.Dadurch kann ich 15 Layer zu 3 zusammenfassen.Im ACAD habe ich es jetzt über eine for each Schleife probiert.Code: For Each Layer I ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
CAD-Huebner am 20.12.2011 um 21:04 Uhr (0)
Reicht nicht das eingebaute Kommando LAYZUSF / _LAYMRG in AutoCAD?Z.B. als Lisp-Makro (command "layzusf" "n" "Layer1" "n" "Layer2" "n" "Layer3" "" "n" "0" "j")oder in VBA über SendcommandThisDrawing.SendCommand "_laymrg" & vbCr & "Layer1" & vbCr & "n" ... usw.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de[Diese Nachricht wurde von CAD-Huebner am 20. Dez. 2011 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 21.12.2011 um 07:11 Uhr (0)
Stimmt, geb ich Dir recht...Mein Lösungsansatz ist jetzt folgender:Lisp- Datei erstellt und diese wird vom ACAD beim Start mitgeladen.Inhalt Lisp- Datei:Code:(defun C:asdf (/ Laytrans)(cond ((not (member "laytrans.arx" (arx))) (arxload "laytrans")))(acet-laytrans "standard.dws" (+ 1 2 4)))(princ)Dementsprechend eine dws- Datei über den Layermanager erstellt welche die vorhandenen Layer zu den neuen zusammenfasst.Aufruf von asdf dann über VBA mit dem SendCommand Befehl...Gefällt mir zwar nicht aber funktion ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 20.12.2011 um 19:57 Uhr (0)
Erstmal Hallo ins ACAD VBA- Forum.Bin sonst nur im IV VBA- Forum unterwegs und muss euch jetzt hier auch mal nerven... Gleich zur Frage:Ist es über VBA möglich Layer zusammenzufassen?Wenn ich aus Inventor einen DXF- Export ausführe vergebe ich über eine XML- Datei3 neue Layer. Die vorhandenen Layer werden dann in der gleichen Datei einfach umbenanntin die neu erstellten Layer.Dadurch kann ich 15 Layer zu 3 zusammenfassen.Im ACAD habe ich es jetzt über eine for each Schleife probiert.Code: For Each Layer I ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
CAD-Huebner am 20.12.2011 um 21:04 Uhr (0)
Reicht nicht das eingebaute Kommando LAYZUSF / _LAYMRG in AutoCAD?Z.B. als Lisp-Makro (command "layzusf" "n" "Layer1" "n" "Layer2" "n" "Layer3" "" "n" "0" "j")oder in VBA über SendcommandThisDrawing.SendCommand "_laymrg" & vbCr & "Layer1" & vbCr & "n" ... usw.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de[Diese Nachricht wurde von CAD-Huebner am 20. Dez. 2011 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 21.12.2011 um 07:11 Uhr (0)
Stimmt, geb ich Dir recht...Mein Lösungsansatz ist jetzt folgender:Lisp- Datei erstellt und diese wird vom ACAD beim Start mitgeladen.Inhalt Lisp- Datei:Code:(defun C:asdf (/ Laytrans)(cond ((not (member "laytrans.arx" (arx))) (arxload "laytrans")))(acet-laytrans "standard.dws" (+ 1 2 4)))(princ)Dementsprechend eine dws- Datei über den Layermanager erstellt welche die vorhandenen Layer zu den neuen zusammenfasst.Aufruf von asdf dann über VBA mit dem SendCommand Befehl...Gefällt mir zwar nicht aber funktion ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Object greifen
CADmium am 22.12.2011 um 08:18 Uhr (0)
Aus der Hilfe ( -- F1 )Sub Example_Layer() This example creates a new layer named "ABC" (colored blue). It then creates a circle and assigns it to layer "ABC" Create new layer Dim layerObj As AcadLayer Set layerObj = ThisDrawing.Layers.Add("ABC") Dim color As AcadAcCmColor Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16") Call color.SetRGB(80, 100, 244) layerObj.TrueColor = color Create Circle Dim circleObj As AcadCircle Dim center(0 To 2) As D ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekt-Namen bzw. Eigenschaft ändern
cadffm am 30.12.2011 um 09:20 Uhr (0)
Zum Brandmarken von Objekten gibt es XData/EED, Extendet Entity Data. wie auch immer.Google einfach mal mit den Begriffen. http://www.cadalyst.com/cad/autocad/working-with-extended-data-vba-and-autolisp-4818 ------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Modifizierung Zeichnung in Autocad bei import einer dxf-datei
stefanschubi am 06.01.2012 um 18:40 Uhr (0)
Hallo zusammen,ich kenne mich zwar mit VBA an sich aus, aber nicht die Befehle in Autocad. Ich möchte eigentlich nur eine Befehlabfolge generieren um das Zeichnungsbild zu modifizieren. Und zwar ist es so, dass ich eine dwg-Datei offen habe und aus einer dxf-Datei noch weitere Daten in zeichnungsform dazu lade. Dieses besteht aus einem einzigen Layer, soweit ich das richtig verstanden habe. Enthalten sind zwei Baugruppen, die eine weiß und die andere mangenta. Darauf zeigen noch weiße Maßlinien (keine Pfei ...
|
| 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 : Zeichnung1 bei mehreren Fenstern (MDI)
vittorio0 am 08.01.2012 um 23:39 Uhr (0)
Liebes ForumMit dem untenstehenden Code (in Access 2003) starte ich AutoCAD 2009 und öffne die Datei in "tocall"AutoCAD wird gestartet und die Zeichnung geöffnet. Mit acApp.Visible = True wird dann auch AutoCAD als aktives Fenster im Vordergrund dargestellt. Wenn ich dann eine weitere Zeichnung öffne in Access wird jedoch AutoCAD nicht mehr im Vordergrund dargestellt. Jede weitere Zeichnung ist die Access Applikation im Vordergrund. Warum? Mit "acApp.Visible = True" wird doch AutoCAD angezeigt.Da aber im ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zeichnung1 bei mehreren Fenstern (MDI)
Stelli1 am 09.01.2012 um 13:01 Uhr (0)
Hallo,mit Code:AppActivate acApp.captionbekommst du AutoCAD wieder in den Vordergrund."acApp.Visible = True" macht AutoCAD nur sichtbar (falls verborgen geöffnet). Zitat:Im Forum hab ich gelesen dass AutoCAD etwa 20 mal langsamer arbeitet wenn es von einer externen Applikation wie Excel oder in meinem Fall von Access gestartet wird.Wenn du AutoCAD extern ansteuerst ist es in der Tat wesenlich langsamer als wenn du es intern steuerst. Das hängt davon ab was du erreichen willst.Wilfried Stelberg------------- ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zeichnung1 bei mehreren Fenstern (MDI)
vittorio0 am 09.01.2012 um 15:02 Uhr (0)
Hallo Stelli1,AppAcivate hat funktioniert, hab das mit hide falsch versatanden. Besten Dank für die schnelle Antwort.Betreffend der Geschwindigkeit. In meinem Fall starte ich AutoCAD von Access aus und lade mir eine Zeichnung gemäss obigem code. Ist es auch langsämer für alle weiteren Operationen die danach manuell ausgeführt werden?Gruss Vittorio0
|
| In das Form AutoCAD VBA wechseln |
