Topic: LM:ssget

[amc.dicsac]

Hello such, someone who can explain to me how I can make a (ssget "_: L") but with the LM func: Mac Lee SSGET

Thank you

Code: [Select]

;; 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 Mac]

Example:

Code - Auto/Visual Lisp: [Select]

1. ;; ssget  -  Lee Mac
2. ;; A wrapper for the ssget function to permit the use of a custom selection prompt
3. ;; msg - [str] selection prompt
4. ;; arg - [lst] list of ssget arguments
5.  
6. (defun LM:ssget ( msg arg / sel )
7.     (princ msg)
8.     (setvar 'nomutt 1)
9.     (setq sel (vl-catch-all-apply 'ssget arg))
10.     (setvar 'nomutt 0)
11.     (if (not (vl-catch-all-error-p sel)) sel)
12. )

Code - Auto/Visual Lisp: [Select]

1. (LM:ssget "\nSelect objects on unlocked layers: " '("_:L"))

[amc.dicsac]

and if you want to add (ssget "_: L" (list (cons 0 "insert")))

[ChrisCarlson]

It's incredibly annoying that you keep blatantly removing the credits to routines you use. So quit it.

Lee, curious to what instance this wrapper would be better suited than select-if?

[Lee Mac]

Lee, curious to what instance this wrapper would be better suited than select-if?

select-if uses entsel/nentsel and therefore only permits a single selection, the above function enables full ssget functionality whilst allowing a custom selection prompt.

[MPD]

what if i want
(LM:ssget "\nSelect Pline to Update: " '("_:S") '((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE")))

[Lee Mac]

what if i want
(LM:ssget "\nSelect Pline to Update: " '("_:S") '((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE")))

Use -

Code - Auto/Visual Lisp: [Select]

1. (LM:ssget "\nSelect Pline to Update: " '("_:S" ((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE"))))

[saunambon654]

Can I use it with (initget function, be like this:

Code: [Select]

(initget "First Second")
(setq ss (LM:ssget "\nSelect Pline to Update [First/Second]: " '(((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE")))))

[kdub_nz]

@ saunambon654

Have you tried  ( tested ) that option. ??

[saunambon654]

Yes, I hvae tried it.
When I entered "F", it became changing to "Fence" of ssget function.
When I entered "S", it was no change and continued to select object.
So I wonder is there any right way to use with (initget function.

[Lee Mac]

No - you cannot use initget with ssget.

[BIGAL]

You can build a what filter to use it makes the string that is used in the ssget a 2 step process. This uses a program I have to make choices.

Code: [Select]

(princ str)
 "Line,Arc"
(setq ss (ssget '((cons 0 str))))

[saunambon654]

No - 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?

[Lee Mac]

No - 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?

Not without writing your own version of ssget.