Topic: Getpoint Option

[amc.dicsac]

Hi, how are you:

I would like to know how I can have two options that are permuted ie if I have:

Code - Auto/Visual Lisp: [Select]

1. (setq pt1 T)
2. (while pt1
3. (initget "Horizontal Eliminar")
4. (setq pt1 (getpoint "\nIndica punto de origen Vertical ó [Horizontal/Eliminar]: "))
5. (cond
6.   ((= (type pt1) 'LIST) (vl-cmdf "_xline" "V" pt1 ""))
7.   ((= pt1 "Eliminar")
8.    (setq ObjSelect (ssget "x" (list (cons 8 "0-DEUSTUA PROYECCION"))))
9.    (command ".erase" ObjSelect ""))
10.   ((= pt1 "Horizontal")
11.    (setq pt1 (getpoint "\nIndica punto de origen Horizontal ó [Vertical/Eliminar]: "))
12.    (vl-cmdf "_xline" "H" pt1 "")))
13.   )
14.  

And when you select "Horizontal" this will hold as follows until you exit the loop.

Code - Auto/Visual Lisp: [Select]

1. (setq pt1 (getpoint "\nIndica punto de origen Horizontal ó [Vertical/Eliminar]: "))
2. (cond
3.   ((= (type pt1) 'LIST) (vl-cmdf "_xline" "H" pt1 ""))
4.   ((= pt1 "Eliminar")
5.    (setq ObjSelect (ssget "x" (list (cons 8 "0-DEUSTUA PROYECCION"))))
6.    (command ".erase" ObjSelect ""))
7.   ((= pt1 "Horizontal")
8.    (setq pt1 (getpoint "\nIndica punto de origen Vertical ó [Horizontal/Eliminar]: "))
9.    (vl-cmdf "_xline" "V" pt1 "")))
10.   )
11.  

Thanks....

[Grrr1337]

Hi, try this:

Code - Auto/Visual Lisp: [Select]

1. (setq opts '("Horizontal" "Eliminar"))
2. (setq msg "\nIndica punto de origen Vertical ó ")
3. (while (not Stop)
4.   (initget (strcat (car opts) " " (cadr opts)))
5.   (setq pt1 (getpoint (strcat msg "[" (car opts) "/" (cadr opts) "] <exit>: ")))
6.   (cond
7.     ( (and (vl-consp pt1) (vl-every 'numberp pt1))
8.       (cond
9.         ( (member "Horizontal" opts) (command "_.XLINE" "V" pt1 "") )
10.         ( (member "Vertical" opts) (command "_.XLINE" "H" pt1 "") )
11.       ); cond
12.       (setq Stop T)
13.     )
14.     ( (eq 'STR (type pt1))
15.       (cond
16.         ( (wcmatch pt1 "V*")
17.           (setq opts '("Horizontal" "Eliminar"))
18.           (setq msg "\nIndica punto de origen Vertical ó ")
19.         )
20.         ( (wcmatch pt1 "H*")
21.           (setq opts '("Vertical" "Eliminar"))
22.           (setq msg "\nIndica punto de origen Horizontal ó ")
23.         )
24.         ( (wcmatch pt1 "E*")
25.           (setq ObjSelect (ssget "_X" (list (cons 8 "0-DEUSTUA PROYECCION"))))
26.           (command "_.ERASE" ObjSelect "")
27.           (setq Stop T)
28.         )
29.       ); cond
30.     )
31.     (T (setq Stop T) )
32.   ); cond
33. ); while

[amc.dicsac]

Thanks was what I was looking for 

[Lee Mac]

To offer an alternative: Custom XLine Program - you could quite easily add the option to erase existing XLines.

[Grrr1337]

To offer an alternative: Custom XLine Program - you could quite easily add the option to erase existing XLines.

Nice,
I remember once I rewrote the LAYMCUR command, using the loop with (/= 52 (getvar 'errno)) - not sure who, but I think you were the inventor of this (errno 52 trick).

[CAB]

That error code use has been around for a very long time. 

[Marc'Antonio Alessi]

That error code use has been around for a very long time. 

at least since 2001...
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/if-statement-revisited/td-p/788306

[Lee Mac]

To offer an alternative: Custom XLine Program - you could quite easily add the option to erase existing XLines.

Nice,

Thanks 

not sure who, but I think you were the inventor of this (errno 52 trick).

Most definitely not... there is very little in AutoLISP which has not been done before. 

[Bobby C. Jones]

That error code use has been around for a very long time. 

at least since 2001...
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/if-statement-revisited/td-p/788306

Hey Marc!  Thanks for the trip down memory lane!  I was already visiting it yesterday as it was Frank's birthday.  If I remember correctly, that post happened just about the same time I joined with the guys at acadx.com.

[MP]

Believe it or not somewhere I have the unopened box of AutoCAD LT I won for submitting the name acadx.com in Frank's "Hey y'all -- name my new website" contest. I tried to talk Frank out of the name and refuse the prize upon learning Tony T had a software product by the same name but Frank wouldn't change his mind, seemed even more convinced it was the right name. He'd already had some "interesting" exchanges with Tony by then (Frank didn't monopolize Tony's wrath mind you) so I'm not sure what he was thinking. Anyway ... As you know Frank and Tony would go many bloody rounds on the issue. I always regretted having unwittingly contributed to it.

[Bobby C. Jones]

Believe it or not somewhere I have the unopened box of AutoCAD LT I won for submitting the name acadx.com in Frank's "Hey y'all -- name my new website" contest. I tried to talk Frank out of the name and refuse the prize upon learning Tony T had a software product by the same name but Frank wouldn't change his mind, seemed even more convinced it was the right name. He'd already had some "interesting" exchanges with Tony by then (Frank didn't monopolize Tony's wrath mind you) so I'm not sure what he was thinking. Anyway ... As you know Frank and Tony would go many bloody rounds on the issue. I always regretted having unwittingly contributed to it.

That is an awesome bit of trivia I didn't know, although I find it non-surprising, even fulfilling, that you came up with that name   But please don't have any regrets, Frank very much enjoyed the friction with Tony; a steel sharpens steel kind of thing.  Privately he warned both Bob B. and I to be careful when sparring with Tony as, "he has the skills to mop us up with any of his code", but publicly he relished every opportunity that he happened upon, or could create, to 'exchange' with Tony, or anyone else he thought was worthy

I haven't kept up over the years, anyone know what's up with Tony?

[Marc'Antonio Alessi]

That error code use has been around for a very long time. 

at least since 2001...
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/if-statement-revisited/td-p/788306

Hey Marc!  Thanks for the trip down memory lane!  I was already visiting it yesterday as it was Frank's birthday.  If I remember correctly, that post happened just about the same time I joined with the guys at acadx.com.

[MP]

1. That is an awesome bit of trivia I didn't know, although I find it non-surprising, even fulfilling, that you came up with that name   2. But please don't have any regrets, Frank very much enjoyed the friction with Tony; a steel sharpens steel kind of thing.  3. Privately he warned both Bob B. and I to be careful when sparring with Tony as, "he has the skills to mop us up with any of his code", 4. but publicly he relished every opportunity that he happened upon, or could create, to 'exchange' with Tony, or anyone else he thought was worthy

5. I haven't kept up over the years, anyone know what's up with Tony?

1.
2. True, he loved to to wind things up. He basically dismantled the Take5 forum because he would stir up hornets nest after hornets nest. Drove poor Anne Brown (Autodesk moderator) crazy.
3. Tony's coding still remains the standard for efficiency, thoroughness, robustness. I wish I knew a tenth of what he's forgotten.
4. See response to item 2.
5. Haven't seen a post from him in ages. Hope he's well & relaxing, he's certainly earned it.

Awesome to see you posting Bobby. You remain one of the finest forumites I ever e-met -- on any forum.