Leaderboard

This is for info only , just to show what I was working on before someone today had the nerve to say the W-word to me and dumped a new project on my desk. So some options are not implemented yet or maybe not stable. Haven't tested it on an other pc yet so this may not work. Put some test drawings in a folder , start app (c:rlxbatch) and add drawings to project list either by add current folder when one of the drawings is loaded or use add subfolder and save the list with a name. Goto to publish , do settings , either select copy setup only (or not) , select Publish to single PdF and Use Drawings From projectlist and hopefully someting good happens.... Will try to work on it later , but just to give an idea... RlxBatch.lsp

no worries , this site will still be here when you're back

Not sure if this is applicable to your case, but annotative text and blocks can help you resolve scaling issues. Of course, annotative objects open up their own cans of worms. The nice thing is that you define the size once and assign scales to the object as necessary.

Using your example, you want to determine how many 1/4" are in one 1' or 12". Invert the fraction and multilply, 4/1 X 12 = 48 scale factor. For 1/8" = 1'-0", 8/1 X 12 = 96 scale factor. There are plenty of websites that go over this, many have the math already worked out for you on a PDF file. good luck

You should draw everything full scale in model space, regardless if you are designing a watch, or a 2 million sq. ft. factory. Then you can "scale" the objects in your viewport when you create your layout. See this for more info.

