All Activity

@Nikon You should try what I posted. It will LOAD not AUTOLOAD all lisp files found within the folder "C:\\Program Files\\Autodesk\\AutoCAD 2021\\Support\\"

PS The idea has more substance than the code itself

A code as simple as this... (defun c:LoadFolder (/ sh hwd carp slf pth lstAA a) (if (setq sh (vla-getinterfaceobject (vlax-get-acad-object) "shell.application") hwd (vl-catch-all-apply 'vla-get-hwnd (list (vlax-get-acad-object))) carp (vlax-invoke-method sh 'browseforfolder (if (vl-catch-all-error-p hwd) 0 hwd) "Folder lisp to load" 0 "") ) (if (setq slf (vlax-get-property carp 'self) pth (vlax-get-property slf 'path) pth (vl-string-right-trim "\\" (vl-string-translate "/" "\\" pth)) ) (if (setq lstAA (vl-directory-files pth "*.lsp")) (foreach a lstAA (load (strcat pth "\\" a)) ) (alert "Nothing to load") ) ) ) (princ) )

Yes I think you should learn these simple things. In any case, in situations like this, one way to avoid having to select the 50 lisp files one by one or, in the future, any group of files you need to load, is to create folders where you group and store the lisps needed for each task. For example: you can create a folder called "Print", in which you store all your lisp files that you use to prepare a drawing for printing. In this way, you would only need to create a command (for example "LoadFolder") that shows you a "dialogBox" to select the folder and load all its contents.

To avoid confusion: I've separated each resulting perimeter from the model drawing to show it in this example. In reality, each perimeter logically overlaps the others.

Agree with Lee look into lisp built in functions, if you use Autoload function then its easy just need to add one lisp to the Start Up Suite. An example of the lsp file. (autoload "COPY0" '("COPY0")) (autoload "COPYCOMMAND" '("ZZZ")) (autoload "COVER" '("COVER")) (autoload "DIMFLIP" '("DIMFLIP")) (autoload "DRAWXFALL" '("DRAWXFALL")) (autoload "DRAWPIPE" '("DRAWPIPE")) ..... add more

I asked a similar question for a task. It groups common items not sure if it is useful as no data to test on. ; Thanks to Dexus for groupby sep 2025 (defun _groupBy (fun lst0 / itm old rtn) (while lst0 (setq itm (fun (car lst0)) rtn (if (setq old (assoc itm rtn)) (subst (cons itm (cons (car lst0) (cdr old))) old rtn) (cons (cons itm (list (car lst0))) rtn) ) lst0 (cdr lst0) ) ) (mapcar 'cdr rtn) ) (setq lst (vl-sort lst '(lambda (x y) (< (car x)(car y))))) (setq lst2 (_groupBy (lambda (e) (car e)) lst))

Hi. A simple example. The main label is always a Roman numeral followed by a : or + to indicate, respectively, a floor plan with a particular feature or a number of volumes with another additional element above it. There are many more possible combinations, but I'll stick with a simple example. ctePns.dwg

I think it's time you started to learn AutoLISP @Nikon

I need to add 50 lisp programs to autoload... I want to be able to upload lisp files not one, but in a list.

That is because that is an AI generated function that does not exist. Rather than add them to the startup suite, just load them all using one lisp file: (defun loadlisp (path / lst pth) (if (and (setq pth (strcat (vl-string-right-trim "\\" path) "\\")) (setq lst (vl-directory-files pth "*.lsp" 1)) ) (foreach x (mapcar 'vl-filename-base lst) (vl-catch-all-apply 'load (list (strcat pth x)))) ) (princ) ) (loadlisp "C:\\Program Files\\Autodesk\\AutoCAD 2021\\Support\\") Easy to inspect in the vlide:

Good day everyone! I want to add several lisp files to the startup at once. I have a list of lisp files in notepad, in the Support folder. The code returns an error: no function definition: VLA-GET-STARTUPSUITE (defun c:add-list-lisps-to-startup ( / file line folder fullpath app ssuite ) (vl-load-com) ;; The folder where the LISP files are located (setq folder "C:/Program Files/Autodesk/AutoCAD 2021/Support/") ;; Opening the list file (setq file (open "C:/Program Files/Autodesk/AutoCAD 2021/Support/list_startup.txt" "r")) (if file (progn ;; Getting the object Application (setq app (vlax-get-acad-object)) (setq ssuite (vla-get-StartupSuite app)) (while (setq line (read-line file)) (setq line (vl-string-trim " \t\r " line)) (if (and line (> (strlen line) 0)) (progn (setq fullpath (strcat folder line)) (if (findfile fullpath) (progn (vla-Add ssuite fullpath) (princ (strcat "Added to auto-upload: " fullpath)) ) (princ (strcat "File not found: " fullpath)) ) ) ) ) ; end while (close file) (princ "All files from the list have been processed.") ) ; end progn (princ "Couldn't open the list file.") ) ; end if (princ) ) ; end defun

