Topic: FYI.... GetAngle has defaults!

[T.Willey]

I was updating one of my routines, and was going to ask the user to select an object to copy it's rotation (angle), so I was going to use

Code: [Select]

(initget "Select")
(setq Opt (getangle "\n Enter angle [Select object]: "))
But this will give you the default for 'south' with your current setup.  I just tested, because that was just a guess that the letter stood for south, and sure enough if you enter 'n' = north, 'e' = east, 'w' = west.

Thought I would share incase someone else tried this one day, and got strange answers that they didn't expect.

[Jeff_M]

That's odd that it does not honor the keyword defined in (initget) if the keyletter is N E W or S. Anything else works as expected. Thanks for catching that one, Tim.

[LE]

You found one of those undoc features... great finding !

[ASMI]

There is ENTSEL imitation with options. Use COND to elaborate output.

Code: [Select]

(defun Asmi_Entsel_w_Options(Message / grLst filPt selSet)
     (if Message
       (princ Message)
       (princ "\nSelect object: ")
       ); end if
        (setq lChr ""
          grLst(list 2 678)
          tStr ""
          ); end setq
        (while
          (and
              (not
            (member lChr '(" " "\r")))
          (/= 3(car grLst))
        ); end or
      (if
        (setq grLst(grread nil 4 2))
        (progn
          (cond
          ((= 3(car grLst))
           (setq filPt(cadr grLst)
                 selSet(ssget filPt)
                 ); end setq
           (if selSet
               (setq outVal
                (list(ssname selSet 0)filPt))
             ); end if
           ); end cond #1
          ((= 2(car grLst))
           (setq lChr(chr(cadr grLst)))
           (if
             (not
               (member lChr '(" " "\r")))
                 (progn
                 (setq tStr(strcat tStr lChr)
                   outVal tStr); end setq
                 (princ lChr)
               ); end progn
             ); end if
           ); end cond #2
            ); end cond
           ); end progn
          ); end if
         ); end while
        outVal
    ); end of aAsmi_Entsel_w_Options