Set 1 Standard on Selections

By VisDak
July 22, 2009 in AutoLISP, Visual LISP & DCL

https://www.cadtutor.net/forum/topic/12590-set-1-standard-on-selections/

Followers 0

Recommended Posts

VisDak

Posted July 22, 2009

Good day to all, i created an selection for my Lisp routes, and its working fine:P only how to add on my route that will set one of the selection?

(setq entname (cdr (assoc 5 (entget (car Ent)))))
(setq entlayer (cdr (assoc 8 (entget (car Ent)))))
(setq bk (getstring "Select Doors Type - <R>ight/<L>eft/<D>ouble" [color=red]?[/color]))
(setq bk (strcase bk))
(if (= bk "L") (setq bk "LDOOR"))
(if (= bk "R") (setq bk "RDOOR"))
(if (= bk "D") (setq bk "DDOOR"))

on the code for example L is a first ideal set, now when i change it to D and used it on the next it will be set to D, kindly please educate me on this route:unsure:

Many Thanks

Quote

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.