topic Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored in Visual LISP, AutoLISP and General Customization Forum

AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Sun, 24 Aug 2025 12:52:19 GMT

I'm facing an issue with my AutoLISP routine. The script is designed to detect rectangles that contain inner text and two points, then export that data to Excel. After exporting, the processed rectangles should change color to green in AutoCAD. However, some rectangles are not changing color and are not being printed to Excel—even though they appear identical to others (same layer, same line weight). I've tried many approaches but haven't found a solution.

I'm attaching both the LISP file and the drawing file to help you understand the issue better.

@BIGAL

@lee mack

@_Tharwat

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

komondormrex — Sun, 24 Aug 2025 20:11:26 GMT

what is contain for you?

does this contain or not?

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

Kent1Cooper — Sun, 24 Aug 2025 20:40:19 GMT

I understand the need for the padding, because of the instances where the Text is not fully within the rectangle, as @komondormrex asked about. The ones that fail all seem to be where two are close together, close enough apparently that the selection is finding more than one piece of Text and/or more than two Points. It's probably related to screen resolution vs. Zoom level, because I find that if I Zoom in closer, it gets some that it missed when Zoomed out.

If you reduce the pad value back to 1, it may prevent that, but will probably mean some of the Text is not found [I suspect that's why you changed the pad value to 2].

Would it make sense to have it first find all the Text and force it to the smaller height, and run it with a reduced pad value? Or maybe with no padding, if there's a height that will have all of them fully contained inside their rectangles.

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

paullimapa — Sun, 24 Aug 2025 21:56:49 GMT

What I added to your code is:

1) Cmdecho: At beginning of code save current setting, next disable it by setting it to 0 and then at end restore the original setting

(setq acadobj (vlax-get-acad-object) adoc (vla-get-ActiveDocument acadobj) cmdecho (getvar "cmdecho") ; save current setting ) (setvar "cmdecho" 0) ; disable

(setvar "cmdecho" cmdecho) (princ) )

2) Zoom: At the beginning of the repeat loop, Zoom to Object which is the Pline, then at the end of loop Zoom back to Previous location:

;; Loop through each rectangle (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i)))) (command"_.Zoom""_OB" ent "") ; zoom close up to pline

(command"_.Zoom""_P") ; restore back to original view ) ; repeat

This seem to work but increases the time to process tremendously.

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 03:11:58 GMT

Yes but once you check some objects inner . also thats also not export.

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 04:37:34 GMT

yes some text outer but not all some in inner but its also not export to csv please check . and give final solution

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 03:15:10 GMT

Yes but some texts are inner the rectangular that one also not export please once you check and give solution

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

komondormrex — Tue, 26 Aug 2025 06:13:51 GMT

@archana96

you mean you need one certain text just quite close to a certain rectangle?

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 06:01:02 GMT

YES.

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 07:04:07 GMT

ITS LITTLE HELP BUT SOME OUT BOX THATS ALSO ITS TAKING(SMALL CONFUSION IS IT TAKING THAT OR ANOTHER ) AND SOME OBJECTS PROPER BUTS ITS NOT TAKING SO PLEASE PROVIDE BETTER SOLUTION

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

-didier- — Tue, 26 Aug 2025 08:26:50 GMT

Bonjour @archana96

They are humans (volunteers) who answer you so we thank you for not talking to them as if you were chatting with an AI.

For example : SO PLEASE PROVIDE BETTER SOLUTION.

Back to the question:
I think we should change the insertion point of the text to "middle center" and if this insertion point is in the rectangle, launch the function.

Amicalement

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

komondormrex — Tue, 26 Aug 2025 08:45:07 GMT

@archana96

check this one

