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

Getpoint不'；不允许操作系统

这段代码将给出此消息。
我不能使用某个对象的点的原因是什么？
 
 
"
点必须是不同的。
; 错误：功能已取消
"
 
 


(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一起使用：
(defun c:test (/ os)
(setq os (getvar 'osmode))
(setvar 'osmode 16383)
(getpoint)
(setvar 'osmode os)
(princ)
)

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

@汉斯：
这是一个如此经典的问题。。。
替换：
(command "mirror" ss1 "" a1 "@0,1" "Y")
使用：
(command "mirror" ss1 "" "_non" a1 "_non" "@0,1" "Y")

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

再次感谢Roy
页: [1]
查看完整版本: Getpoint不'；不允许操作系统