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

Getpoint可以用作getkwo

您好，我有两个问题，第一个可以同时使用getpoint，让它作为getkword我解释一下：
 
类似这样的东西就是我想添加lisp的内容，在找到点或选择其中一个之前不要保留该选项
我附加选项，另一个问题是每次运行完lisp后都会收到一条消息。。未知命令“E1”。按F1键获取帮助。
如果有人解释如何删除该消息，请
 
58 Creador de Revisions（修订版）。lsp

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

以…开头

(initget "Create Move")

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

我收到这个消息
 
**错误：错误的参数类型：stringp（32.065 420.607 0.0）**

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

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

amcdicsac 发表于 2022-7-5 18:26:26

有人请纠正我这个程序
 
 
 
(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 发表于 2022-7-5 18:35:42

首先：你能把所有的问题翻译成英语吗？我不懂西班牙，也不能保证翻译正确
第二：你课程的最终目标是什么？

amcdicsac 发表于 2022-7-5 18:38:13

首先，我感兴趣的是制作一个lisp，允许我切掉第一个点，然后第二个点画一条线，如果if不选择我显示的选项之一，例如：
（Initget“移动副本”）
（Setq选项（getpoint“\n点击点或[移动/复制]：”）
这是我想做或不可能做的事

hmsilva 发表于 2022-7-5 18:43:01

4
 
希望这有帮助，
亨里克

amcdicsac 发表于 2022-7-5 18:56:21

谢谢你的帮助。
这就是我需要的

hmsilva 发表于 2022-7-5 19:01:05

 
不客气，amcdicsac！
很高兴我能帮忙
 
亨里克
页: [1]
查看完整版本: Getpoint可以用作getkwo