Getpoint可以用作getkwo

amcdicsac · 发表于 2022-7-5 17:56:21

您好，我有两个问题，第一个可以同时使用getpoint，让它作为getkword我解释一下：

类似这样的东西就是我想添加lisp的内容，在找到点或选择其中一个之前不要保留该选项
我附加选项，另一个问题是每次运行完lisp后都会收到一条消息。。未知命令“E1”。按F1键获取帮助。
如果有人解释如何删除该消息，请

58 Creador de Revisions（修订版）。lsp

neophoible · 发表于 2022-7-5 18:05:51

以…开头

copy


(initget "Create Move")

amcdicsac · 发表于 2022-7-5 18:14:30

我收到这个消息

**错误：错误的参数类型：stringp（32.065 420.607 0.0）**

kpblc · 发表于 2022-7-5 18:17:38

copy

(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 · 发表于 2022-7-5 18:26:26

有人请纠正我这个程序

copy

(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))