|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 12.08.2003 um 07:38 Uhr (0)
Kommt ganz darauf an was du damit machen willst. Wenn du den Kreis nachher noch einmal angreifen willst (Farbe ändern, verschieben,...), dann solltest du ihn dir auch merken. Code: dim Kreis as acadcircle set kreis = thisdrawing.modelspace.addcircle(Einsetzpunkt, Radius) wenn du den Kreis nicht mehr brauchst, dann Code: thisdrawing.modelspace.addcircle Einsetzpunkt, Radius ------------------ Roland
| | In das Form Autocad VBA wechseln |
|
Rund um AutoCAD : Mehrfach Kopieren Verschieben und Drehen
RoSiNiNo am 06.04.2013 um 13:57 Uhr (1)
Zitat:Original erstellt von Antimon:Ich brauche eben ein bestimmtes Bauteil (sieht so ähnlich aus wie im Screenshot meines 1. Postes) 24 (=360°/15°) mal nebeneinander in jeweils um 15° gedrehter Position. Da ich am Bauteil dann oft kleine Änderungen vornehmen muss, wäre es eine Riesenarbeit, jedesmal eine Reihe von gedrehten Kopien von Hand zu erstellen.Nur mal eine Frage, warum muss man die Reihe immer neu erstellen? In diesem Fall sollte der Bauteil als Block eingefügt werden, dann ist es nicht notwendig ...
| | In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : 3 dinge zu ACAD2007
RoSiNiNo am 24.05.2006 um 10:11 Uhr (0)
Zitat:Original erstellt von Benjamin:1. beim boolen (addition) zweier körper verschwinden manchmal beide.Ich habe mir deine Wände jetzt einmal angesehen.Zuerst einmal die Frage, wie hast du diese Wände ertellt? Ich nehme an mit AutoCAD 2006 und nicht mit 2007.Ich habe die Wände sehr wohl um 10 Einheiten nach unten verschieben können, verstehe also dein Problem nicht. Zitat:2. ich kann bei wänden (extrudierte lines) keine flächen extrudierenVerstehe dich hier nicht ganz, kann es auch nicht nachvollziehen. ...
| | In das Form Rund um Autocad wechseln |
|
Autocad VBA : Abmessungen und Formen von Selectionsets
RoSiNiNo am 02.04.2004 um 13:30 Uhr (0)
Wenn du ein SS verschieben möchtest, wie wäre es dann mit einer Funktion wie z.B. Code: Schieben eines SelectionSets Public Sub MoveSS(SS As AcadSelectionSet, FromPoint, ToPoint) Dim i As Long On Error GoTo Err_Control For i = 0 To SS.Count - 1 SS.Item(i).Move FromPoint, ToPoint Next Exit_Here: Exit Function Err_Control: MsgBox Err.Description Err.Clear Resume Exit_Here End Sub Wenn du die BoundingBox eines SS möchtest, noch eine Funktion: Code: Public ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
