More AutoCAD-like programs

[KRBeckman]

Hey look at that, now I found it...

[alanjt]

How about this part

For example:

 

(progn
 (initget 0 "Fart tOot")
 (getpoint "\nSpecify point or [Fart/tOot]: "))

 

The letter that is capitalized is the trigger, but it will accept the entire word (This is just useful when you have two keywords that begin with the same letter).

[KRBeckman]

yeah, I've used the 2nd or 3rd letter keyword trigger a bunch, just didn't know you could use it with a getpoint or getreal....

[KRBeckman]

I'm running into another problem... I'm trying to limit the input for a prompt so that on the first run it requires an input, but once the vairable has a value, you can press enter and it will use the previous value. The I've tried a few different approaches, but can't get it to work. Here's my latest attempt:

 

(initget (if (not tpm) 1 nil) "Face Array oScill layeR hidE")
   (setq tpm (cond
 ( (getpoint
     (strcat "\nPick First Point or choose setting to cycle [Face type/Array "
   "type/oScillation/layeR/hide Edges/<select point>]: ")))
 (tpm)))))

 

Any ideas?

[alanjt]

(progn
 (or *Value* (setq *Value* "Chicken"))
 (initget "Beef Chicken")
 (setq *Value* (cond ((getkword (strcat "\nChoice meat? [beef/Chicken] <" *Value* ">: ")))
                     (*Value*)
               ) ;_ cond
 ) ;_ setq
) ;_ progn

[Lee Mac]

Perhaps look at this thread:

 

http://www.cadtutor.net/forum/showpost.php?p=273108&postcount=12

 

It will demonstrate how to 'remember' an option

 

Or, in the way you were phrasing it,

 

(initget (if *def* 0 1) "Eggs Bacon")
(setq *def* (cond ((getkword (strcat "\nEggs or Bacon? "
                                    (if *def* (strcat "<" *def* ">") "") " : "))) (*def*)))

 

But that's a bit messy imo