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.
It can get the apparently intersection points between two objects ?
;;Get MAC add.
(defun GetNetMac (/id lox serv wmiobj)
(setq WMIobj (vlax-create-object "wbemScripting.SwbemLocator")
WMIobj 'ConnectServer "."
"\\root\\cimv2" "" "" ...
I'm trying to make a lisp where the user would pick a point in the model and the lisp would create a multileader in paperspace with the coordinates pulled from the model.
Does anyone know how to change the attributes of several files to read-only with lisp?
We have been manually placing control points at the midpoint of pipe fittings. The "point" is actually a small CADMEP object.We do this to export to a robotic station for marking locations in field....
I've got 100 files. Each file has got 300ish XREFS. Xref's names change every week. Part of the xref's name is constant, other part changes. Ex : VISIO_AA_14_A The pattern of this name is ...
I made some scripts to work with solids.
The first three work but the third to turn a solid into a mesh with meshsnmooth does not work.
Can somebody help?
I am trying to change all the objects color to "bylayer" within a block, this means I have to eliminate the assoc code 62 from the list, I tried (vl-remove), it does return the list I need, but I...
I need some LISP routine which autonumbers distance between polygon vertices.
I am creating lisp routine and the work is to selected Mtext or text and the corresponding content is to be added as Xdata to the selected entity.
I need to find an advanced user to help troubleshoot an AutoLISP program that is in four parts. The program is proprietary and pretty extensive so I don't know that posting it directly to this forum...
(defun C:TEST (/ DDJD1 DDJD2 DDJD3 E OLDCEC OLDCEL OLDLAYER OSM1 RETURN# SCA)
(defun *error* (msg)
(cond (*DOC* (_EndUndo *DOC*)))
(while (not (equal (getvar "cmdnames")...
When deleting the inserted block is it possible to join both end of lines autopmatically
Recently I had a lisp routine made up by another member. It creates an array like pattern which searches for attributes located in each panel and patterns the blocks accordingly. This typically...
Hi I want draw lines it has create new layer and snap end point and Ortho on once I right click or cancel it has to go back to old layer and snap off and Ortho off
I am looking for a macro or lisp routine that allows me to insert a field in a text box that automatically takes a dimension's measurement. I am looking to skip all the dialouge boxes...
One of my routine work is to highlight only part view of a drawing that has changes, to our consultants.
This involves creating individual viewports, of a specific view, out of that drawing...
I need it to select polylines.
then get linetype,depth,length
take and add the same like lengths and give quantities for them.
linetyp - depth - length - qty
hidden - 10 - 12 ...
I want to select surfaces by name, add them it into selection set and change there layers to something else.
The idea behind is that I want to make a certain draw order in my drawing, but...
Good morning everyone.
I have a question regarding an idea for a lisp. I am wondering if this is possible, or something to good to be true.
I work at a solar panel racking company, we use CAD...
I have a great lisp that sequentially numbers/letters existing text or blocks with attributes. I'm not well versed in lisp. I was wondering if someone could possibly modify this lisp to also work on...
Source from : bbs.xdcad.org , by st788796
(defun XD::AutoStartup (path tf / Profiles allpro newnum AutoLoadpath)
Copy block within the entity (bcopy)
(defun c:bcopy ()(c:blkssc)) ;;
(defun c:blkssc (/ *ERROR* *MYERR BLKN E EEE NPT OLDERR PAUSE SS SS2 SSB SSN SSR SSS SSS2 X ssx)
(princ "\n bcopy=Copy...
Is there any LISP to Unload all XREF?
Source from: bbs.xdcad.org/thread-675894-1-1.html
(defun mkarc (p w f / p1 p2)
((= f 3) (setq p1 (mapcar '- p (list (* -0.25 w) (* 0.5 (abs w)) ))
p2 (mapcar '- p (list 0 (abs...
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–2014