BIGAL 发表于 2022-7-5 19:41:04

我们中的一些人会用这种方式解决它。
 

(SETVAR "ORTHOMODE" 0)
(setq oldsnap (getvar "osmode"))
.........
........
(setvar "osmode" 1026) ; this is qui mid
(SETQ P3 (getpoint P1 "Pick next point"))
(setvar "osmode" oldsnap) ; snaps back to what they were
........
页: 1 [2]
查看完整版本: 电气本垒打Lisp