topic Re: 100cm and bigger in Visual LISP, AutoLISP and General Customization Forum

100cm and bigger

k005 — Mon, 30 Aug 2021 07:54:17 GMT

Hello guys;

How can I calculate the area of column sizes of 100 cm and above?

* The number 260 will be entered manually. example is attached.

* We will make the color of the relevant parts green.

Thanks.

Re: 100cm and bigger

hak_vz — Mon, 30 Aug 2021 09:49:46 GMT

@k005You are not new to this forum, so please, to help us create your script attach sample dwg.

Re: 100cm and bigger

k005 — Mon, 30 Aug 2021 10:01:13 GMT

Sorry.

Re: 100cm and bigger

hak_vz — Mon, 30 Aug 2021 10:41:41 GMT

Try this

(defun c:area_100+ ( / ss i con sumlist mult); (princ "\nSelect all columns text >") (setq ss (ssget '((0 . "TEXT") (8 . "Kolon"))) i -1) (while (< (setq i (1+ i)) (sslength ss)) (setq con (cdr (assoc 1 (entget(ssname ss i))))) (setq con (substr con (+(vl-string-position (ascii "(")con)2))) (setq con (substr con 1 (vl-string-position (ascii "/")con))) (setq con (atof con)) (cond ((>= con 100.0)(setq sumlist (cons con sumlist)))) ) (cond ((and sumlist) (setq mult (getreal "\nEnter multiplicator >")) (princ (strcat "\nLengths: "(vl-princ-to-string sumlist) "\n")) (princ (strcat "Total area = " (rtos (* mult (apply '+ sumlist)) 2 2))) ) (T (princ "\nNo column > 100 ")) ) (princ) )

Re: 100cm and bigger

k005 — Mon, 30 Aug 2021 13:46:10 GMT

* a fix: for attached file

Not 6.45 m², correct calculation: It should be 10.53 m². I made a mistake...

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

@hak_vz

Good luck my friend. yes, that's exactly it. if it can change the selected columns to green color. It'll be super. It's not much of a problem...

Re: 100cm and bigger

hak_vz — Mon, 30 Aug 2021 14:02:32 GMT

This will change column text to green. Multiplier is entered in centimeters, result is expressed in m2. For your test sample it gives 10.53. Code was edited so take last version.

