topic Re: LISP for creating field off a selected object, grabbing specific attribute in Visual LISP, AutoLISP and General Customization Forum

LISP for creating field off a selected object, grabbing specific attribute

MichaelD061 — Fri, 03 May 2024 12:44:48 GMT

Looking to create an autocad lisp that allows me to select an object and places a field parameter regarding that specific block's attribute titled CIRCUIT#. Original thought process was to select an object, grab its id, then place field parameter. It should autoselect field category as object, the object type should be the object that I selected, property should be Circuit#, and format should be (none).

For reference, here are two examples of the field expression for two objects.

%<\AcObjProp Object(%<\_ObjId 1770506033232>%).TextString>%

%<\AcObjProp Object(%<\_ObjId 1770506022224>%).TextString>%

I have an attempt above!

(defun c:PlaceField () (setq obj (car (nentselp "\nSelect an object: "))) (if obj (progn (setq entityId (cdr (assoc 5 (entget obj)))) ; Get the handle of the selected object (setq fieldText (strcat "%<\\AcObjProp Object(%<\\_ObjId " entityId ">%).Attribute(\"CIRCUIT#\")>%")) (command "_.FIELD" "_Object" fieldText "_Type" "Object" "_Object" entityId "_Field") ) (princ "\nNo object selected.") ) ) ; Examples of proper field expression ;<\AcObjProp Object(%<\_ObjId 1770506033232>%).TextString>% ;%<\AcObjProp Object(%<\_ObjId 1770506022224>%).TextString>%

Re: LISP for creating field off a selected object, grabbing specific attribute

paullimapa — Fri, 03 May 2024 14:36:08 GMT

One item you’re missing is the objid. An example of how to get this

(setq objid (vla-get-ObjectId (vlax-ename->vla-object enam)))

Here’s a link where you can get some ideas on how to put the field expression into an object

Re: LISP for creating field off a selected object, grabbing specific attribute

Sea-Haven — Sat, 04 May 2024 01:21:51 GMT

I am confused when using fields need two objects the first is the relative object eg an Attribute, the second is the destination object say a Mtext or another attribute in another block. Dont need tag name if picking an attribute.

You appear to have only 1 object in the code.

Lastly using VL can put a field textstring into a suitable object and will reflect that field.

Selecting an attribute should give this type of string, need to use nentsel to pick attribute rather than block.

%<\AcObjProp Object(%<\_ObjId 1961879984>%).TextString>%