Topic: LISP Learning Resources - AutoCAD

[e_luvins]

I'm new to programming and I'm interested in learning how to create LISP routines for AutoCAD.  I understand how to create and use scripts along with very simple lisp routines, but I want to know more.  My main goal is to automate common tasks within our firm (force standardization) to help guide users.  Currently, I'm interested in understanding and learning how to automate the following process:

1. QSELECT any block references with a Scale X=1
2. Explode
3. QSELECT any block references with a Scale X≠1
4. Change Scale X=1

Any direction to beginner resources is greatly appreciated!

Thanks,
Eric Vallejo, LSI
Missman, Inc.
ericv@missman.com

[JohnK]

Welcome to theSwamp. You're in the right place for questions (theSwamp is an amazing resource of programmers).

May I suggest you start off by creating a post for a specific question you are having in specific areas (post the problem, and any code you have up to that point). Then get ready to sift through many good examples and offers to help.

[77077]

e_luvins
Welcome to theSwamp.

1-2

Code - Auto/Visual Lisp: [Select]

1. (setq ss (ssget ":S" '((0 . "INSERT") (41 . 1))))
2. (command "_.explode"ss "")
3.  

3-4

Code - Auto/Visual Lisp: [Select]

1. (setq ss (ssget ":S" '((0 . "INSERT") (-4 . "/=")(41 . 1))))
2. (setq dxf (entget (ssname ss 0)))
3. (setq dxf (subst (cons 41 1) (assoc 41 dxf) dxf))
4. (entmod dxf)
5.  

[77077]

Hi e_luvins ,can you understand ?

[e_luvins]

I will give the code a shot, though I don't understand it.....hence, my initial request for direction.  Thanks for putting it together; I will let you know the result and perhaps "learn a lesson".

Thanks,
Eric Vallejo, LSI
Missman, Inc.
ericv@missman.com

[ronjonp]

I will give the code a shot, though I don't understand it.....hence, my initial request for direction.  Thanks for putting it together; I will let you know the result and perhaps "learn a lesson".

Thanks,
Eric Vallejo, LSI
Missman, Inc.
ericv@missman.com

Note that each one of the functions in blue is a hyperlink to a description .. you've got some reading to do

[Peter2]

...and I'm interested in learning how to create LISP routines for AutoCAD...

Of course there are many tutorials in the web - here you find a list of some of them:
http://lee-mac.com/tutorials.html

[JohnK]

...and I'm interested in learning how to create LISP routines for AutoCAD...

Of course there are many tutorials in the web - here you find a list of some of them:
http://lee-mac.com/tutorials.html

Of course you will find many *more* tutorial here (pick a thread and start reading).

[BIGAL]

A bit more detail

Code: [Select]

(setq ss (ssget ":S" '((0 . "INSERT") (-4 . "/=")(41 . 1)))) ; a selection set of blocks INSERT with a not equal to dxf item 41 is 1
(setq dxf (entget (ssname ss 0))) ; get the 1st value of the selection set starts at 0 in this case ssget has only one 
(setq dxf (subst (cons 41 1) (assoc 41 dxf) dxf)) ; swap the value of dxf code 41 to 1
(entmod dxf) ; update the block


[danglar]

Here you find a bunch of PDF AutoLisp Learning books:

https://lispbox.wordpress.com/books/