|
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 |
|
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)
 |