http://bbs.mjtd.com/thread-107586-1-1.html
 - (defun resetosmode (v1 v2 /)
- (if (/= (getvar "osmode") 2183)
- (setvar "osmode" 2183);;;;如果要“最近点”,改为2695;;;建议:平常不要用最近点,要用时输nea或设组合按键
- )
- (princ)
- )
- ;;;;;构造编辑器反应器对象;;如果没有数据则为 nil
- (vlr-editor-reactor
- nil
- '(
- (:vlr-lispEnded . ResetOsmode) ;;;已完成对 AutoLISP 表达式的求值
- (:vlr-lispCancelled . ResetOsmode) ;;;已取消对 AutoLISP 表达式的求值
- )
- )
|