|
AutoCAD VBA : Programmoptimierung
Dirk.B am 29.01.2006 um 14:49 Uhr (0)
Hallo Carsten!Der Tip war Ok, dieses Problem habe ich damit lösen können.Mein Problem mit dem "VonBlock" / "VonLayer" hab ich noch nicht lösen können.Mit diesem Code bricht zumindist das Programm nicht mehr ab.Code:Private Sub Cmd2_Click() Spax_01.Hide With ThisDrawing .SendCommand "_color" & Chr(13) c2 = .GetVariable("CECOLOR") End With Select Case IsNumeric(c2) Case 1 To 255: c.ColorIndex = c2 Case acByBlock: c2 = 0 Case acByLayer: c2 = 256 Case Else s = Split(Right(c2, Len(c2) ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block einfügen / Sichtbarkeit
Stelli1 am 29.01.2006 um 15:46 Uhr (0)
Hallo Dirk,grundsätzlich geht das nicht.Du kannst den Block nur an eine Dummy Position einfügen unddann per SendCommand die Verschiebenfunktion von AutoCAD aufrufenund den Block vorselektieren.Goofy hat so was mit Attributen gemacht.siehe hierStelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Dateiauswahl aus Verzeichnis
Stelli1 am 30.01.2006 um 11:01 Uhr (0)
Halo Ines,in dem Artikel war folgender Code: Zitat:Original erstellt von startrek:.....Code:Sub asdf() Dim f$, p$, i& p = "D:Cad" f = Dir(p & "*.dwg") i = 1 Do While f "" Documents.Open p & f With ActiveDocument MsgBox i & ": " & .WindowTitle If Not .Saved Then .Save .Close End With i = i + 1: f = Dir LoopEnd SubGruss Nancy Das ist keine Endlosschleife.Dir(p & "*.dwg") liest die erste Datei im Pfadf = Dir liest die nächste Datei. Gibst keine mehr wird die Schleife beendet. Wichti ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Dateiauswahl aus Verzeichnis
InesP am 30.01.2006 um 12:44 Uhr (0)
Hallo Stelli,ok, soweit hab ich das verstanden. Allerdings verstehe ich eins nicht dabei: wenn ich das Programm mit F5 starte, dann läuft es ganz normal durch, wenn ich es mit F8 aus dem Editor heraus starte, wird AutoCAD bereits nach dem ersten Durchlauf beendet. Geht das nur mir so oder tritt das Problem auch bei Dir auf?Gruß Ines
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Plotten mehrere Zeichnungen mit VBA
mib75 am 30.01.2006 um 12:53 Uhr (0)
Hallo Stelli,hab deinen Vorschlag probiert, aber das AutoCAD bzw. VB schreibt nichts in die Systemvariable.CMDACTIVE = 0CMDNAMES = ""Aber trotzdem besten Dank.Michael
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Dateiauswahl aus Verzeichnis
Stelli1 am 30.01.2006 um 12:55 Uhr (0)
Hallo Ines,bei mir läufst einwandfrei.Hast du vielleicht die Systemvariable SDI auf 1 ?Dann kannst du nur ein Dokumant öffnen und AutoCAD wird eventuell mit dem Schliessen der Zeichnung geschlossen.Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Koordinaten von Linien usw. in Blöcken mit VBA auslesen
Stelli1 am 01.02.2006 um 12:49 Uhr (0)
Hallo Sigi,bist du mit VBA vertraut ?Im AutoCAD werden die Zeichnungsdaten im Modelbereich verwaltet.Im folgenden Beispiel werden alle Zeichnungselemente des Modellbereichs duchsucht. Hier sind verschiedene Objekttypen zu finden, die teilweise unterschiedliche Eigenschaften haben.Code:Option ExplicitSub lese_koordinaten() Dim entity As AcadEntity Dim blockref As AcadBlockReference Dim lwpolyline As AcadLWPolyline Dim Text As AcadText Dim Mtext As AcadMText usw. Dim i As Integer Dim Koord As Vari ...
|
| 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 : Linienfarbe und Linientyp aendern mittels Vb
flori555 am 03.02.2006 um 07:30 Uhr (0)
Hallo Michael,danke fuer die schnelle Antwort, aber irgendwie funktioniert es nicht. Die Fehlermeldung lautet: Aktives AutoCAD Fenster nicht aktiv, oder so aehnlich (kanns nur schwer lesen, ist in Japanisch). Dim ss As AcadSelectionSet Dim Code(0 To 0) As Integer Dim Daten(0 To 0) As Variant On Error Resume Next ThisDrawing.SelectionSets("select01").Delete On Error GoTo 0 Set ss = ThisDrawing.SelectionSets.Add("select01") Code(0) = 0 Daten(0) = "LINE" ss.SelectOnScreen Code, Daten Hier ist ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Linienfarbe und Linientyp aendern mittels Vb
flori555 am 03.02.2006 um 09:35 Uhr (0)
Hallo,nochwas.Wennn ich Line.Color = ByLayer aendere, wird in AutoCAD auch was geandert. Jedoch nicht nach ByLayer sondern nach ByBlock. Warum denn das?Gruss,Florian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Linienfarbe und Linientyp aendern mittels Vb
flori555 am 06.02.2006 um 09:14 Uhr (0)
Hallo Michael,die Farbe aendern funktioniert jetzt. Wenn ich denn Layer aendern will, bringt er immer eine Fehlermeldung (kann ich leider nicht uebersetzen). Kann es sein, wenn die Sichtbaren Linien und die Bemassungslinien den gleichen Layer und die gleiche Farbe haben (im orginal Dokument), dass bei der Funktion Dim AcadLine As AcadCircle For Each Line In ThisDrawing.ModelSpace Line.Color = acGreenalles auf gruen geandert wird. Irgendwie kann AutoCAD die Linien (ob es eine Bemassungslinie oder eine ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Gruppencode und Gruppentyp herausfinden
CAD-Huebner am 07.02.2006 um 10:09 Uhr (0)
Die Codes stehen in der AutoCAD Online Hilfe (DXF-Referenz)oder direkt die Datei acad_dxf.chm im AutoCAD Help Verzeichnis öffnen.------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Gruppencode und Gruppentyp herausfinden
Stelli1 am 07.02.2006 um 10:24 Uhr (0)
Hallo Florian,wenn gar nichts anderes geht, kann man sich ein Element in eine DXF Datei speichern. Ab dem Abschnitt "Entities" ist dann dein Element aufgelistet.Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
