Foreach in AutoLISP Programming

In this session you will learn how to process each element in a list using Foreach function in AutoLISP.

[@satydevnegi5454]

Your videos are very much inspiring for AutoCAD programmer, can you please make a video on saving lisp files non editable format.

[@claudeboucher6170]

Merci !! Très utile pour mon apprentissage.

[@behruz.anvarovich]

Super, as always. thanks for your work.

[@cyberCADsolutions]

Thank you. Please share.

[@ganemi2]

In the program, sublist is the defined function or variable.... I am not seeing sublist declared as variable anywhere in the program.... Your method of teaching is very good...

[@cyberCADsolutions]

Sublist means a list in another list. Thank you. Please share to your friends and colleagues.

[@ganemi2]

Thank for the clarification....

[@amnoorulaman]

Crystal clear explanation. Thanks. Dear master, is any command available to get the name of lisp command. That is, (defun c:xyz() ) How to get "xyz" as string within this programme?

[@R-sum]

very informative

[@cyberCADsolutions]

Thank you. Please subscribe and share.

[@ibrahimpatel9006]

I have created block and that block I have use as a insert block. For insert block I prefer CUIX.File and VLSIP. Through CUIX I have set symbol in Autocad ribbon and the same block used through LISP for shortcut command. When I used through CUIX I got correct block layer properties. I mean I have created in "xyz" layer. Using through CUIX I got the same layer in my new drawing. If even my current layer is 0 but they still put "xyz" layer in my new drawing. This is correct for me. When I use LISP shortcut command for the same insert block. If my current layer is "ABCD" then block properties has changed automatically. The layer of blocks has changed into current layer.

[@ibrahimpatel9006]

VLISP (defun c:RECCS2 (/ blockName fileName insertPoint ) (setq blockName "Reccs1" fileName "C:\Desktop\To be check\Recc3.dwg") (if (not(tblsearch "layer" "Reccs1")) ;; check if the drawing not existing the block name (progn (vl-cmdf "-insert" "Recc3" "0.0,0.0,0.0" "" "" "") ;;inserts your master file from some defined file path (vl-cmdf "._erase" "l" "") ;;erases the block; last inserted )) (if (setq insertPoint (getpoint " pick point:")) (vl-cmdf "-insert" "Reccs1" pause "1" "1" "0") ;;inserts the block you want from the master file ) (princ) )

[@ibrahimpatel9006]

CUIX ^C^C-insert;Recc3;\;;;explode;last;-purge;Blocks;Recc3;N;

[@ifty_arain]

I have created above program without using if and progn functions it worked and got the same results of coordinates on vertices of polyline. Can you please explain why you used both functions if and progn in your program?

[@ifty_arain]

Only used If function (if (=(car(sublist) 10) , didn’t use here progn

[@cyberCADsolutions]

kzbin.info/www/bejne/e3i4g6WFaamkjKM

[@RajCAD8801]

Thank you.

[@mesuttasar21]

"sublist" word is function or variable which used in lisp?

[@cyberCADsolutions]

Sublist means a list inside another list.

[@ibrahimpatel9006]

May I get LISP to explode block and make block again with the same name

[@PANDURANG99]

I have done one programme

[@subhamkumarshaw3095]

Gurudev🙏

[@cyberCADsolutions]

Thank you. Please share to your colleagues and friends.