topic Re: Trying to select multiple windows get total area?? in Visual LISP, AutoLISP and General Customization Forum

Trying to select multiple windows get total area??

DC-MWA — Tue, 27 Nov 2018 05:13:19 GMT

I figured out how to get the area from aec windows. Now I'm trying to select mutiple windows and get the total area.

I think I'm close but....

I appreciate any input I can get.

Thanks.

File attached...

Re: Trying to select multiple windows get total area??

dbhunia — Tue, 27 Nov 2018 05:42:22 GMT

Your code should be like......(only modification .....)

Re: Trying to select multiple windows get total area??

DC-MWA — Tue, 27 Nov 2018 06:22:27 GMT

Hello,

When I tried yours I get message

"error: ActiveX Server returned the error: unknown name: "AREA""

this is because are is derived from doing the math on the two items "height" and "width".

;(setq Height (vlax-get obj 'Height))
;(setq Width (vlax-get obj 'Width))

(setq area (vlax-get obj 'Area)) <-- there is no "area' attached to aec windows.

Re: Trying to select multiple windows get total area??

dbhunia — Tue, 27 Nov 2018 07:03:25 GMT

post drawing

Try with.....

(setq area (vlax-curve-getArea obj))

instead of.....

(setq area (vlax-get obj 'Area))

What is "aec windows"....????

Re: Trying to select multiple windows get total area??

DC-MWA — Tue, 27 Nov 2018 18:11:12 GMT

The issue isn't getting the area. I have that figured out.

It's getting it to repeat as i select windows, then give me the total area when done selecting windows.

See the WINDOWAREA.lsp file (it works great on one window only)

See MULTIPLEWINDOWAREA.lsp (this is my attempt to get the program to repeat and add area as described above)

Re: Trying to select multiple windows get total area??

dbhunia — Tue, 27 Nov 2018 18:49:10 GMT

Try this.....

(defun c:mwinarea ( / ent obj Height Width)
  (setq count 0)
  (setq Area-Total 0)
  (while (and (< count 100)
              (setq ent (entsel "Select aec doors and windows to get area from: "))
	 )
 	(setq obj (vlax-ename->vla-object (car ent)))
 	(setq Height (vlax-get obj 'Height))
 	(setq Width (vlax-get obj 'Width))
 	(setq area (* (vlax-get obj 'Width) (vlax-get obj 'Height))
 	(setq areasf (/ area 144))
        (print areasf)
        (setq Area-total (+ areasf Area-Total))
        (setq count (1+ count))
  ); end while
(princ (strcat "\nTotal Area:  " (vl-princ-to-string Area-total)))
(princ)
)

To check post a drawing......

Re: Trying to select multiple windows get total area??

DC-MWA — Tue, 27 Nov 2018 20:27:52 GMT

I get error...

APPLOAD mwinarea.lsp successfully loaded.
Command: malformed list on input

Re: Trying to select multiple windows get total area??

ronjonp — Tue, 27 Nov 2018 20:55:05 GMT

Missing parenthesis on this line:

(setq area (* (vlax-get obj 'width) (vlax-get obj 'height)))

Re: Trying to select multiple windows get total area??

DC-MWA — Tue, 27 Nov 2018 21:01:01 GMT

It seems to work great. I will test on real life senecrio.

Thank you so very much!!

Re: Trying to select multiple windows get total area??

ronjonp — Tue, 27 Nov 2018 21:02:29 GMT

@DC-MWA wrote:

It seems to work great. I will test on real life senecrio.

Thank you so very much!!

I just made a small correction, @dbhunia should get the credit. 🙂

Re: Trying to select multiple windows get total area??

ronjonp — Tue, 27 Nov 2018 21:08:43 GMT

Also why are you picking these one at a time? This would be very easy to modify so that you'd make one selection and get your tally. What doe this return when you pick a window: (print (cdr (assoc 0 (entget (car (entsel))))))