|
AutoCAD VBA : Altes Script funktioniert nicht mehr in acad 2010
cacysunlee am 18.06.2009 um 11:50 Uhr (0)
Ok, wo stelle ich nochmal die Verweise ein?Kenne mich leider nicht so gut mit VBA aus.Und es ist schon paar Jahre her wo ich das Script geschrieben habe.Edit : Ok, bei Extras... Verweise muss irgendwo ein Hacken hin... *gerade am und-color: #FFFF99'>suchen ist*------------------[Diese Nachricht wurde von cacysunlee am 18. Jun. 2009 editiert.]
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Gesamtgewicht Volumenkörper
cacysunlee am 25.10.2006 um 11:50 Uhr (0)
Danke für den Tip Carsten,nach langem und-color: #FFFF99'>Suchen haben ich auch was gefunden.Das Script sieht nun so aus :Public Sub Gewicht()Variablen deklarierenDim Sset As AcadSelectionSetDim Auswahl As AcadObjectDim vGesamtG As VariantFunktionSet Sset = ThisDrawing.SelectionSets.Add("Element")Sset.SelectOnScreenFor Each Auswahl In Sset If TypeOf Auswahl Is Acad3DSolid Then ob Volumenkörper vGesamtG = vbCrLf & vGesamtG + Auswahl.Volume * 0.00000785 End IfNextMsgBox "Das Gewicht der Volumenkörper ist :" & vGesamtGSset.De ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |