topic Ynt: Applying Field to Multiple Objects in AutoCAD Forum

Applying Field to Multiple Objects

paulmcclafferty4 — Tue, 05 May 2020 03:30:33 GMT

Hello,

I need to use the FIELD function to extract attributes from multiple objects at once.

The "roadnamela" is the attribute I need.

There are 4 roads in the attached drawing sample, however my aim is to name hundreds of roads using this method if I can complete this action at once.

Thanks in advance for the help.

Re: Applying Field to Multiple Objects

imadHabash — Tue, 05 May 2020 03:35:00 GMT

Hi,

>> I need to use the FIELD function to extract attributes from multiple objects at once.

to extract attributes in AutoCAD you can use DATAEXTRACTION command . >> Click <<

Ynt: Applying Field to Multiple Objects

serkancavuslar — Wed, 06 May 2020 04:57:11 GMT

@paulmcclafferty4 @imadHabash

Attribute Block Multiple Select and mText 🙂

Serkan ÇAVUŞLAR

CplCAD İstanbul / Türkiye

(defun c:attmt(/ aDoc aSp oSiz bSet aLst cLst tStr nTxt bCtr Tags TextInsert) (setq Tags nil) (setq TextInsert T) (defun GetBoundingCenter (vlaObj / blPt trPt cnPt) (vla-GetBoundingBox vlaObj 'minPt 'maxPt) (setq blPt (vlax-safearray->list minPt) trPt (vlax-safearray->list maxPt) cnPt (vlax-3D-point (list (+ (car blPt) (/ (- (car trPt)(car blPt)) 2.0)) (+ (cadr blPt) (/ (- (cadr trPt)(cadr blPt))2.0)) 0.0)) ) ) (if (not Size) (setq Size(getvar "TEXTSIZE"))) (setq oSiz Size Size (getreal (strcat "\nText size <"(rtos Size)">: ")) ) (if (null Size)(setq Size oSiz)) (setq aDoc (vla-get-ActiveDocument(vlax-get-acad-object))) (if (= 1 (vla-get-ActiveSpace aDoc)) (setq aSp (vla-get-ModelSpace aDoc)) (setq aSp (vla-get-PaperSpace aDoc)) ) (if (setq bSet (ssget '((0 . "INSERT")))) (progn (foreach b (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex bSet)))) (setq aLst '() tStr "" ) (if TextInsert (setq bCtr(GetBoundingCenter b)) (setq bCtr(vla-get-InsertionPoint b)) ) (if ;(and (= :vlax-true (vla-get-HasAttributes b)) ; (safearray-value ; (setq atts (vlax-variant-value (vla-getattributes b))) ; ) ; (foreach tag (vlax-safearray->list atts) ; (= (vla-get-tagstring tag) "roadnamela") ; ) ;) (progn (setq aLst (mapcar '(lambda (a) (if (= (vla-get-TagString a) "roadnamela") (list (vla-get-TagString a) (vla-get-TextString a)) (list "" "") ) ) (vlax-safearray->list (vlax-variant-value (vla-GetAttributes b))))) (foreach i (reverse aLst) (setq tStr (strcat tStr (if Tags (strcat (car i) ": ") "") (last i) "\\P")) ) (if (/= "" tStr) (progn (setq nTxt (vla-AddMText aSp bCtr (* Size 30.0) tStr)) (vla-put-Height nTxt Size) ) ) ) ) ) (vla-EndUndoMark aDoc) ) ) (princ) )

Ynt: Applying Field to Multiple Objects

paulmcclafferty4 — Wed, 06 May 2020 05:23:22 GMT

Thank you very much! you have saved me a LOT of time!

Ynt: Applying Field to Multiple Objects

Anonymous — Fri, 13 Nov 2020 19:35:12 GMT

I don't understand, is this a script I need to run?

Ynt: Applying Field to Multiple Objects

Michiel.Valcke — Wed, 09 Dec 2020 16:05:04 GMT

This is autolisp code, you save the code as a text file with the extension .lsp (you can also download it from @serkancavuslar 's post.)

You can add the code to your AutoCad with the command _APPLOAD

Once you have done so you can call the command from the command bar (in this case the command is ATTMT - you can always recognize it because it is prefaced with the code: " defun c: " )

Ynt: Applying Field to Multiple Objects

aponsBA4NG — Tue, 09 May 2023 10:18:33 GMT

hello!

I would like to know if it would be possible to do the same with the properties of hathces
I have tested the lsp with hatches and it does not recognize them as objects

thanks in advance for your time!

Re: Applying Field to Multiple Objects

joelTFPVU — Thu, 18 May 2023 18:13:21 GMT

I want to use this script to assign text showing the elevation location of each point. what would
I have to change in that script to make it work?

Re: Applying Field to Multiple Objects

joelTFPVU — Thu, 18 May 2023 18:38:45 GMT

For example, I can link a text displaying the field value of Position Z for each point. But If I have 238 elevation points I don't want to manually do each one. Can a similar script be ran for this.

Thanks!

Re: Applying Field to Multiple Objects

Michiel.Valcke — Thu, 18 May 2023 18:53:55 GMT

If you have an AutoCAD full version (not LT) then you should also have access to the AutoCAD MAP 3D toolset (you have to install it as a separate software, but it is included in the same license) you can add text labeling for such things directly with AutoCAD MAP 3D workflows, no need to use fields.

Re: Applying Field to Multiple Objects

joelTFPVU — Thu, 18 May 2023 19:31:27 GMT

Thanks, yeah I do have the full version. I just downloaded the AutoCad Map 3D.

I will play around with that, see if I can figure it out.

Thanks