谁能帮改该程序使其有鼠标右键重复+功能

zfsaaa

谁能帮改该程序使其有鼠标右键重复+功能就是按一次“+”，其他重复计算可用鼠标右键重复。

(defun C:+ (/ ns s n i e eb ds i ss pt bool th blio cmdo)
(setq blio (getvar "blipmode"))
(setq cmdo (getvar "cmdecho"))
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(setq bool "T")
(princ "\nPlease choose numbers:")
(setq ns (ssget))
(if ns
(progn
(setq s 0.0)
(setq i 0)
(setq n (sslength ns))
(while (< i n)
(setq e (ssname ns i))
(setq eb (entget e))
(if (= "TEXT" (cdr (assoc 0 eb)))
(progn
(if bool
(progn
(setq th (cdr (assoc 40 eb)))
(setq bool nil)
)
)
(setq ds (atof (cdr (assoc 1 eb))))
(setq s (+ s ds))
)
)
(setq i (1+ i))
)
(setq ss (rtos s 2))
(setq pt (getpoint "\nInsert point of result:"))
(command "text" pt th 0 ss)

)
)
(setvar "blipmode" blio)
(setvar "cmdecho" cmdo)
(princ)
)

zhang8755

说的不清楚，不知道你的需求！！

zfsaaa

本程序是个数字相加运算程序，每算一次要按键盘上“+”一次，有无法子改为第一次按“+”，以后象CAD内画线一样（单击鼠标右键可重复调用画线工具），也可右键重复调用“+”命令.