just 4 fun : ; ; for BigAl - rlx 4 sep 2018 (defun Eddie ( $txt1 %lst / err fn fp dcl nof-eddies Eddie-list slider-index org-list) (Eddie_Init) (Eddie_Dialog) (Eddie_Exit) (terpri) %lst ) (defun Eddie_Init () (setq err *error* *error* Eddie_err org-list %lst) (cond ((not (setq fn (vl-filename-mktemp "Eddie.dcl")))) ((not (setq fp (open fn "w")))) ((null %lst)) (t (setq nof-eddies (length %lst))) ) (if (null %lst) (progn (alert "Nothing to show")(Eddie_Exit)) (progn (Eddie_write_header) (if (<= nof-eddies 10)(Eddie_write_body1 %lst)(Eddie_write_body2 %lst)) (Eddie_write_footer) ) ) (if fp (close fp))(gc) (setq slider-index 0) ) (defun Eddie_err (s) (princ s)(Eddie_Exit)(princ)) (defun Eddie_Exit () (setq *error* err) (if fp (close fp)) (if dcl (unload_dialog dcl)) (if (and fn (findfile fn))(vl-file-delete fn)) ) (defun Eddie_write_header () (write-line (strcat "Eddie:dialog{label=\"Eddie - BigAl (2018)\";spacer;spacer;" ":text_part {key=\"txt1\";width=32;fixed_width=true;}" ) fp)) (defun Eddie_write_body1 ( %lst / i ) (write-line ":boxed_row {" fp) (write-line ":column {" fp) (setq i 0) (mapcar '(lambda (x) (write-line (strcat ":text_part{key=\"tp" (itoa i) "\";label=\"" (car x) "\";width=32;fixed_width=true;}") fp ) (setq i (1+ i)) ) %lst );|close column|;(write-line "spacer;}" fp) (write-line ":column {" fp) (setq i 0) (mapcar '(lambda (x) (write-line (strcat ":edit_box{key=\"eb" (itoa i) "\";width=12;fixed_width=true;}") fp ) (setq i (1+ i)) ) %lst );|close column & row|;(write-line "spacer;}}" fp) ) (defun Eddie_write_body2 ( %lst / i ) (write-line ":boxed_row {" fp) (write-line ":column {" fp) (setq i 0) (repeat 10 (write-line (strcat ":text_part {key=\"tp" (itoa i) "\";label=\"" (car (nth i %lst)) "\";width=32;fixed_width=true;}") fp ) (setq i (1+ i)) ) ;|close column|; (write-line "spacer;}" fp) (write-line ":column {" fp) (setq i 0) (repeat 10 (write-line (strcat ":edit_box {key=\"eb" (itoa i) "\";width=12;fixed_width=true;}") fp ) (setq i (1+ i)) );|close column|; (write-line "spacer;}" fp) (write-line (strcat ":column {:slider {key=\"sldr\";layout=vertical;min_value=" (itoa (- 0 nof-eddies)) ";max_value=0;small_increment=1;big_increment=10;value=0;}}}" ) fp ) ) (defun Eddie_write_footer () (write-line "spacer;spacer;ok_cancel;}" fp)) (defun Eddie_Dialog ( / n drv inp) (if (and (setq n 0 dcl (load_dialog fn)) (new_dialog "Eddie" dcl)) (progn (Eddie_DialogUpdate) (Eddie_DialogActions) (setq drv (start_dialog)) (if (= drv 1) (mapcar '(lambda (x y) (if (= x "1")(setq return (cons y return)))) Eddie-list %lst) (setq return nil)) ) ) ) (defun Eddie_DialogUpdate ( / i ) (if (= (type $txt1) 'STR)(set_tile "txt1" $txt1)) (set_tile "sldr" (itoa slider-index)) (update_Eddies) ) (defun Eddie_DialogActions () (repeat 10 (action_tile (strcat "eb" (itoa n)) (strcat "(edit_me $value " (itoa n) ")" ))(setq n (1+ n))) (action_tile "sldr" "(update_slider $value)") (action_tile "ok" "(done_dialog 1)") (action_tile "cancel" "(setq %lst org-list)(done_dialog 0)") ) (defun update_slider ( #i ) (setq slider-index (atoi #i)) (Eddie_DialogUpdate) ) (defun update_Eddies (/ Eddie-index Eddie-name i) ;max number of Eddies in dialog is 10 (if (> (abs slider-index) (- nof-eddies 10)) (setq Eddie-index (- nof-eddies 10))(setq Eddie-index (abs slider-index))) (if (< Eddie-index 0)(setq Eddie-index 0)) (setq i 0) (while (and (< i 10) (setq Eddie-name (car (nth Eddie-index %lst)))) (set_tile (strcat "tp" (itoa i)) Eddie-name) (set_tile (strcat "eb" (itoa i)) (vl-princ-to-string (cadr (nth Eddie-index %lst)))) (setq i (1+ i) Eddie-index (1+ Eddie-index)) ) ) (defun edit_me ( $v #i / idx ) (if (> (abs slider-index) (- nof-eddies 10)) (setq idx (- nof-eddies 10)) (setq idx (abs slider-index))) (setq idx (+ #i (if (< idx 0) 0 idx)) %lst (subst (list (car (nth idx %lst)) $v) (nth idx %lst) %lst))) ;print list (test function) (defun prl (lst)(mapcar '(lambda(x)(princ "\n")(princ x)) lst)) (defun c:t1 () (prl (Eddie "This is heading" '(("Line 1" 1) ("Line 2" 22) ("Line 3" 33)("Line 4" 44))) ) (princ) ) (defun c:t2 () (prl (Eddie "This is heading" '( ("Line 1" 11) ("Line 2" 22) ("Line 3" 33) ("Line 4" 44) ("Line 5" 55) ("Line 6" 66) ("Line 7" 77) ("Line 8" 88) ("Line 9" 99) ("Line 10" 100) ("Line 11" 110) ("Line 12" 120) ("Line 13" 130) ("Line 14" 140) ("Line 15" 150) ) ) ) (princ) )

Perhaps something like this, not quite sure - it returns !val1 !val2 !val3 ... ; sample code (ah:getval2018 "heading at top" (list "Line 1" 5 4 "1" "Line2" 8 7 "2")) ; (setq dcllst (list "Line 1" 5 4 "1" "Line2" 8 7 "22" "Line3" 8 7 "3" "Line4" 8 7 "44")) ; (AH:getval2018 "This is heading" (list "Line 1" 5 4 "1" "Line2" 8 7 "22" "Line3" 8 7 "3" "Line4" 8 7 "44")) (defun AH:getval2018 ( heading dcllst / x y fo fname keynum valnum keylst vallst ) (setq num (/ (length dcllst) 4)) (setq x 0) (setq y 0) (setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w")) (write-line "ddgetvalAH : dialog {" fo) (write-line (strcat " label =" (chr 34) heading (chr 34) " ;" ) fo) (write-line " : column {" fo) (repeat num (write-line "spacer_1 ;" fo) (write-line ": edit_box {" fo) (setq keynum (strcat "key" (rtos (setq y (1+ y)) 2 0))) (write-line (strcat " key = " (chr 34) keynum (chr 34) ";") fo) (write-line (strcat " label = " (chr 34) (nth x dcllst) (chr 34) ";") fo) (write-line (strcat " edit_width = " (rtos (nth (+ x 1) dcllst) 2 0) ";") fo) (write-line (strcat " edit_limit = " (rtos (nth (+ x 2) dcllst) 2 0) ";") fo) (write-line " is_enabled = true ;" fo) (write-line " }" fo) (setq x (+ x 4)) ) (write-line " }" fo) (write-line "spacer_1 ;" fo) (write-line "ok_only;}" fo) (close fo) (setq dcl_id (load_dialog fname)) (if (not (new_dialog "ddgetvalAH" dcl_id)) (exit) ) (setq x -1) (setq y 0) (repeat num (setq keynum (strcat "key" (rtos (setq y (1+ y)) 2 0))) (setq valnum (strcat "val" (rtos y 2 0))) (setq keylst (cons keynum keylst)) (setq vallst (cons valnum vallst)) ) (foreach a (reverse vallst) (set (read a) (nth (setq x (+ x 4)) dcllst)) ) (setq x -1) (foreach ab (mapcar '(lambda ( a b ) (list a b)) (reverse keylst) (reverse vallst)) (set_tile (car ab) (nth (setq x (+ x 4)) dcllst)) (action_tile (car ab) (strcat "(setq " (cadr ab) " $value)")) (mode_tile (car ab) 3) ) (start_dialog) (unload_dialog dcl_id) (vl-file-delete fname) ) HTH., M.R.

This is internet time by lee-mac independent of the computer time. internet time.lsp

Use bim360, not onedrive or any other. Autodesk in, Autodesk out, [ as in shit in, shit out]

This : (setq elist (cdr (assoc -1 (entget (ssname ss (setq i (1+ i))))))) Is equal to : (setq elist (ssname ss (setq i (1+ i))))