topic Re: add text value to a block attibute in Visual LISP, AutoLISP and General Customization Forum

add text value to a block attibute

Anonymous — Sat, 21 Apr 2018 07:08:43 GMT

I have a block with one attribute and text placed near to it.

I need to add the text value to the attribute.

can anyone help me.

Re: add text value to a block attibute

Anonymous — Sat, 21 Apr 2018 11:06:25 GMT

Sorry for any grammatical error, I'm using google to translate.

Could you attach the DWG?

Júnior Nogueira.

Por favor, Aceitar como Solução se meu post te ajudar.

Please Accept as Solution if my post helps you.

Re: add text value to a block attibute

jaggisingh003 — Sat, 21 Apr 2018 12:28:53 GMT

CAN U EXPLAIN BRIFLY WHAT U WANT TO DO ?

Sorry for my bad English

Re: add text value to a block attibute

john.uhden — Sat, 21 Apr 2018 14:35:09 GMT

Do you want to concatenate the text string to the attribute string, or replace the attribute string with the text string?

If concatenating, do you want a space or some other character(s) between them?

Do you want to erase the text entity?

Re: add text value to a block attibute

Anonymous — Sun, 22 Apr 2018 07:10:59 GMT

I want to the nearby text as an attribute value

DWG attached

Re: add text value to a block attibute

Anonymous — Sun, 22 Apr 2018 07:13:00 GMT

replace the attribute value.

Re: add text value to a block attibute

Anonymous — Sun, 22 Apr 2018 13:31:06 GMT

@Anonymous

Were these blocks added manually or did you use a LISP for this?

Júnior Nogueira.

Por favor, Aceitar como Solução se meu post te ajudar.

Please Accept as Solution if my post helps you.

Re: add text value to a block attibute

Anonymous — Mon, 23 Apr 2018 03:22:02 GMT

manually.

Re: add text value to a block attibute

Anonymous — Sat, 28 Apr 2018 09:59:13 GMT

is there any possible way to do this.

Re: add text value to a block attibute

john.uhden — Sun, 29 Apr 2018 00:16:44 GMT

Probably.

Re: add text value to a block attibute

pbejse — Sun, 29 Apr 2018 07:15:45 GMT

@Anonymous wrote:

is there any possible way to do this.

Yes, there is a way, But i don't think the drawing sample you posted is anything like the actual drawing file you are trying to fix, all entities are in layer "0".

Post a more realistic drawing if you please.

Re: add text value to a block attibute

Anonymous — Sun, 29 Apr 2018 13:22:54 GMT

The actual drawing file is very huge with 1.4 million sqm having 144.5km of roads. we have 4 to 6 block points across the road in every 10m.

Its not possible to upload this file.

All these block points are in one layer and the text in another layer.

I can provide u with all the information you need.

It takes a long time to do this manually. if there a possible way to do this quickly it would be very useful.

I hope you can help.

Re: add text value to a block attibute

john.uhden — Sun, 29 Apr 2018 14:28:58 GMT

I am having trouble in wondering what difference it makes if all the
entities are on layer 0. What, a few more milliseconds of processing?
There must be other properties to distinguish one entity from the next,
even such as content or position.

Re: add text value to a block attibute

pbejse — Sun, 29 Apr 2018 15:20:03 GMT

@john.uhden wrote:
....There must be other properties to distinguish one entity from the next,
even such as content or position.

True, But I would prefer to include the layer name on a filter, plus it's just good practice to use layers in any drawing package.

@Anonymous wrote:

The actual drawing file is very huge with 1.4 million sqm

I am not asking for THE file but only something similar.

@Anonymous wrote:

All these block points are in one layer and the text in another layer.

That will do.

Re: add text value to a block attibute

pbejse — Sun, 29 Apr 2018 18:50:35 GMT

@Anonymous wrote:

is there any possible way to do this.

One way

