---

Hilfe, mein altes Script funktioniert in Acad 2010 nicht mehr 
Damit konnte ich immer schnell das Gewicht mehrerer Volumenkörper bestimmen.

Hier der Quelltext der in acad 2009 noch funktionierte :

Public Sub Gewicht()
'Variablen deklarieren
Dim Sset As AcadSelectionSet
Dim Auswahl As AcadObject
Dim vGesamtG As Variant

'Funktion
Set Sset = ThisDrawing.SelectionSets.Add("Element")
Sset.SelectOnScreen
For Each Auswahl In Sset
    If TypeOf Auswahl Is Acad3DSolid Then 'ob Volumenkörper
    vGesamtG = vbCrLf & vGesamtG + Auswahl.Volume * 0.00000785
    End If
Next

MsgBox "Das Gewicht der Volumenkörper ist :" & vGesamtG
Sset.Delete

End Sub

------------------
www.amdir.de

Meine kleine Rendergallerie aus alten Acad2000 und Acad2005 Zeiten :
Reindampferzeuger,Kesselraum,Heizstation

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

VBA-Umgebung im 2010'er nachinstalliert ?  (Ist original nämlich nicht mehr enthalten)
Siehe auch <<Klick>>

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Den habe ich schon drauf, es funktioniert immer noch nicht, folgende Fehlermeldung wird ausgegeben :

"Projekt oder Bibliothek nicht gefunden."

Dabei wir die Zeile : "Sset As AcadSelectionSet" markiert

------------------
www.amdir.de

Meine kleine Rendergallerie aus alten Acad2000 und Acad2005 Zeiten :
Reindampferzeuger,Kesselraum,Heizstation

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Es wird daran liegen das die Verweise nicht richtig gesetzt sind.
Bei der 2000er war es VB5 und jetzt ist VB6 die Basis.

Schau da mal unter den Verweisen nach und stelle die gültigen ein.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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 suchen ist*

------------------

[Diese Nachricht wurde von cacysunlee am 18. Jun. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

SS-AC2010-VBA-Verweise.PNG

VBA-Editor: Menü "Extras" > Verweise
s. screenshot, die 3 hab ich drin, damit tut es.
PS: es ist ein Haken, ne Hacke brauchst Du im Garten, einen Hacken hast Du am Fuß 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Genau, den Haken ( nur mit k  ) musste ich bei AutoCAD 2010 Type Library noch setzten.
Nun funktionieren auch die anderen Scripts !

Herzlichen Dank allen für die schnelle Hilfe ! 

------------------
Meine kleine Rendergallerie aus alten Acad2000 und Acad2005 Zeiten :
Reindampferzeuger,Kesselraum,Heizstation

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP