本帖最后由 菜卷鱼 于 2017-9-23 16:49 编辑
给你举几个例子吧
 - (defun c:se1 ()
- (setvar 'osmode 15359)
- (mapcar 'princ
- (list "\n捕捉全开" " osmode:" (getvar 'osmode)))
- (prin1))
- (defun c:se2 ()
- (setvar 'osmode 14847)
- (mapcar 'princ
- (list "\n排除捕捉最近点" " osmode:" (getvar 'osmode)))
- (prin1))
- (defun c:se0 ()
- (setvar 'osmode 0)
- (mapcar 'princ
- (list "\n关闭捕捉" " osmode:" (getvar 'osmode)))
- (prin1))
|