Topic: 3d Lake liner area

[ronjonp]

Is there a fast way to get liner surface area of this 3d lake model?

http://theswamp.org/lilly_pond/ronjonp/lake.dwg?nossi=1

Thanks,

Ron

[hyposmurf]

Am I right in thinking you can use MASSPROP?This is what it returned
 ----------------   REGIONS   ----------------

Area:                    66237.7959
Perimeter:               1386.1329
Bounding box:         X: -188.9593  --  87.8503
                      Y: -242.7378  --  219.8976
                      Z: 11.0000  --  11.0000
Centroid:             X: -33.6782
                      Y: -29.8762
                      Z: 11.0000

[ronjonp]

I tried using massprop, but the objects I need areas for are bodies. The area you gave me is the surface area of each contour.  

Thanks for the try

Ron

[hyposmurf]

Had a feeling it wasnt that easy!Would you be able to do this in inventor?Maybe with inventor can figure it out for you.

[Scott]

Where did the drawing go.  I can't view it

[ronjonp]

It's still there?

[Ron Heigh]

When I open the dwg, there isn't anything showing.
Are you using special addons?

[ronjonp]

Ron H.,

Just using vanilla 2005

Ron

[CAB]

Is there a fast way to get liner surface area of this 3d lake model?

I'm confused by you question, that happens a lot to me

What do you mean by 'Liner'?
Are you talking about the surface area of the water exposed to the air?
Or both that and the area exposed to the earth?

I was able to use the area command and get the former.

[Scott]

Can you save the file back to version 2000.  I know, I should upgrade but I'm a one man show around here and I'm poor.

scott

[ronjonp]

Scott,

Give it a try now.


CAB,

I need the area of the ground that the liner has to cover not the surface area of the water. I hacked together a routine that allows the user to enter the slope, then pick the top contour and bottom contour. I know if I used cond (Jeff M) I could eliminate my repetiveness , but I'm having trouble understanding that function. Here is my mess

Code: [Select]

(defun c:liner (/ )
(vl-Load-Com)
 (initget 1 "1 2 3 4 5 6 O")
  (setq   P (getkword
       "\n Enter slope or liner (O)verlap 1:(1) 1:(2) 1:(3) 1:(4) 1:(5) 1:(6):  "
     )
  )
(if (= P "1")
  (progn
    (defun top (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq top1 (top (car (entsel "\nSelect top closed 1:1 contour: "))))

    (defun bottom (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq bottom1
  (bottom (car (entsel "\nSelect bottom closed 1:1 contour: ")))
    )


    (setq txt (strcat (rtos (* (- top1 bottom1) 1.411764706) 2 2)))
    (setq inpt (getpoint "\npick text insertion point"))
    (command ".text" inpt (* (getvar "dimscale") 0.15) "0" txt)
  )
)



(if (= P "2")
  (progn
    (defun top (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq top1 (top (car (entsel "\nSelect top closed 1:2 contour: "))))

    (defun bottom (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq bottom1
  (bottom (car (entsel "\nSelect bottom closed 1:2 contour: ")))
    )


    (setq txt (strcat (rtos (* (- top1 bottom1) 1.117788462) 2 2)))
    (setq inpt (getpoint "\npick text insertion point"))
    (command ".text" inpt (* (getvar "dimscale") 0.15) "0" txt)
  )
)


(if (= P "3")
  (progn
    (defun top (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq top1 (top (car (entsel "\nSelect top closed 1:3 contour: "))))

    (defun bottom (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq bottom1
  (bottom (car (entsel "\nSelect bottom closed 1:3 contour: ")))
    )


    (setq txt (strcat (rtos (* (- top1 bottom1) 1.053459119) 2 2)))
    (setq inpt (getpoint "\npick text insertion point"))
    (command ".text" inpt (* (getvar "dimscale") 0.15) "0" txt)
  )
)


(if (= P "4")
  (progn
    (defun top (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq top1 (top (car (entsel "\nSelect top closed 1:4 contour: "))))

    (defun bottom (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq bottom1
  (bottom (car (entsel "\nSelect bottom closed 1:4 contour: ")))
    )


    (setq txt (strcat (rtos (* (- top1 bottom1) 1.03125) 2 2)))
    (setq inpt (getpoint "\npick text insertion point"))
    (command ".text" inpt (* (getvar "dimscale") 0.15) "0" txt)
  )
)


(if (= P "5")
  (progn
    (defun top (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq top1 (top (car (entsel "\nSelect top closed 1:5 contour: "))))

    (defun bottom (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq bottom1
  (bottom (car (entsel "\nSelect bottom closed 1:5 contour: ")))
    )


    (setq txt (strcat (rtos (* (- top1 bottom1) 1.02) 2 2)))
    (setq inpt (getpoint "\npick text insertion point"))
    (command ".text" inpt (* (getvar "dimscale") 0.15) "0" txt)
  )
)


(if (= P "6")
  (progn
    (defun top (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq top1 (top (car (entsel "\nSelect top closed 1:6 contour: "))))

    (defun bottom (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq bottom1
  (bottom (car (entsel "\nSelect bottom closed 1:6 contour: ")))
    )


    (setq txt (strcat (rtos (* (- top1 bottom1) 1.014136905) 2 2)))
    (setq inpt (getpoint "\npick text insertion point"))
    (command ".text" inpt (* (getvar "dimscale") 0.15) "0" txt)
  )
)


(if (= P "O")
  (progn
    (defun top (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq top1 (top (car (entsel "\nSelect overlap top closed contour: "))))

    (defun bottom (obj)
      (if (= (type obj) 'ENAME)
(setq obj (vlax-ename->vla-object obj))
      )
      (if (vlax-property-available-p obj 'area)
(vla-get-area obj)
      )
    )
    (setq bottom1
  (bottom (car (entsel "\nSelect lake top closed contour: ")))
    )


    (setq txt (strcat (rtos (* (- top1 bottom1) 1) 2 2)))
    (setq inpt (getpoint "\npick text insertion point"))
    (command ".text" inpt (* (getvar "dimscale") 0.15) "0" txt)
  )
)
)
(princ "\n <Type 'LINER' to run>")
(princ)



[Scott]

I guess your file doesn't like me.  It opens, but nothing in the drawing.

Scott

[CAB]

OK I got you now.
Man Made Lake with an EDPM liner, Dugh!