Leaderboard

@Dana W LT can provide a full list of the system variables using the 'SETVAR' command followed by '?' '*' It is easier to use if you turn on logfiles to get a saved file of the command history and you also need to set 'QAFLAGS=2' to stop the command window from prompting you to press enter affter each screen full of results. I use this often to trace down odd behaviour and quickly check various values (relatively quickly ) you do need to find the logfile and scroll through to the relevant part. It is often easier to close a drawing first and reopen it to start a fresh logfile.

Jejejeje, Yeah, what happens when you don't read all the information . Thanks again!

In the words of CAD Manager extraordinaire Mark Kiker .... "Don't let a management problem become a technology problem" In other words, this sounds like a management problem. Tell the designers to not unlock these layers, problem solved. Unless of course you have 1,500 of them and it's virtually impossible to tell who is doing it, and therefore you don't know who to write up. On the technical side, I suppose it's possible to load 3rd party code with a reactor that can detect when a layer is modified, record the modification, and the current user at the time, to a log file. Layers cannot be locked with a password inside of ACAD. You could export those layers to a separate DWG file, then place those DWG files in a network location to which these rogue designers do not have write access, then xref them back in.

Its probably buried away in the register so can not use LT maybe excel using macro VBA, but you will still need to know where to look.

Hi @pkenewell, I really thank you! if I use it like a subfunction it works perfectly

@RonnieBN Give this a shot. (defun c:Test ( / int sel cad ent lst ref one two out csv get) ;; Tharwat Al Choufi - Date: 4.Mar.2021 ;; (and (princ "\nSelect closed polylines with four corners : ") (setq int -1 sel (ssget '((0 . "*POLYLINE") (-4 . "<AND") (-4 . "&=") (70 . 1) (90 . 4) (-4 . "AND>")))) (or (vla-zoomextents (setq cad (vlax-get-acad-object))) t) (while (setq int (1+ int) ent (ssname sel int)) (setq lst nil) (foreach p (entget ent) (if (= (car p) 10) (setq lst (cons (cdr p) lst))) ) (and (setq ref (ssget "_CP" lst '((0 . "TEXT")))) (setq one (distance (car lst) (cadr lst)) two (distance (car lst) (last lst)) ) (if (equal (cadar lst) (cadadr lst) 1e-4) (setq len one wid two) (setq len two wid one) ) (setq out (cons (list len wid (cdr (assoc 1 (entget (ssname ref 0))))) out)) ) ) (or (vla-zoomprevious cad) t) (setq csv (getfiled "Specify file name" (getvar 'DWGPREFIX) "csv" 1)) (setq get (open csv "w")) (write-line "L,W,ID" get) (foreach itm out (write-line (strcat (rtos (car itm) 2 2) "," (rtos (cadr itm) 2 2) "," (caddr itm)) get) ) (close get) ) (princ) ) (vl-load-com)

SYSMON is active in 2021 LT, F1 help says the documentation on it is from 2020 so it may not be in 2015 EDIT ADDED - SYSVARMON and SYSMON were new in the 2016 release. 2021 still does not have the command for listing all SYSVAR's

Glad you figured it out, and that you posted back with your solution. I spent a little while yesterday trying to figure it out. I have never used LT, so I am not sure if SYSMON is available to you or not?

Agree with @CyberAngel - spend the time to create the layout(s) you need one time, in your template drawing. Even if you end up working on drawings created by someone else, you can import the layout into that drawing for use.