0 Members and 1 Guest are viewing this topic.
;; Un contenedor para la función ssget para permitir el uso de un mensaje de selección personalizada;; argumentos:;; msg - mensaje de selección;; params - lista de argumentos ssget (vl-load-com) (defun LM:ssget ( msg params / sel ) (prompt msg) (setvar 'nomutt 1) (setq sel (vl-catch-all-apply 'ssget params)) (setvar 'nomutt 0) (if (not (vl-catch-all-error-p sel)) sel ))
Lee, curious to what instance this wrapper would be better suited than select-if?
what if i want (LM:ssget "\nSelect Pline to Update: " '("_:S") '((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE")))
(initget "First Second")(setq ss (LM:ssget "\nSelect Pline to Update [First/Second]: " '(((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE")))))
(princ str) "Line,Arc"(setq ss (ssget '((cons 0 str))))
No - you cannot use initget with ssget.
Quote from: Lee Mac on February 21, 2024, 05:42:17 AMNo - you cannot use initget with ssget.Thank you Lee! Is there any way to do that without (initget function? Could you please make the sample?