Leaderboard

Thank you all! although the change was trivial, according to my knowledge it is annoyingly difficult... but I seem to have succeeded by rereading the previous posts carefully. Thanks again (defun c:catchattcum (/ att html result) (vl-load-com) (setq stringa "") (while (setq att(car(nentsel "\nSeleziona attributo: "))) (setq stringa(strcat stringa (cdr(assoc 1 (entget att))) " ")) ) (setq stringa (substr stringa 1 (- (strlen stringa) 1))) (princ stringa) (princ) )

Have a look at this as an example code, no delays as hinted. But it is hard coded to suit our title block in layouts, we had different versions for PDF, A1 plotter, JPG etc. Tested on a project with 88 layouts. plotpdf.lspMulti GETVALS.lsp

Please put the code in the <> window in the editor. Since it is not publish, you have to wait manually. I add this line for spool time after plot (command "delay" 3000) this value may vary depending on the each system.

Hello to all, I decided to switch from popup_lists to list_boxes in one of my dcl's. I have the default values set and they work fine. The problem I am having here is the values do not highlight when the dcl first appears. I tried using value = 0;, But this did nothing so I removed it. Is something missing? I would appreciate any help on this. Thanks : column { : boxed_column { label = "Class"; : list_box { key = "CLASS"; height = 8.0; width = 9.0; fixed_height = true; fixed_width = true; alignment = centered; } } } : column { : boxed_column { label = "Size"; : list_box { key = "PSIZ"; height = 8.0; width = 9.0; fixed_height = true; fixed_width = true; alignment = centered; } } }

(defun c:BNameLabel (/ ent entl obj) (cond ((not (setq ent (car (entsel "\nSelect block: "))))) ((not (eq (cdr (assoc 0 (entget ent))) "INSERT")) (princ "\nInvalid object!")) ((setq pt (getpoint "\nSpecify first point: ")) (setq entl (entlast)) (vl-cmdf "_.mleader" "_non" pt "\\") (while (eq (logand 1 (getvar 'CMDACTIVE)) 1) (vl-cmdf "")) (if (not (equal entl (setq entl (entlast)))) (vla-put-textstring (vlax-ename->vla-object entl) (vlax-get-property (setq obj (vlax-ename->vla-object ent)) (if (vlax-property-available-p obj 'EffectiveName) 'EffectiveName 'Name ) ) ) ) ) ) (princ) ) (vl-load-com) (princ)