Topic: SSGET + INITGET

[amc.dicsac]

Hi, I need help please.
As I can add to ssget initget type options.   

Code - Auto/Visual Lisp: [Select]

1. (defun c:A31 (/ ObjSelect i)
2. (setvar "cmdecho" 0)
3. (setvar 'errno 0)
4. (initget "Doble")
5. (setq ObjSelect (LM:ssget "\nSelect Polyline Hatch Simple or [Doble]: " '("_:L")))
6. (cond
7.  ((= 7 (getvar 'errno)) (princ "\nMissed, try again."))
8.  
9. ((= "Doble" ObjSelect)
10. (command "_.hatch" "ANSI31" "0.025" "0" ObjSelect ""
11.  "_hatchedit" (entlast) "_ASSOCIATE" "_s" ObjSelect "" "")
12. (prompt "\nTerminado.."))
13.  
14. ((= (type ObjSelect) 'PICKSET)
15. (repeat (setq i (sslength ObjSelect))
16. (command "_.hatch" "ANSI31" "0.025" "0" ObjSelect ""
17.          "_hatchedit" (entlast) "_ASSOCIATE" "_s" (ssname ObjSelect (setq i (1- i))) "" ""))
18. ))
19. (setvar "cmdecho" 1)
20. (prompt (strcat "\n- Se modifico [ " (itoa (sslength ObjSelect)) " ] Objeto(s)"))
21. (princ))
22.  
23.     ;; ssget  -  Lee Mac
24.     ;; A wrapper for the ssget function to permit the use of a custom selection prompt
25.     ;; msg - [str] selection prompt
26.     ;; arg - [lst] list of ssget arguments
27.      
28.     (defun LM:ssget ( msg arg / sel )
29.         (princ msg)
30.         (setvar 'nomutt 1)
31.         (setq sel (vl-catch-all-apply 'ssget arg))
32.         (setvar 'nomutt 0)
33.         (if (not (vl-catch-all-error-p sel)) sel)
34.     )
35.  
36.  
37.  
38.  

[amc.dicsac]

Change some code of Lee mac, works example 1, the example 2 does not give me results.

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.     ;; init - [lst] list of parameters
4.     ;; Mens - [str] selection prompt
5.     ;; arg - [lst] list of ssget arguments
6.    
7.      
8.     (defun LM:ssget2 (init Mens arg / sel )
9.         (if (not Mens)(setq Mens "\nSelecciona: "))
10.         (if (not init) (setq init (list 0)))    
11.         (princ Mens)
12.         (setvar 'nomutt 1)
13.         (apply (function initget) init)
14.         (setq sel (vl-catch-all-apply 'ssget arg))
15.         (setvar 'nomutt 0)
16.         (if (not (vl-catch-all-error-p sel)) sel))
17.  
18. (setq example_1 (LM:ssget2 nil nil '("_:L")))
19.  
20. (setq example_2 (LM:ssget2 '( 6 "Todo Simple") "\nSelecciona Objeto(s) [Todo Simple] " '("_:L")))
21.  

[roy_043]

(initget) does not work with (ssget).
RTM: http://docs.autodesk.com/ACD/2011/ENU/filesALR/WS1a9193826455f5ff1a32d8d10ebc6b7ccc-69da.htm

[Grrr1337]

So the solution may be using (getpoint) and (getcorner) or (getpoint) with initget, or even (grread).
That idea is in my head right now.

[ChrisCarlson]

What are you trying to accomplish? Lee has a magnificent function

http://www.lee-mac.com/selectif.html

[amc.dicsac]

What are you trying to accomplish? Lee has a magnificent function

http://www.lee-mac.com/selectif.html

but it does not work with ssget 

[T.Willey]

Maybe you can get some inpiration to create your own function that uses 'grread', 'getcorner' and 'ssget' from this thread.  No time to help more sorry.
https://www.theswamp.org/index.php?topic=19886.0

[Lee Mac]

Maybe you can get some inpiration to create your own function that uses 'grread', 'getcorner' and 'ssget' from this thread.  No time to help more sorry.
https://www.theswamp.org/index.php?topic=19886.0

Another:
https://www.theswamp.org/index.php?topic=34804