autocad_lisp程序实例

tangjunasd

能不能把下面的源码改成可以记忆之前用过的数据，比如，我用这个阵列过一次，重复用的时候 不用再次输入行距或拾取行距



(defun c:aw (/ )
  (setvar "cmdecho" 0)
  (princ "\n选择要阵列的对象")
  (setq ss (ssget))
  (setq rs (getreal "\n请输入行距或右键量取距离："))
(if (= rs nil)(progn
             (setq pt1(getpoint "\n拾取第1点:"))
             (setq pt2(getpoint pt1 "\n拾取第2点:"))
             (setq rs(rtos (distance pt1 pt2) 2 2))
           )
  )
  (setq rl (getint "\n请输入行数: <6>"))
  (if (null rl)  (setq rl 6) )
  (command "_.Array" ss "" "r" rl 1 rs 1)
  (setvar "cmdecho" 1)
  (princ)
)

zjzfyz

下载下来怎么用呀，有没有人说明一下

lyxjt

下载了，对搞建筑的用处大些，对机械用处不大，不过还是谢谢楼主的无私奉献

hml203

真心告诉别人

苗苗

看了评论，我决定还是不下了