;*************************************************************************************************************************************************************************** ; komondormrex, aug 2025 ;*************************************************************************************************************************************************************************** (vl-catch-all-apply 'load (list "acetutil.fas")) (vl-catch-all-apply 'load (list "acettest.fas")) ;*************************************************************************************************************************************************************************** (defun get_coords (pline) (mapcar 'cdr (vl-remove-if-not '(lambda (group) (= (car group) 10)) (entget pline))) ) ;*************************************************************************************************************************************************************************** (defun c:FORSCB (/ count rect_proximity text_sset count_all text_dxf margin rect_sset point_sset point_list csv_line) (setq count 0 rect_proximity 40 ; quadrangle proximity in text heights to a given text. change to fine tune. ) (if (and (setq text_sset (ssget '((0 . "text,mtext") (1 . "*SCB*")))) (setq count_all (itoa (sslength text_sset))) (setq csv_full_filename (getfiled "Select CSV Output file" "" "csv" 1)) (if (null (setq csv_id (open csv_full_filename "w"))) (alert "Can't open that CSV file. Please close it and try again.") t ) ) (progn (mapcar '(lambda (text) (if (and (or (and (equal '(0 . "TEXT") (assoc 0 (setq text_dxf (entget text)))) (setq margin -1) (not (while (and (null (setq rect_sset (ssget "_cp" (mapcar '(lambda (vertex) (mapcar '+ '(0 0) vertex)) (acet-geom-txtbox text_dxf (setq margin (1+ margin))) ) '((0 . "lwpolyline") (70 . 1) (90 . 4)) ) ) ) (< margin rect_proximity) ) ) ) rect_sset ) (and (equal '(0 . "MTEXT") (assoc 0 (setq text_dxf (entget text)))) (setq margin -1) (not (while (and (null (setq rect_sset (ssget "_cp" (mapcar '(lambda (vertex) (mapcar '+ '(0 0) vertex)) (acet-geom-mtxtbox text_dxf (setq margin (1+ margin))) ) '((0 . "lwpolyline") (70 . 1) (90 . 4)) ) ) ) (< margin rect_proximity) ) ) ) rect_sset ) ) (= 1 (sslength rect_sset)) (setq point_sset (ssget "_cp" (get_coords (setq rect (ssname rect_sset 0))) '((0 . "point")))) (= 2 (sslength point_sset)) ) (progn (mapcar '(lambda (ename) (vla-put-color (vlax-ename->vla-object ename) 3)) (list rect text (ssname point_sset 0) (ssname point_sset 1)) ) (setq point_list (vl-sort (list (cdr (assoc 10 (entget (ssname point_sset 0)))) (cdr (assoc 10 (entget (ssname point_sset 1))))) '(lambda (point_1 point_2) (< (car point_1) (car point_2))) ) csv_line (strcat (cdr (assoc 1 text_dxf)) ",P1," (rtos (caar point_list) 2 4) "," (rtos (cadar point_list) 2 4) ",P2," (rtos (caadr point_list) 2 4) "," (rtos (cadadr point_list) 2 4) ) ) (write-line csv_line csv_id) (princ (strcat "\rProcessed rects: " (itoa (setq count (1+ count))) " of " count_all)) ) ) ) (vl-remove-if 'listp (mapcar 'cadr (ssnamex text_sset))) ) (close csv_id) (if (not (zerop count)) (princ (strcat "\n\\U+2705 CSV Export Complete: " csv_full_filename)) (princ "\n\\U+2639 No data found to export") ) ) ) (princ) ) ;***************************************************************************************************************************************************************************

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 09:35:33 GMT

CHECK THIS ONE SIR

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 09:36:22 GMT

INSERT MIDDLE CENTER IS FINE BEACUSE ITS ALMOST INNER

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

archana96 — Tue, 26 Aug 2025 10:56:10 GMT

NICE BUT THE P1 P2 CAME SAME LINE BUT NEED P1 BELOW P2

Re: AutoLISP Routine Issue – Some Rectangles Not Processed or Colored

komondormrex — Tue, 26 Aug 2025 11:48:37 GMT

change 3 lines starting with csv_line with these

csv_line (strcat (cdr (assoc 1 text_dxf)) ",P2," (rtos (caadr point_list) 2 4) "," (rtos (cadadr point_list) 2 4) "\n" ",P1," (rtos (caar point_list) 2 4) "," (rtos (cadar point_list) 2 4) )