求大神帮忙啊~~

hpbqqq

求帮忙写个程序，要以下功能：
如我已经加载了“平法之拉移随心.VLX”。输入命令GBJ后还要输入V去量取长度。现在想要的就是一个命令就能实现这两个命令。
类似 (DEFUN C:A1() (COMMAND "OFFSET" "100"))  只要输入A1就能实现偏移100.

微笑忘记过去

你真够懒的，这么简单的功能你自己已经可以写出来了。

1993063

1. (Defun Offset ( DIST )
   
2.   (Command "OFFSET"  dist)
   
3.   (while ( /= (Getvar 'cmdactive) 0)(Command pause))
   
4. )
   
5. (Defun C:o1 nil(Offset 1))

复制代码