Leaderboard
Popular Content
Showing content with the highest reputation on 07/30/2023 in Posts
-
Possible way (defun l-to-3 (lst / ) (if lst (cons (list (car lst) (cadr lst) (caddr lst) ) (l-to-3 (cdddr lst)) ) ) ) (mapcar '(lambda (x) (vl-remove nil x)) (l-to-3 (list 1 2 3 4 5 6 7 8 9 10)))1 point
-
Ran code, I still think way to cluttered. This shows the main menu looking at your dcl would have 14 main options then go to correct sub menu. ? add more. This is a custom menu way easier to make than a dcl. This is an alternative dcl method pick the type then a child dcl opens. This shows a child DCL over the main dcl menu choice "Size"
1 point -
Another (if (null psize)(setq psize 25.0)) (setq tmp (getreal (strcat "\nSpecify the psize <" (rtos psize 2 2) "> : "))) (if (null tmp)(princ)) You can use my Multigetvals can save the last value for re-use. The initget has advantage of forcing a number.
1 point
-
(if (null tmp) (setq tmp 25)) (initget 6) (and (setq tmp (cond ( (getreal (strcat "\nSpecify the psize <" (vl-princ-to-string tmp)"> : ") ) ( tmp ) )) (setq psize tmp))1 point
-
Yes, enter on its own will produce nil.1 point