Here's another example - for the below function, "unq" will contain the items with unique MAT value, and "dup" will contain those for which there is more than one MAT value: (defun foo ( lst / dup key len unq ) (while (setq itm (car lst)) (setq key (car itm) len (length dup) lst (vl-remove-if (function (lambda ( x ) (if (= key (car x)) (setq dup (cons x dup))))) (cdr lst)) ) (if (< len (length dup)) (setq dup (cons itm dup)) (setq unq (cons itm unq)) ) ) (list unq dup) ) Though it's probably more efficient to use the lists directly in your code rather than the above function returning a list of lists - alternatively, output parameters may be used, e.g.: (defun foo ( lst unq-out dup-out / dup key len unq ) (while (setq itm (car lst)) (setq key (car itm) len (length dup) lst (vl-remove-if (function (lambda ( x ) (if (= key (car x)) (setq dup (cons x dup))))) (cdr lst)) ) (if (< len (length dup)) (setq dup (cons itm dup)) (setq unq (cons itm unq)) ) ) (set unq-out unq) (set dup-out dup) nil ) _$ (foo '(("abc" 1) ("def" 2) ("abc" 3) ("xyz" 4) ("abc" 5)) 'unq-sym 'dup-sym) nil _$ unq-sym (("xyz" 4) ("def" 2)) _$ dup-sym (("abc" 1) ("abc" 5) ("abc" 3)) Note that the element order is not preserved with the above.

I'm unsure if you're looking to group the items by the MAT value or something else (sample data and the expected result would help in this regard), but I might suggest manipulating the data into groups using the MAT value as the key, i.e. (defun foo ( lst / ass rtn ) (foreach itm lst (if (setq ass (assoc (car itm) rtn)) (setq rtn (subst (vl-list* (car ass) itm (cdr ass)) ass rtn)) (setq rtn (cons (list (car itm) itm) rtn)) ) ) )

Try Lee Mac's "List Duplicates" functions at the following link: https://www.lee-mac.com/uniqueduplicate.html#listdupes

Hello everyone, I'm looking for a solution to efficiently extract from a given list all duplicates. I've got a solution that works in theory but that is ineficient in practice due to the length of the list I want to analyse (approximately 25 000 elements). The list I'm working with is a list of lists. All individual lists decribe a Covadis bloc (topography software) with the format (MAT, ALT, ALTI, (X, Y, Z), ename of the bloc). MAT, ALT and ALTI are attributes value of the bloc and (X, Y, Z) is the insert coordinates. I want to isolate all the blocs that have the same MAT attribute and save them on a separate list. I have come with the solution described in the code below but it's much to slow and absolutely not opimised. ; lst = general list with bloc caracteristics ; sublst format (MAT, ALT, ALTI, (X, Y, Z), ename) (while (setq sublst (car lst)) (setq lst_same_mat (vl-remove nil (mapcar '(lambda(p) (if (equal (car p) (car sublst)) p nil)) lst))) (setq lst_same_mat_save (cons lst_same_mat lst_same_mat_save)) (setq lst (REMOVE_LST1FROM_LST2 lst_same_mat lst_same_mat_save) ) ;;;; ;lst_gen : list we want to suppress certain element from ;lst_suppr : list of elements to be suppressed in lst_gen (defun REMOVE_LST1_FROM_LST2 (lst_suppr lst_gen / ele_suppr lst_modif n) (setq n 0) (setq lst_modif lst_gen) (while (setq ele_suppr (nth n lst_suppr)) (setq lst_modif (vl-remove ele_suppr lst_modif)) (setq n (1+ n)) ) lst_modif ) Would anyone have an idea on how to speed this up for large list ? Thanks and best regards, Jacques

I created a parcel. I gave it a number and a name. I modified the default label to include the number, a slash, and the name. Now the parcel has a label that looks like what I believe you want. If that's not correct, please elaborate.

I want that the parcel number can be writen with / when desired....egsample 1852/3

It sounds like some fairly simple AutoLISP code would handle this. You'd have to specify where to get the data, how to format it, and where to put it. For instance, the "label" including the number of floors: is that a block, a piece of text, an annotation in Revit, or something else? Is the number part of a code with letters and numbers, or is it just one number? Would all the "perimeters" go to the same height or to different heights? What format would the layer names have, and is the floor number the only variable? There are a lot of blanks to fill in here.

Parcels have numbers (integers) but also names (strings). Do you want to format the name so that it includes the original number plus a slash, plus some other number (could be total parcels)? That could be as simple as changing the parcel label style. If it's something more complicated, you might need some code. I'm not sure what you want.

@PGia please upload your sample.dwg, before and after

Hi I’m wondering if this topic has been discussed in this forum before. In simplified terms, the issue is this: if you have a 2D perimeter with inner sub-perimeters, and within each of them there’s a label indicating the number of floors rising above that perimeter — would it be possible to create, for each floor, the corresponding perimeters on specific layers for each one? Does anyone have any idea how to approach this?

Hello! Is it possible to create this kind of parcele name or Maybe on number. As you can see in the picture attach it symbol / between two numbers. 3/180. Its writen in blue color so you have to look a bit carefully....my mistake Thank you

A couple of comments, the outside stairs use a rectang with a wipeout so it hides the windows behind. Also there is no inside support ? tr I am metric but not sure about 2x4 for rafters at that span, there is no @ what spacing. Ceiling 2 lines or even 3 with insulation shown. Concrete beam arrow did not point to it, and a conc beam should be shown as a "T" This detailing is wrong only show 12' beam not concrete at bottom. Cantilever balcony is shown wrong. see red lines. There is no way a 4' slab can cantilever that far. May need some help on structural layout of beams in slab. Enough from me, its about learning. I am sure others will comment.

Thank you for your feedback. It’s my first time working on this, so I didn’t realize I could upload the DWG file. I’ll share it so it’s easier to review. Thanks again for your time and advice! Drawing1.dwg