|
Autocad VBA : Objekt AutoCad.Acad3DSoilid.Volume aufrufen???
Clayton am 17.12.2005 um 00:20 Uhr (0)
Hi,Was Du hier siehst ist direkt von der Hilfe in AutCad, mit meiner Uebersetzung. War ja nicht viel - ist also umsonst.GrussSub Beispiel_Volumen() Dieses Beispiel erstellt einen Quader im Modellraum. Das Volumen wird in der Variablen "Volumen" ausgegeben. Dim boxObj As Acad3DSolid Dim Laenge As Double, Weite As Double, Hoehe As Double Dim Zentrum(0 To 2) As Double Definition fuer den Quader Zentrum(0) = 5#: Zentrum(1) = 5#: Zentrum(2) = 0 Laenge = 5#: Weite = 7: Hoehe = 10# Zeichne den ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Objekt AutoCad.Acad3DSoilid.Volume aufrufen???
Clayton am 17.12.2005 um 17:28 Uhr (0)
Hi,Oder:Public Sub Finde_Volumen() Dim returnObj As AcadObject Dim basePnt As Variant Dim Volumen As Double On Error Resume Next Im folgenden Beispiel wartet AutoCad auf User InputRETRY: ThisDrawing.Utility.GetEntity returnObj, basePnt, "Waehle einen Koerper" If Err 0 Then Err.Clear MsgBox "Programm gelaufen.", , "Beispiel: Finde das Volumen" Exit Sub Else returnObj.Update Und schliesslich gib das Volumen aus: Volumen = returnObj.Volume MsgBox "Das Volumen des Quaders ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : DDE-Schnittstelle erzeugen
Clayton am 27.02.2006 um 15:57 Uhr (0)
Hi,Ich glaube, Du bist hier verkehrt. AutoCad unterstuetzt diese Funktionen seit AutoCad 2000 nicht mehr. Da muesstest Du Dich m.E. schon mit Dassault Systems in Verbindung setzen. Aber, wie Du weiter unten siehst, stammem diese Methoden von Visual Basic.GrussLinkItem, LinkMode, LinkTopic Properties ExampleIn the example, each mouse click causes a cell in a Microsoft Excel worksheet to update the contents of a Visual Basic TextBox control. To try this example, start Microsoft Excel, open a new worksheet na ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
