Getpoint can be used as getkword

[amcdicsac]

Hello such, I have two questions first can be used simultaneously getpoint and make it work as a getkword me explain:

 

(setq a (getpoint "\nSpecifies a point or choose an option [Create Layer / Move]))

Something like that is what I want to add my lisp and not to leave that option until you locate the point or choose one of the

I am attaching options and the other question is this message that I get every time I finish run some lisp .. Unknown command "E1". Press F1 for help.

If someone explicarria how to remove that message please

 

58-Creador de Revisiones ( rev ).lspFetching info...

[neophoible]

Precede with

(initget "Create Move")

[amcdicsac]

I get this message

 

** Error: bad argument type: stringp (32.065 420.607 0.0) **

[kpblc]

(defun tt (/ res)
 (initget 128 "Create Move _ C M")
 (setq res (getpoint "\nSpecifies a point or choose an option [Create Layer / Move] <Cancel> :"))
 ) ;_ end of defun

[amcdicsac]

Someone please correct me this program

 

 

 

(defun c:ttx (/ res)
 (while (null (progn
        (initget "Crear Mover")
        (setq a (getpoint "\nUbica un punto o escoje una opción [ Crear capa / Mover ]")))))
   (setq x (getpoint a "\nIngresa pto: "))
   (command "line" a x)
   (cond ((= a "Crear") (m1))
     ((= a "Mover") (m2)))
      (princ)
      )

(defun m1 ()
 (setq ss (ssget "_:L"))
 (command "move" ss "")
 (princ))

(defun m2 ()
 (setq ss (ssget "_:L"))
 (command "move" ss "")
 (princ))

[kpblc]

First of all: could you translate all questions to english? I don't know Spain and i can't guaratee correct translate

Secondary: what is the ultimate goal of your program?

[amcdicsac]

To begin with what interests me is to make a lisp that allows me to chop the first point and then the second to draw a line if if would not choose one of the selections that I show for example:

(Initget "Move Copy")

(Setq option (getpoint "\ nPick point or [Move / Copy]:"))

It is the right thing I want to do or impossible

[hmsilva]

   (initget "Move Copy")
  (setq option (getpoint "\ nPick point or [Move / Copy] <exit>:"))
  (cond ((= 'list (type option))
         (command "_.line" option)
         (while (> (getvar 'cmdactive) 0)
            (command "\\")
         )
        )
        ((= "Move" option)
         (prompt "\nDo the Move stuff...")
        )
        ((= "Copy" option)
         (prompt "\nDo the Copy stuff...")
        )
        (T
         (prompt "\nYou did press Enter or SPacebar to exit...")
        )
  )

 

Hope this helps,

henrique

[amcdicsac]

thanks for your help.

this is that I need

[hmsilva]

  amcdicsac said:

thanks for your help.

this is that I need

 

You're welcome, amcdicsac!

Glad I could help

 

Henrique