How to Change Object Properties with AutoLISP

[@georgekhaba6436]

time table :
@0:28 the main cons of the text that control his appearance
@1:28 changing the height of the text
@4:45 what can be changed by autolisp what is cant
@5:53 using command function to deal with entities with properties assigned by-layer
@7:24 a program to change the height of multiple texts

[@R-sum]

very informative and practical videos

[@cyberCADsolutions]

Thank you, please subscribe and share.

[@HuyNguyen-et2uq]

can i do it with change (x y . coordinates ) from a LINE object or a polyLINE object?

[@johncannon3276]

very excellent

[@cyberCADsolutions]

Thank you. Please share with your colleagues and friends.

[@johncannon3276]

@@cyberCADsolutions I have already. It really is 'par excellence'.

[@ifty_arain]

What will happen if we don't localize variables to get these removed from memory?

[@cyberCADsolutions]

Memory exploitation

[@ifty_arain]

Thanks for reply. I asked above bcoz autoCAD was getting freeze. So apart from memory exploitation there is no any harmful effect if we don’t localise variables

[@ifty_arain]

Just wana to say thanks, I am really learning well by watching your videos . Is there any full playlist for VLA as I am more interested to learn how to export coordinates from AutoCAD to excel.

[@vgkshorts]

Good information

[@cyberCADsolutions]

Thank you. Please share.

[@ma7ros5ever]

Please explain how to update attribute values inside a dynamic block by lisp
specialy how to make the values incremented inside the same block

[@ma7ros5ever]

Attribute 1 value R1001
Attribute 2 value R1002
An so on to the last attribute inside the same block

[@JAYARAJUCHRISTIANSONGS]

Video is not visible …

[@cyberCADsolutions]

PSALMS: th-cam.com/play/PLA08St9UDBiHLe9xzd297xVigsC9VP__c.html

[@deabla]

Hello. Made according to your example, what could be the error (assign the Z coordinate from the text content)?
(defun c:text_to_z()
(if (setq tset(ssget (list (cons 0 "*text"))))
(progn
(setq n (sslength tset)
counter 0
)
(while (< counter n)
(princ "
...in process")
(setq txt(ssname tset counter))
(setq txtData (entget txt))
(setq newZcoordinate (cdr (assoc 1 txtData)))
(setq newTxtData (subst (cons 30 newZcoordinate) (assoc 30 txtData) txtData))
(entmod newTxtData)
(set counter (1+ counter))
);while
);progn
);if
(princ "
...done")
(princ)
);end