怎样使CAD命令重复执行？？？

another2121

何不从CAD用户系统配置里面设置一下，按右键不就再次执行上次的命令了吗？

zdjcffc

楼主的意思是不是，就是执行完一个命令以后，永远处于激活状态？

ug跟catia都有类似的功能哈。。。

yrgui

“重复执行命令”干嘛想？

空格或回车或设置右键再次执行上一个命令这样的设计很好啊，有什么问题吗

linshiyin2

板凳正解

besteast

哦  张见识了哦··

xiaxiang

我想这是一个疯狂的举动

hzh2000

不合适，重复命令可以设置，但有时不需要

nyf305921

不是所有的命令都需要重复执行啊

MaKaiJin

回复 nyf305921 的帖子

那是，我是要那些用的次数非常多的命令.............

hhh454

(defun C:c()
      (princ "\nSelect objects: 多重copy组件  ")
      (setq ss (ssget))
      (command "COPY" ss "" "m")
      (PRINC))
这样也可以，或者用循环参数，gu_xl上次给我做了一个
；代码功能：根据多段线，连续画等高矩形
(defun c:tt()
  (setq osmode (getvar "osmode")
  ;指定osmode为 获取系统捕捉点设置
cla (getvar "clayer"))
  ;指定cla为获取的系统当前层
  (setvar "osmode" 0)
  ;设定系统捕捉点为没有
  (setq Height (getreal "\n输入高度：")
  ;指定height为输入的实数
jj (getreal "\n输入间距："))
  (princ "\n选择多段线")
  (setq en (entsel))
  ;指定en为选取的图元
  (setq p0 (cadr en)
  ;指定p0为图元en的y点值
en (car en)
  ;指定en为en图元的x点值
)
  (setq la (cdr (assoc 8 (entget en))))
  ;指定la为除去    assoc取出dxf码 8代表图层，entget取出图元en的数据
  (setvar "clayer" la)
  ;设定系统当前层位la
  (setq pt (getpoint p0 "\n标注位置："))
  ;指定pt点为鼠标所点位置p0代表生成一个橡皮筋效果
  (setq endPara (vlax-curve-getEndParam en)
  ;指定endpara为曲线en端点参数
n 0)
  (repeat (fix endPara)
  ;重复执行的次数。fix取小数前面的整数
    (setq d (distance (vlax-curve-getPointAtParam en n) (vlax-curve-getPointAtParam en (setq n (1+ n)))))
    ;指定d为 返回距离  返回曲线上具有指定参数值的点 n为数值，指定曲线上的参数
    (command "_.rectang" pt (strcat "@" (rtos d 2) "," (rtos Height 2)))
    ;命令                点  连在一起    表示实数的d    实数高度
    (setq pt (polar pt 0 (+ d jj)))
    ;指定pt点(polar距离点 pt angle distance长度)
    )
  (setvar "osmode" osmode)
  (setvar "clayer" cla)
  (princ)
  )