(Defun c:demo ( / _DXF attrcoll textcoll tfattr attrblk i entity data)
(defun _DXF (d e)(Cdr (Assoc d (entget e))))
  (if
    (and
	;;;	  Select block where value will be stored	;;;
	(setq attrcoll nil textcoll nil
	    bwattr (car (entsel "\nSelect Block: ")))
	(eq "INSERT" (_DXF 0 bwattr))

	;;;	  Select Text object to pair with block       	;;;
	(setq tfattr (car (entsel "\nSelect text: ")))
	(eq "TEXT" (_DXF 0 tfattr))

        ;;;	  Search whole database for  Block/Text/layer	;;;
	(princ "\nSelect objects to process")
	(setq ss (ssget "_X" (apply 'append
		(list

        ;;;	Blocks using 2 filters from selection block	;;;
	;;;	Block name (Assoc 2 ..)				;;;
	;;;	Layer name (Assoc 8 ..)                		;;;
		'((-4 . "<OR")(-4 . "<AND")(0 . "INSERT")(66 . 1))                
		  (list (assoc 2 (entget bwattr))
                        (assoc 8 (entget bwattr)))

        ;;;	Text entity using 1 filter from selected text	;;;
	;;;	Layer name (Assoc 8 ..)                		;;;
	 	'((-4 . "AND>")(-4 . "<AND")(0 . "TEXT"))
	          (list  (assoc 8 (entget tfattr)))				  
	 	'((-4 . "AND>")(-4 . "OR>")))))
						     
	)
      )
	(progn
	;;;	Process selection. gather insertion point	;;;
	(repeat (setq i (sslength ss))
		(setq entity (ssname ss (setq i (1- i))))
		(setq data (list (_DXF 10 entity) entity))
		(if (eq "INSERT" (Cdr (Assoc 0 (entget entity))))
                            
	;;;	 Block attribue collection			;;;
			  	(Setq attrcoll (cons data attrcoll))
                            
	;;;	 Text collection				;;;
			  	(Setq textcoll (cons data textcoll))
			  )
		)

	(Foreach itm attrcoll
        ;;;     Search text ins point nearest the block (itm)	;;;
	(setq from_To (car (vl-sort
			(mapcar '(lambda (to)
			   (list (distance (car itm) (car to))
                                 (_DXF 1 (cadr to)) to )) textcoll)
	                	'(lambda (a b) (< (Car a)(Car b)))) 
	                )
	      )
              
         ;;;	 The text entity closest to the block		;;;
	(setq attrblk (cadr (last from_To))

	;;;	 Remove the current nearest text list		;;;
	           textcoll (vl-remove (last from_To)  textcoll))

	;;;	 Assign the string value to attribute		;;;
              
	(Vla-put-textstring
	      (car (Vlax-invoke (vlax-ename->vla-object (cadr itm))
                         'Getattributes))
	      (cadr from_To))

	;;;	 Delete the processed string entity		;;;
	(entdel attrblk)
	    )
	)
    )
    (princ)
    )

HTH

Re: add text value to a block attibute

Anonymous — Sat, 29 Feb 2020 11:27:09 GMT

Hi Mr Bp,

Can you help me to copy length of line or polyline to the block attribute when I select 1 block attribute and 1 line (polyline).

Thank you!

Re: add text value to a block attibute

dlanorh — Sat, 29 Feb 2020 12:20:05 GMT

Try this snippet

(defun c:len2att ( / lu lp att lin len) (vl-load-com) (setq lu (getvar 'lunits) lp (getvar 'luprec) att (vlax-ename->vla-object (car (nentsel "Select Attribute : "))) lin (car (entsel "Select Line/Polyline : ")) len (rtos (vlax-curve-getdistatparam lin (vlax-curve-getendparam lin)) lu lp) );end_setq (vlax-put-property att 'textstring len) );end_defun

It should work with a Lines, All Polylines, Arcs, Ellipses, Circles (perimeter), Splines

Re: add text value to a block attibute

Anonymous — Sun, 01 Mar 2020 07:39:45 GMT

Thanks for your help!

I have a same lisp 🙂

;_____01/03/2020 by Luongnguyen________; (defun Ltron ( n ) (fix (+ n (if (minusp n) -0.3 0.3))) ) (defun Length1(To) (vlax-curve-getDistAtParam To (vlax-curve-getEndParam To))) ;-----------------------------------------------------------------------------------; (defun c:Ta (/ st e ss L na str ten) (setq ob (ssget '((0 . "INSERT,LINE,POLYLINE,LWPOLYLINE")))) (setq i 0) (repeat 2 (setq Ten (cdr(assoc 0 (entget (ssname ob i))))) (if (= Ten "INSERT") (Progn (setq na (ssname ob (- 1 i)) L (Ltron (length1 na)) str (itoa L) ) ; Find ATT with "CD" TAG to copy length of line (setq ss (ssdel (ssname ob (- 1 i)) ob )) ((lambda (j / sn) (while (setq sn (ssname ss (setq j (1+ j)))) (mapcar '(lambda (x) (if (eq (strcase (vla-get-tagstring x)) "CD") (vla-put-textstring x str))) (vlax-invoke (vlax-ename->vla-object sn) 'getattributes)) )) -1) ) (setq i (1+ i)) ) ) (princ) ) (vl-load-com)

Re: add text value to a block attibute

pbejse — Sun, 01 Mar 2020 15:22:59 GMT

@Anonymous wrote:

Thanks for your help!

I have a same lisp 🙂

And so... did it work for you ? are you looking for help? what of @dlanorh suggestion. Hows the code posted there working for you?

Re: add text value to a block attibute

john.uhden — Sun, 01 Mar 2020 17:31:07 GMT

You don't need a program for that.
Just list the polyline, copy its length value from the screen, and paste it
into the attribute editor.