Questions from beginner to advanced. Tell us about good sources of free lisp and post your own routines for testing.Code posting guidelines
The "AutoLISP, VBA, the CUI & Customisation" forum has become a very lively part of the AutoCAD Forums and probably needs a structural review in order to acommodate growth in the future. I'm...
Code posting guidelines
When you are posting AutoLISP or VBA code in these forums, there are some simple guidellines you should observe in order to make life easier for you and for others.
Total newb here, did some reading in the tutorials area in how to write lisps and I'm having issues with it not working. I'm trying to start off really simple hence the rotate, move and...
Ive got this routine which is intended to erase everything visible which is of a colour determined by the user.
(defun c:ec ()
(setq ecc (getint "\nEnter COLOUR of objects to ERASE :...
Hi guys, is there any command that performs the selection of objects associated with an object field?
I'm using an excellent routine performed by Lee Mac to make the sum of texts. At the end of...
Below is attribute-numbering code from ASMI and modified by Fixo and pBe. Attached is the link to the original post, if anyone is interested:...
Please help Lee Mac.
I need a arguments function that add/multiply the lists.
(setq (list (list a1 a2 a3 …) (list b1 b2 b3 …) (list c1 c2 c3 …) …))
(setq (list (list A1 A2 A3 …) (list B1 B2 B3 …)...
I am trying to write a lisp routine that dimensions horizontal and vertical deviations from design:
(defun c:ddxy ()
(setq p1 (getpoint "Surveyed point :"))
(setq p2 (getpoint "Design point ...
I'm trying to come up with a simple one-line lisp routine for writing the information stored in lastpoint variable to my own defined environment variable.
I tried this and it didn't work:...
Hello all.... I wanted to know if there's a LISP file that exist which places a point on each vertex of a pline or spline. Here's the scenario and end result my co-workers and I are dealing with:
Any idea have to change one layer to another layer any one color objects
Hiiiiii, So it's been a while since i wrote any code and I have hit, what is probably a very basic problem...
(defun C:JHSSHATCH ( / SSHATCH )
(if (setq SSHATCH (ssget "_X" '((0 . "HATCH") )))...
Hi, I need a arguments function that modify the list.
(setq (list (list 1 2 3 4 …) (list 1 1 2 2 …) (list 2 2 3 4 …) …))
Sublists are of the same length
‘((1 2 3 4) (6 5 4 3) (3 3 3 3))...
Does anyone have an idea how to solve the following problem with Lisp?
I have the following layers:
I am attempting to make a modified version of the ATTIN command in order to automate the process; removing user prompts, specifying file import location, and batch processing from a specified...
i have multi hatch in drawing how to get batch area?
suppose i have all hatch in separate layer each hatch have separate layer so i need to find out area by layer each layer separate please any lisp
In this code
(setq valor_area 0.0000)
(setq sel (ssget "_x" (list '(0 . "HATCH")(cons 8 layer))))
(if (/= sel nil)
(setq i 0)
(repeat (sslength sel)
I don’t know lisp coding I want learn lisp codeing please help me, where I find best lisp training programs and also all “CAD tutor” members guide me and teach me
Thanks for all CAD...
I HAVE EXCEL FILE ATTACHED WITH MY DRAWING NOW I WANT TO REMOVE THAT LINK SO HOW CAN I DE-ATTACHED THAT ???
Can anyone help me with a lisp please? I have a polygon. I want to export all the ID, length of sides (line, pline, spline, arc), angle taken of a polygon when i pick on them directly as...
Any lisp have to increase or decrees text size to selective layer
I wonder if someone could alter the attached area calculation lisp file.
The existing calculation file asks for a room name, then produces the following text block
Area: 18.00 m2...
I have a bunch of DWG's with random polygons which have been collected for a mapping project in an anti clockwise direction.
I need all the polygons to close off in a clockwise...
I want to be able to just type in the viewport scale i want.
Manually in a active viewport i have to type 'Zoom' > 'Scale' > 1xp (1:1000).
i allready got it 'lisped' that when i enter...
I got a script to set automatic toolpalettes profiles but it doesn't work :S
I gives this warning:
; error: Automation Error. Description was not provided.
got the code from here...
I have 2 reg file and bat file and i want run them from lisp code :
can any one tell me how to stretch the circular object or body in the polar direction for example draw the round bar 3/4 for the circle (270 Deg.) and draw the 10 hole equally spaced on...
Use this control to limit the display of threads to those newer than the specified time frame.
Allows you to choose the data by which the thread list will be sorted.
Order threads in...
Note: when sorting by date, 'descending order' will show the newest results first.
Conceived, created and cared for by David Watson © 1996–2015