how to find missing plot/allotment numbers

[RepCad]

hi, how can i find blank block or block that dont have number in autocad???

I will be grateful to help me.

 

*red flag in autocad(Attached) is empty block.

file.dwg

[BIGAL]

You should refer to it as a blank allotment or plot not sure of the question after that.

[SLW210]

I changed your thread title for you.

 

I believe the OP is looking for a LISP to fill in the missing numbers for the land plots.

[ymg3]

Amir,

 

I looked at your drawing. As it is your parcels are open

polyline in many cases.

 

I am afraid that it will be difficult to identify which parcels are blocks.

 

There might be a way by creating regions, but it would be much

simpler to close your parcels.

 

Then it would be simply a matter of using the closed polyline of

the parcel and use it as a window polygon for selecting text.

 

If it contains text, there u go!

 

ymg

[Lee Mac]

Use this program to create closed polylines for each region, and then iterate over each polyline testing whether the polyline contains a green text object.

[BIGAL]

Even though Aimir094 has gone away here is text inside a pline.

 

(defun getcoords (ent)
 (vlax-safearray->list
   (vlax-variant-value
     (vlax-get-property
   (vlax-ename->vla-object ent)
   "Coordinates"
     )
   )
 )
)

(defun co-ords2xy ()
; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z
(setq numb (/ (length co-ords) 2))
(setq I 0)
(repeat numb
(setq xy (list (nth I co-ords)(nth (+ I 1) co-ords) ))
(setq coordsxy (cons xy coordsxy))
(setq I (+ I 2))
) ; end repeat
) ; end defun
; program starts here
; choose output file change acdatemp to what you want
(setq fname (strcat "c:/acadtemp/" (getstring "\nEnter file name ")))
(setq fout (open fname "w"))
(setq plobjs (ssget (list (cons 0 "lwpolyline"))))
(setq numb1 (sslength plobjs))
(setq x numb1)
(repeat numb1
(setq obj (ssname plobjs (setq x (- x 1))))
(setq co-ords (getcoords obj))
(co-ords2xy)
; write pline co-ords here
(setq numb3 (length co-ords))
(setq z numb3)
(setq ansco-ords "")
(repeat numb3 
(setq ansco-ords (strcat ansco-ords (rtos (nth (setq z (- z 1)) co-ords) 2 3 ) " " ))
)
(setq ans (strcat "Pline " ansco-ords))
(write-line ans fout)
(setq ansco-ords "")
(setq ss (ssget "WP" coordsxy (list (cons 0 "Text,Mtext")))) ; selection set of text within polygon
(if (= ss nil) 
(princ "\nnothing inside")
(progn 
(setq coordsxy nil) ; reset for next time
(setq numb2 (sslength ss))
(setq y numb2)
(repeat numb2
(setq anstext (vlax-get-property (vlax-ename->vla-object (ssname ss (setq y (- y 1)))) "Textstring"))
(princ anstext) ; change to write text to file
(write-line (strcat "text " anstext) fout)
(princ "\n")
) ; end repeat2
(setq ss nil) ; reset for next poly
)
)
) ; end repeat1
(close fout)
(princ)