[求助][LISP]关于连续复制的问题想各位求救

呆呆

CAD本身的命令里面连续每次都要输入m非常麻烦 我现在编辑了一个小程序 但是达不到原来的效果 因为CAD自身的时候 在连续移动复制过程中 原目标跟着移动  而我的什么都没有 没有一个好的提示 感官上不好 请教过为还需要怎么做？
(defun c:v(/ oce ss p1 p2)
  (setq oce(getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (if (null ss) (exit))
  (setq p1(getpoint"\n指定复制基点或位移:"))
  (if (null p1 )(exit))
  (while
   (setq p2(getpoint p1 "\   指定位移的第二点或第一点的位移:"))
   (if (null p2) (progn(setvar "cmdecho" 0)(exit)))
   (command ".copy" ss  "" "m" p1 p2 "")
  )
  (princ)
)

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=11262&star=1&skin=0

BDYCAD

程序用getpoint 的涵數當然沒有顯示原目标跟着移动的．　如程序要用你的提示就在循環中例用_．copyclip和　_．pasteclip　的做法．　但這樣也沒有辦法顯是拖動線．

aaddff

(defun c:v(/ oce ss)
  (setq oce(getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (if (null ss) (exit))
   (command ".copy" ss  "" "m" pause pause)
  (princ)
)

luoyaya

aaddff发表于2003-12-25 11:58:00(defun c:v(/ oce ss)
   (setq oce(getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq ss (ssget))
   (if (null ss) (exit))
    (command ".copy"

为什么要加这两句好像没用吧?:   (setq oce(getvar "cmdecho"))
   (setvar "cmdecho" 0)

luoyaya

改一改:)

(defun f:c        (/ ss)
       (if (setq ss (ssget))
         (command ".copy" ss "" "m" pause pause)
       )
       (princ)
     )

aaddff

那是楼主以前的，不影响程序的前提下，我就没有改动了