连续复制如何实现拖动预览的那种效果

magicheno

研究了好几天总算拼拼凑凑出一点效果，但是还是不是很完美，请教大神们，下面的程序能否再实现拖动预览的那种效果，目前的程序实现不了呢，研究了好久没研究出来
(defun c:tt5(/ oce ss p1 p2)
  (setq n1 10)
  (defun *error* (msg)
    (if ss (sshighlight ss 4)) ;取消亮显
    (SSSETFIRST NIL)
    (princ "error:")
    (princ msg)
  )
(setq oce(getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq ss (ssget))
   (if (< (sslength ss) n1)  (SSSETFIRST NIL SS))
   (sshighlight ss 3)
(if (null ss) (exit))
(setq p0(getpoint"\n指定基点:"))
(setq p2 p0)
(if (null p0 )(exit))
(princ "\n指定第二点或位移:")
(while t
(setq p1(getpoint p0))
(setq ent (entlast))
(if (null p1) (mosi11) (mosi12))
(setq tempss ss)
(setq ss (entbackss ent))
(setq p2 (getvar "lastpoint"))
   (vl-cmdf ".copy" ss "")
  (command)
   (command "select" ss "")
     (sshighlight ss 3)
)      
(princ)
)
(defun mosi12()
(vl-cmdf ".copy" ss "" p2 p1 )
(setq juli (distance p0 p1))
(setq  x0 (car p0))
(setq  y0 (cadr p0))
(setq p0 p1)
(setq  x1 (car p1))
(setq  y1 (cadr p1))
(setq  x (- x1 x0))
(setq  y (- y1 y0))
(setq   hudu(atan y x) )
(setq  x1 (+ x0 x))
(setq  y1 (+ y0 y))
(setq  p1 (list x1 y1 0.0))
(princ (strcat "\n指定下一点或继续位移<" (rtos juli ) ">:"))
)
(defun mosi11()
       (setq p1 (list (+ (nth 0 p0) (* juli (cos hudu)))
                      (+ (nth 1 p0) (* juli (sin hudu)))
                      (nth 2 p0)
                )
       )
(vl-cmdf ".copy" ss "" p2 p1 )
(setq juli (distance p0 p1))
(setq p0 p1)
(princ (strcat "\n指定下一点或继续位移<" (rtos juli ) ">:"))
)

langjs

我给你的程序不能用？怎么又发了一遍？

magicheno

langjs 发表于 2021-9-22 18:13
我给你的程序不能用？怎么又发了一遍？

没有重新发呢，这个是21号中午发的，在你那个之前发出来的