Getpoint不'；不允许操作系统

halam · 发表于 2022-7-5 15:48:47

这段代码将给出此消息。
我不能使用某个对象的点的原因是什么？

"
点必须是不同的。
; 错误：功能已取消
"


(defun c:miv ()
 (command "ucs" "v")
 (setq ss1 (ssget))
 (setq a1 (getpoint "select point:"))   ; can't use snap here?
 (command "mirror" ss1 "" a1 "@0,1" "Y")
 (prin1)
 (princ "*Cancel*")
 (command "ucs" "p")
 (PRIN1)
)

Roy_043 · 发表于 2022-7-5 16:09:51

提示：使用“_non”。

halam · 发表于 2022-7-5 16:18:09

我希望能够使用捕捉点

ronjonp · 发表于 2022-7-5 16:31:34

可以将捕捉与getpoint一起使用：

copy

(defun c:test (/ os)
 (setq os (getvar 'osmode))
 (setvar 'osmode 16383)
 (getpoint)
 (setvar 'osmode os)
 (princ)
)

Roy_043 · 发表于 2022-7-5 16:43:37

@汉斯：
这是一个如此经典的问题。。。
替换：

copy

(command "mirror" ss1 "" a1 "@0,1" "Y")

使用：

copy

(command "mirror" ss1 "" "_non" a1 "_non" "@0,1" "Y")

halam · 发表于 2022-7-5 16:49:42

再次感谢Roy

[编程交流] Getpoint不'；不允许操作系统

发表回复

精选推荐