|
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
flori555 am 09.02.2006 um 03:25 Uhr (0)
Hallo,noch eine letzte frage. Unten findet ihr den CodeOn Error Resume Next ThisDrawing.SelectionSets("abdefSelset").Delete Set oooooooogac_Sset = ThisDrawing.SelectionSets("abdefSelset") If Err.Number Then Wenn noch nicht vorhanden Set oooooooogac_Sset = ThisDrawing.SelectionSets.Add("abdefSelset") End If On Error GoTo 0 xxxxxxxxType(0) = 6 xxxxxxxxvalue(0) = "Dashed" oooooooogac_Sset.SelectOnScreen xxxxxxxxType, xxxxxxxxvalue For Each Dashed In oooooooogac_Sset Dashed.Layer = "AM_3" Das ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layer und Layereigenschaften
flori555 am 10.02.2006 um 08:32 Uhr (0)
Hallo Martin,die Layer sind nicht vorhanden. Sie werden vom vb code erst erzeugt (siehe Code oben). Wenn ich die AutoCAD Datei lade, ist kein einziger Layer definiert. Der Code definiert die Layernamen und die Farben auch richtig, jedoch die Linienstaerke und der Linientyp ist nicht richtig, bzw. wird im Ansichtsfenster nicht geandert. Wenn ich die Linie dann anklicke, wird mir die Linienstaerke im Eigenschaftsfenster sowie die linienart richtig angezeigt. Somit weis ich, dass der Code richtig arbeitet, je ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Masse mit Vb erkenne und verarbeiten
flori555 am 21.02.2006 um 06:53 Uhr (0)
Hallo,jetzt habe ich nochmal eine Frage. Ist es vielleicht moeglich, in einem Schnitt der 2D Zeichnung gewisse Teile der Zeichnung so zu makieren, dass AutoCAD dies als Flaechen erkennt. Dann koennte ich doch mit Vb diese Flaechen ansprechen. Mein Bauteil ist ein Rotationskoerper. Somit koennte ich doch das Volumen berechnen. Ist das irgendwie moeglich?Gruss,Florian
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
