(NEAR)【启用捕捉】并【清除】或【恢复】最近点捕捉
抛转引玉哈，想要啥样就改成啥样的(defun C:near(/ osm)
(if (>= (setq osm (getvar "OSMODE")) 16384)
(progn
(setvar "OSMODE" (setq osm (- osm 16384)))
(princ "\n当前捕捉未启用，已启用捕捉!")
)
)
(if (= (logand osm 512) 512)
(progn (setvar "OSMODE" (- osm 512)) (princ "\n已清除最近点捕捉!"))
(progn (setvar "OSMODE" (+ osm 512)) (princ "\n已恢复最近点捕捉!"))
)
(prin1)
)
(princ "\n< NEAR >【启用捕捉】并【清除】或【恢复】最近点捕捉! BY - 702099480@qq.com")
(prin1)
页:
[1]