All Activity

The work flow makes the copying of the texts to attribute block so quick> Regards CONVERT TEXTS TO ATTRIBUTE WORK FLOW-COMP.mp4 GTTB-BATCH-COPY ANY NUMBER OF TEXTS TO ATTRIB BLOCKS.LSP rec2txt-placing a specific object (like a .lsp H B2 FINISHS - ATT-2.dwg

I found this code which is can calculated the area of the hatch even if its intersection itself. Try it , I think it will help. Regards HAE-SHOW THE AREA OF HATCH EVEN IS NOT SHOWING AREA IN PROPERTIES.LSP

MCC-WRITE XYZ COORDS WITH MLEADER - REV12.LSP Please try this code for writing the coordinates. Regards.

Need a link https://autolispprograms.wordpress.com/water-supply-2/

can not open

See if this program by @Tharwat is suitable for you...

Welcome aboard M07, did you do a google re this task ? I have seen posts in various forums for this task. There may also be something overt at the Autodesk Apps Store. Do you have access to Autodesk "Plant" that should do what you want.

I can't get your examples to show as hyperlinks in Acrobat Pro or opening with MS Edge at work. If I create a hyperlink in AutoCAD, it shows as hyperlink in Adobe Pro and MS Edge, so not being blocked by Adobe Pro or AutoCAD. See if these show as hyperlinks on your reader. PDF_Hyperlink 3.pdf PDF_Hyperlink 2.pdf PDF_Hyperlink.pdf

Is this text in a TTF font or SHX? AutoCAD exports SHX fonts to searchable comments. If you turn that off (set PDFSHX system variable to 0), maybe the links will turn off too. SLW seems to be on the right track with PDF Options, try that first.

I'll try that shortly and see if that works. PDF options didn't do much - mostly I think it is a PDF viewer thing (got into a whole word of space names yesterday, EM-space, EN-space, half EM, quarter EM... and so on depends on the website, never knew there were so many 'spaces')

I meant to mention adding the (\U+200A). IIRC it's called a nonbreaking space. "Hairspace" sounds better IMO. I didn't try this, but one article mentioned to "Save As" or "Export to" PDF to kill the hyperlinks. My AutoCAD 2026 has the option to check Include Hyperlinks under PDF Options on the plot manager.

The OP mentioned the version they were inquiring about in the thread title and the first post as well as posted in the AutoCAD LT Forum. Some people may use more than one version.

I have moved your thread to the AutoLISP, Visual LISP & DCL Forum, please post in the most appropriate forum. Please only post once for the same inquiry, I deleted your other threads.

This code is so helpful to convert texts or mtexts to mleader. In the attachments the lisp file and cad file that has the problem I tied to solve. The cad file contains a huge amounts of elevations as texts and leaders that are exploded for landscape work , therefore this lisp can help with case like this Regards TBC- JOIN TEXT AND POLYLINES AND CONVERT THEM TO MLEADER OR MAKE IT MANUALLY.lsp BR FIN LVLS-1.dwg

Not sure why moderators missed this, which is the correct version your using, 2012 or 2026. A good idea is to update version if it's different to what is showing.

The row height if using a lisp will auto adjust based on the row text height, I get around this problem by asking for text height as the control in the table I usually make a custom "Table Style" with the desired settings much easier than trying to fix an existing table. You can also define the margins around the text in the style. Yes do have something.

Thanks for the reply. I fixed the typo we all do it." ;ultiple_select=true;" It seems that using a defun for the (Action_tile lst1) seemed to work, the return is a string so added a convert to list at end so get ("0" "1") etc as answer the number in layout list as a string. I also removed the double cons so only get the actual answers as a list. As this is just a start code for updating title blocks in layouts the Anslstx variables will be localised. As I said about the added defun the anslst2 was working even when localised. Next step is adding some radio buttons to the dcl but hopefully that will not cause problems. So thanks again.

Hello everyone, I need your help. I have a preset dynamic block for a pipe that I can stretch and adjust in size, along with several fittings like elbows, tees, reducers, etc. I want to know if there is a way, or a lisp, or any AutoCAD command, that I can use to automatically place these dynamic pipes and fittings on a previously drawn line or polyline routing, simply by selecting the routing so that AutoCAD can automatically position these fittings without me having to redraw them, matching and following the existing routing.

Incredible: it seems that (GC) works! I think I last used this command on a 486! Thank you very much!

you have no action_tile assigned to your edit_boxes key1 ... key4 also anslst1 anslts2 have been declared local in your defun so values are not exposed outside your defun ; For the original list box Listslect.lsp ; Modified by AlanH May 2026 to also have edit boxes (defun AH:xxxxxx1 ( / fo fn dcl_id key_lst keynum num x y) ;; anslst1 anslts2 ;(setq fo (open (setq fn "D:\\acadtemp\\xxxxxx.dcl") "W")) (setq fo (open (setq fn "C:\\temp\\xxxxxx.dcl") "W")) (foreach x (list "roslist_select : dialog {label=\"Layout choice\";" ": row { " " : column { " " : list_box {label=\"Please choose\";" " key=\"lst1\";allow_accept=false;height=15;width=25;ultiple_select=true;}" "}" " : boxed_column {" (strcat "label=" (chr 34) (nth 0 lst2) (chr 34) " ;") " width =25;" ) (write-line x fo) ) (setq num (/ (- (length lst2) 1) 4)) (setq x 0) (setq y 0) (repeat num (write-line "spacer_1 ;" fo) (write-line ": edit_box {" fo) (setq keynum (strcat "key" (rtos (setq y (+ Y 1)) 2 0))) (write-line (strcat " key = " (chr 34) keynum (chr 34) ";") fo) (write-line (strcat " label = " (chr 34) (nth (+ x 1) lst2) (chr 34) ";") fo) (write-line (strcat " edit_width = " (rtos (nth (+ x 2) lst2) 2 0) ";") fo) (write-line (strcat " edit_limit = " (rtos (nth (+ x 3) lst2) 2 0) ";") fo) (write-line " is_enabled = true ;" fo) (write-line " allow_accept=false ;" fo) (write-line " }" fo) (setq x (+ x 4)) ) (write-line "spacer ; " fo) (write-line "ok_cancel ;" fo) (write-line "}" fo) (write-line "}" fo) (write-line "}" fo) (close fo) (setq dcl_id (load_dialog fn)) (if (not (new_dialog "roslist_select" dcl_id))(exit)) (start_list "lst1") (mapcar (function add_list) lst1) (end_list) (set_tile "lst1" "0") (setq x 0) (setq y 0) (setq anslst2 '()) (repeat num (setq keynum (strcat "key" (rtos (setq y (+ Y 1)) 2 0))) (setq key_lst (cons keynum key_lst)) (set_tile keynum (nth (setq x (+ x 4)) lst2)) ) ; (mode_tile "key1" 2) ;(action_tile "accept" "(mapcar '(lambda (x) (setq anslst2 (cons (get_tile x) anslst2))) key_lst)(done_dialog)") (action_tile "accept" "(read_tiles key_lst)(done_dialog)") (action_tile "lst1" "(setq anslst1 $value)") (action_tile "cancel" "(done_dialog)") (start_dialog) (unload_dialog dcl_id) ; (if (setq fn (findfile fn)) (startapp "notepad" fn)) ; (vla-file-delete fn) (princ) ) ;;; end defun (defun read_tiles (key_lst) (foreach key key_lst (setq anslst2 (cons (cons key (get_tile key)) anslst2)))) ;;; hit & run (setq lst1 (cons "New layout" (layoutlist))) (setq lst2 (list "Enter values " "Date to add" 15 14 "" "Drawn by" 15 14 "" "Checked by" 15 14 "" "Approved by" 15 14 "")) (AH:xxxxxx1) (if (= anslst1 nil)(alert "anslst1 is nil")(princ anslst1)) (princ "\n") (princ anslst2) ; anslst1 holds lst1 select values ; anslst2 holds the getval values

Thanks SLW210 for looking for me, a font of all knowledge

The project specifications are limiting us to Arial font, and a set format for the text strings. It isn't a CAD issue but a PDF reader issue - and we cannot control what others use to look at files. So not a lot we can actually do with the plotting to make it behave as it should unfortunately. So many texts that start with the format qwe.rty.uio..... are seen as hyperlinks in the PDF. Our work around - for anyone following this - is to use 'hairspace' after the '.' (\U+200A) which you can see is there if you know it is there else so far works.

What reader do you use? Should be an option to turn off automatic link detection. Post a sample PDF and DWG. You may need to use brackets, parenthesis, different font, etc. for the file names, I do believe that is the way it works with the "." in the word. P.S. I just checked Adobe sight, supposedly certain fonts should make them work. Monospaced Fonts? Which ones have you tried?

... could be the PDF reader

Good morning, One that has got my whole team stumped this morning.., When making a PDF it is created with hyperlinks automatically made... even if we don't want them... so what setting is there out there to fix this. We noticed this on one project where the file name is something like: ASD.QWE.RTY.UI.123456 The drawing number and lists of reference files with the same formatting will PDF as hyperlinks.... and we don't want that but cannot work out what to do to stop it! The drawing number has to have abut 4 or 5 'segments' for it to make it's hyperlink Noting if we use other symbols, not '.',for example '-' it plots as expected (I think it is the use of '.' that triggers the hyperlinks), it happens for all projects if I put in similar text and even if I start from new text (not copy-paste) - so not a font or project thing, tried adjusting the plotter settings (standard dwg to pdf), Mtext and Dtext are the same.. leads me to think it is all down to a plotting setting... but which one? Thanks for any advice