---

hallo,

wie kann ich in lisp das volumen eines volumenkörpers ermitteln ?

------------------
MfG
Frank

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

---

so vielleicht :
(defun c:GET-VOLUME( / OBJ  VOLUME)
  (vl-load-com)
  (if(and(setq OBJ (car(entsel)))
        (setq OBJ (vlax-ename->vla-object OBJ))
        (not(vl-catch-all-error-p
              (setq VOLUME(vl-catch-all-apply
                            'vlax-get-property
                            (list OBJ 'Volume)
                          )
              )
            )
        )
    )
    (progn
      (princ "\n Volumen : ")(princ VOLUME)
      VOLUME
    )
  )
)

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

---

klappt prima, danke !

wenn es mit dem volumen klappt, müsste es doch auch mit anderen eigenschaften gehen ? gibt es eine liste mit gültigen "properties" ?

------------------
MfG
Frank

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

---

jo, die Eigenschaften kriegste z.B. mit (vlax-dump-object(vlax-ename->vla-object(car(entsel)))'T)

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

---

...oder in der AutoCAD ActiveX Hilfe als komfortable verlinkte Schemazeichnung.
Ein Blick drauf lohnt sich immer...

(Es gibt ja auch durchaus nicht-grafische Acad-Elemente)

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 28. Jan. 2005 editiert.]

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!
>>>>>>>>>>> Aber immernoch aktuell!

Kann man denn Volumen auch von verschnittenen Volumenkörpern ermitteln. Beispielsweise ein "neuer" Strassenkörper liegt auf oder unter dem Gelände und es soll nun ermittelt werden wieviel Volumen Auf& Abtrag
So richtig schlau werde ich aus dem 3DSolig Interface nicht

Code:

---

Command: (vlax-dump-object (vlax-ename->vla-object (car (entsel))))

Select object: ; IAcad3DSolid2: AutoCAD 3dSolid Interface
; Property values:
;  Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140cf91d8>
;  Centroid (RO) = (-472.293 -86.7948 -1.00358)
;  Document (RO) = #<VLA-OBJECT IAcadDocument 000000002d3779a0>
;  EntityTransparency = "ByLayer"
;  Handle (RO) = "3CD49"
;  HasExtensionDictionary (RO) = 0
;  History = -1
;  Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000042ba90e8>
;  Layer = "0"
;  Linetype = "ByLayer"
;  LinetypeScale = 1.0
;  Lineweight = -1
;  Material = "ByLayer"
;  MomentOfInertia (RO) = (1.47226e+006 4.26839e+007 4.41554e+007)
;  ObjectID (RO) = 951
;  ObjectID32 (RO) = 951
;  ObjectName (RO) = "AcDb3dSolid"
;  OwnerID (RO) = 952
;  OwnerID32 (RO) = 952
;  PlotStyleName = "ByLayer"
;  Position = Undantag inträffade
;  PrincipalDirections (RO) = (0.993037 0.0603315 -0.101179 -0.0675219
0.995314 -0.0692132 ... )
;  PrincipalMoments (RO) = (30681.2 387.274 30938.2)
;  ProductOfInertia (RO) = (7.84197e+006 14561.7 90814.9)
;  RadiiOfGyration (RO) = (87.7153 472.298 480.37)
;  ShowHistory = 0
;  SolidType (RO) = "Sweep"
;  TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000003fd39fa0>
;  Visible = -1
;  Volume (RO) = 191.352
T

---

Wer eiss vielleicht mehr?

------------------
Gruss Dirk

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