All Activity

I use custom command names in acad.pgp, and for this the lisp files must be in the startup.

Link is for 2021 version.

@mhupp ok . I will try to use the VSCode. ANy way what was the las ACAD version that have VLIDE inside , I run in W11

Yes, its their default now. have to set lispsys to 0 before it will work with vscode. https://help.autodesk.com/view/OARX/2021/ENU/?guid=GUID-037BF4D4-755E-4A5C-8136-80E85CCEDF3E

@Lee Mac Thanks I will try. Do VSCode allow to work as VLIDE , ?

Thanks ! I will look into that Jacques

VSCode?

There are or is a LISP editor outside ACAD own VLIDE , ? I have a student version , it allow to load LSP , but it do not edit it by VLIDE . Thanks in advance

Why do you specifically need to use the Startup Suite to load your programs?

You might find the following marginally faster - (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)) ) ) (mapcar 'cdr (vl-remove-if-not 'cddr rtn)) )

Thank you all! You've offered me a lot of options... But not what I need. So it's impossible to upload a list (.txt) of 50 lisp files to the startup (bypassing the startup window)?

Thank you all for your answers ! I was able to do what I wanted to achieve thanks to you. The function that worked for me was the first one submitted by LeeMac. I only had to had the line below to get exactly the list I wanted : (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)) ) ) ) ; lst_test = my list with the structure described in my post i.e lst_test = (lst1 lst2 ... lstn) with lstx = (MAT, ALT, COD, ...) (setq lst_test_sort (foo lst_test)) (setq lst_test_dup (vl-remove nil (mapcar '(lambda(p) (if (> (length p) 2) (cdr p) nil)) lst_test_sort))) I also tried the other function supplied by LeeMac but it was much slower than the first one. I was not able (patient enough) to make it work on a list with approx 25 000 elements. Thanks to BIGAL also for the reply. I must confess that I did not have the time to test the proposed solution. I will have a look at it as soon as I can manage some spare time. I really appreciate the time you took to answer me. Best regards, Jacques

Are all your files in the same folder - my startup suit can select multiple files in the same folder. Takes time if they are in different folders. I did see a way to amend the startup suit files using the registry settings but paused that idea - I think it was too much dependant on versions and your profile to make it any use but me I used to add all my files to the startup suit, but eventually that slows loading a CAD file as it loads everything. Now I load the 3 or 4 LISP files that I use all the time and load on demand the rest. If the files are in a trusted location use AutoLoad from BigAl. Mine arn't (on purpose - saved on the network), otherwise I use something like this: (defun c:MyLisp () (load "C:/Location/MyLISPs.LSP") (c:MyLisp) (princ)) One line for each command you might use - a bit of effort to list all the LISPs if you are doing them all at once, not so bad if you add to the list with each new LISP. This is saved in a LISP file which is added to the startup suit. Call the LISP, if it isn't loaded then it runs the above line, loads the file, runs the LISP. Or you can go with GLAVCVS idea, use your list of LISP files and for each file (load "C:/Location/MyLISPs.LSP") saved into a LISP file added to startup. No need for a Defun just these lines so they autorun and load the files. This should give you a listing of files: Where FPath is the file path (remember double backslash) and searchterm can be used to filter by filename, can use wildcards, * for any character (example blk* for any lisp file beginning with blk) (defun GetBLKFiles2 ( FPath searchterm / BLKFiles) (setq searchterm (strcat searchterm ".lsp")) (setq BLKFiles (vl-directory-files FPath searchterm)) BLKFiles )

Is it possible to use lisp to get a list of lisp files? (in the form of a text file, put the file on the desktop),which are in the startup.

@BIGAL's option is a very good one. Regarding your question about writing the LISPs to load to a file, the code can be easily adapted to that. But I think it would take the same amount of time as writing it to a file: - Option 1: Write the names of the LISPs to load to a file: find the file name in the folder, write the file name, and then correct 5% of the names (statistically, I think you'd write 5% of the names with some kind of error. That will waste your time later trying to figure out what's wrong and correcting the file). ESTIMATED AVERAGE TIME (my own) FOR ALL THIS: 15 seconds per file - Option 2: Select each file to copy in Windows Explorer, Control+C, find the destination folder, Control+V, and then Windows should take about 5 seconds to complete this task. ESTIMATED TIME (my estimate) FOR ALL OF THIS: LESS THAN 10 SECONDS PER FILE. Based on this, for me, the choice is clear. But if you're sure you prefer the file option, then just open (or create, if you don't have one) the "acad. lsp" file and write a line like this for each file you want to load: (load "filename.lsp") PS In the latter case, you will need to include the location of your lisp files in the AutoCAD search paths list.

Why not use a pop menu a toolbar or a ribbon then all your lisps are available. This has 130 lisp's behind it. You can check if loaded already else load it.

Do I understand correctly? The LoadFolder code opens a folder selection dialog, searches for all lisp files in the selected folder, and automatically downloads all lisp files (*.lsp) from this folder. That is, should I sort the lisp files for autoloading into a separate folder? With more than 300 files, sorting will take a long time... Therefore, I decided that it would be easier to have a list of lisp files in notepad and upload this list. Is it possible to implement this in code?

I'll explain what it's for. I had to transfer all the lisp files to a new computer, a little later, I reinstalled the Autocad version, each time I added the files to the startup one at a time, since they are used in acad.pgp. I load the rest of the lisp files using strings like: (_autoload "ObjectBreakV1-0")(c:brk) (_autoload "ObjectBreakV1-0")(c:brko) (_autoload "unformat_LM")(c:unformat_LM) .................................. The list of files (_autoload... located in the .dwg template Therefore, there was a question about uploading files as a list.

dear all i have text as PROPOSED & EXISTING WATER CROSSING AT CH 81+137.23 & CH 21+152.45 and i want to take part of Thes text as name of title CH 81+137.23 & CH 21 i think as field but i can't doit can you help me

Hi @PGia I'm not sure I understand your example drawing correctly. But... isn't it possible that it's incorrect on the second floor?

How did you achived that? Can you explain how to add sign /

@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.