(defun c:area_100+ ( / ss i con sumlist mult); (princ "\nSelect all columns text >") (setq ss (ssget '((0 . "TEXT") (8 . "Kolon"))) i -1) (while (< (setq i (1+ i)) (sslength ss)) (setq con (cdr (assoc 1 (entget(ssname ss i))))) (setq con (substr con (+(vl-string-position (ascii "(")con)2))) (setq con (substr con 1 (vl-string-position (ascii "/")con))) (setq con (atof con)) (cond ((>= con 100.0) (setq sumlist (cons (* 0.01 con) sumlist)) (vlax-put (vlax-ename->vla-object (ssname ss i)) 'Color 3) ) ) ) (cond ((and sumlist) (setq mult (getreal "\nEnter multiplier >")) (princ (strcat "\nLengths: "(vl-princ-to-string sumlist) "\n")) (princ (strcat "Total area = " (rtos (* 0.01 mult (apply '+ sumlist)) 2 2) " m2")) ) (T (princ "\nNo column > 100 ")) ) (princ) )

Re: 100cm and bigger

k005 — Mon, 30 Aug 2021 14:23:46 GMT

@hak_vz

Thank you very much. It's ok. 🤗

Re: 100cm and bigger

pbejse — Mon, 30 Aug 2021 15:12:22 GMT

@k005 wrote:

* The number 260 will be entered manually. example is attached.

* We will make the color of the relevant parts green.

(defun c:Demo ( / tData Total Strng ss ml pt i str) (if (and (setq Total 0 strng "" ss (ssget '((0 . "TEXT") (8 . "KOLON")(1 . "*(###/#*)")))) (setq ml (getreal "\nEnter factor: ")) (setq pt (getpoint "\nPick point for Total: ")) ) (progn (repeat (setq i (sslength ss)) (setq str (cdr (assoc 1 (setq ent (entget (ssname ss (setq i (1- i)))))))) (setq str (atoi (substr str (+ 2 (vl-string-position 40 str nil t)))) Total (+ Total str) strng (strcat "+" (itoa str) strng) ) (entmod (append ent '((62 . 3)))) (or tData (setq tData (mapcar '(lambda (d) (assoc d ent))'(0 7 8 62 40 50)))) ) (entmakex (append tData (list '(62 . 3)(cons 10 pt) (cons 1 (strcat "ALAN: (" (substr strng 2) ")x" (rtos ml) " = " (rtos (* 0.0001 Total ml) 2 2) " m²"))))) ) )(princ) )

HTH

Re: 100cm and bigger

k005 — Mon, 30 Aug 2021 15:30:23 GMT

@pbejse

I'm adding this solution to my Archive. Thank you very much. 🤗

Re: 100cm and bigger

k005 — Wed, 01 Sep 2021 11:32:40 GMT

@pbejse

@hak_vz

Friends; Can we do this in line or lwpolyline version instead of text?

(1 . "*(###/#*)"))))

Re: 100cm and bigger

hak_vz — Wed, 01 Sep 2021 11:47:24 GMT

@k005 Please explain in details

Re: 100cm and bigger

k005 — Wed, 01 Sep 2021 11:56:00 GMT

@hak_vz

......

.....

How can I calculate the area of column sizes of 100 cm and above?

* The number 260 will be entered manually. example is attached.

* We will make the color of the relevant parts green.

......

Re: 100cm and bigger

hak_vz — Wed, 01 Sep 2021 12:44:00 GMT

In other words, select all rectangles that have a edge longer than 100, and set its color to green?

Re: 100cm and bigger

k005 — Wed, 01 Sep 2021 12:54:24 GMT

Yes. including 100

Re: 100cm and bigger

hak_vz — Wed, 01 Sep 2021 13:18:30 GMT

(defun c:rect_side_greather_than ( / adoc edge_length ss i j pointlist2d take eo pointset lenghts *error*) (defun *error* ( msg ) (if (not (member msg '("Function cancelled" "quit / exit abort"))) (princ) ) (if (and adoc) (vla-endundomark adoc)) (princ) ) (defun pointlist2d (lst / ret) (while lst (setq ret (cons (take 2 lst) ret) lst (cddr lst))) (reverse ret)) (defun take (amount lst / ret)(repeat amount (setq ret (cons (car lst) (take (1- amount) (cdr lst)))))) (setq edge_length (getreal "\Enter minimal rectangle edge length >")) (setq ss (ssget '((0 . "LWPOLYLINE") (8 . "Kolon"))) i -1) (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (vla-endundomark adoc) (vla-startundomark adoc) (while (< (setq i (1+ i)) (sslength ss)) (setq eo (vlax-ename->vla-object (ssname ss i))) (setq pointset (pointlist2d (vlax-get eo 'Coordinates))) (setq pointset (append pointset (list (car pointset)))) (setq lenghts nil j -1) (while (< (setq j (1+ j)) (1- (length pointset)))(setq lenghts (cons (distance (nth j pointset)(nth (1+ j) pointset)) lenghts))) (cond ((>= (apply 'max lenghts) edge_length) (vlax-put eo 'Color 3))) ) (vla-endundomark adoc) (princ "\nDone!") (princ) )

In case rectangle in not closed ie, edges are polyline segments, it will put color to green only to polyline edges greater than minimal length. If closed, rectangle will be changed to green. I would join all segmented rectangles to one single polyline it that is not a problem for you.

Re: 100cm and bigger

k005 — Wed, 01 Sep 2021 13:34:46 GMT

Yes, that's exactly it. we will also make an area account,..

Let's say we entered 260 manually, we will add the lengths of the green wings and multiply by 260, my friend.

* (setq edge_length (getreal "\Enter minimal rectangle edge length >"))
We can fix this part to 100.

Re: 100cm and bigger

hak_vz — Wed, 01 Sep 2021 13:52:55 GMT

In other words at start you have rectangles created with polyline segments. We collect all sides greater or equal to 100

, color it green, and sum its length to total length. At the end we multiply total length to wall height. and convert to square meters. When finished you can join segments to closed polylines.

Re: 100cm and bigger

k005 — Wed, 01 Sep 2021 13:48:18 GMT

Ok so far.
we have to manually enter 260, add the side lengths and calculate the AREA.

Re: 100cm and bigger

hak_vz — Wed, 01 Sep 2021 14:31:08 GMT

Try this. Works on segmented rectangles which edge is either line or polyline.

(defun c:rect_side_greather_than_100 ( / adoc edge_length ss i eo total total_length wall_height total_area *error*); (defun *error* ( msg ) (if (not (member msg '("Function cancelled" "quit / exit abort"))) (princ) ) (if (and adoc) (vla-endundomark adoc)) (princ) ) (setq edge_length 100.0) (setq ss (ssget '((0 . "LWPOLYLINE,LINE") (8 . "Kolon"))) i -1) (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (initget 1) (setq wall_height (getreal "\nWall heigth >")) (vla-endundomark adoc) (vla-startundomark adoc) (while (< (setq i (1+ i)) (sslength ss)) (setq eo (vlax-ename->vla-object (ssname ss i))) (setq len (vlax-get eo 'Length)) (cond ((>= len 100) (vlax-put eo 'Color 3) (setq total (cons (* 0.01 len) total)) ) ) ) (setq total_length (apply '+ total)) (setq total_area (* 0.01 wall_height total_length)) (princ (strcat "\nLengths greater than 100: "(vl-princ-to-string total) "\n")) (princ (strcat "\Total lenght > 100: " (rtos total_length 2 2) " m \n")) (princ (strcat "Total area = " (rtos total_area 2 2) " m2")) (vla-endundomark adoc) (princ "\nDone!") (princ) )

Re: 100cm and bigger

k005 — Wed, 01 Sep 2021 15:39:18 GMT

@hak_vz

Thank you very much my friend. It's okay with a little difference.

Let's go from the example file:

result: 21.06 m².

The result should be: 10.53 m².

ie : result / 2

If it's not too much trouble... Thank you.