带记忆的连续复制

--@----- · 发表于 2013-7-14 10:42:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

此代码是连续复制：  可以输入距离，也可以点两点确定距离，方向上是鼠标拖动个方向就确定（无须点两点确定）。按下空格就继续复制下去。现有个问题是要在距离的问题上增加个默认上次连续复制的距离。也就是在输入距离这个时候我空格下就是默认的上次距离了（原，输入距离，和点两点确定距离还保留，当和上次距离不一样时就能用到了）  希望大家看看能解决不，在实际画图中，这个使用的频率还是很高的。代码如下    (defun c:fz( / an dis p p1 p2 s sa ss)
  (setq ss (ssget) p ""
      p1 (getpoint "\n起点：")
      p2 (getpoint "\n第二点:" p1)
      an (angle p1 p2) dis (distance p1 p2)
  )
  (setq s (entlast) sa (ssadd))
  (command "copy" ss "" p1 p2)
  (setq s (entnext s))
  (while s (ssadd s sa)(setq s (entnext s)))
  (while (= p "" )
(setq p (getstring "\n空格键继续：")
      p1 p2 p2 (polar p1 an dis)
      ss sa
)
(setq s (entlast) sa (ssadd))
(if p
   (command "copy" ss "" p1 p2)
)

(setq s (entnext s))
(while s (ssadd s sa)(setq s (entnext s)))
  )
  (princ)
)

--@----- · 发表于 2013-7-14 10:47:51

发个这样的图片

st788796 · 发表于 2013-7-14 10:49:57

距离一样的就用 array 不是更好

--@----- · 发表于 2013-7-14 11:00:35

考虑画图的方便，快捷。array还要出现对话框设置参数什么的。默认是一样，也可以输入距离（不一样的情况下），

st788796 · 发表于 2013-7-14 11:12:28

(defun c:fz (/ an dis p p1 p2 s sa ss tf getlastss)
(defun getlastss (s / sa)
(setq sa (ssadd))
(while (setq s (entnext s)) (ssadd s sa))
sa
)
(setq ss (ssget)
p ""
p1 (getpoint "\n起点：")
p2 (getpoint "\n第二点:" p1)
an (angle p1 p2)
dis (distance p1 p2)
)
(setq s (entlast))
(command "copy" ss "" p1 p2)
(setq sa (getlastss s)
tf t
)
(while tf
(setq p (getstring (strcat "\n[E - exti]空格键继续[或输入距离]<"
(rtos dis 2 2)
">："
)
)
)
(cond
((= p "") (setq p dis))
((numberp (distof p)) (setq dis (distof p)))
(t
(setq dis nil
tf nil
)
)
)
(if dis
(progn
(setq p1 p2
p2 (polar p1 an dis)
ss sa
)
(setq s (entlast))
(if p
(command "copy" ss "" p1 p2)
)
(setq sa (getlastss s))
)
)
)
(princ)
)

(defun c:fz (/ an dis p p1 p2 s sa ss tf getlastss) 
  (defun getlastss (s / sa) 
    (setq sa (ssadd)) 
    (while (setq s (entnext s)) (ssadd s sa)) 
    sa 
  ) 
  (setq ss  (ssget) 
 p   "" 
 p1  (getpoint "\n起点：") 
 p2  (getpoint "\n第二点:" p1) 
 an  (angle p1 p2) 
 dis (distance p1 p2) 
  ) 
  (setq s (entlast)) 
  (command "copy" ss "" p1 p2) 
  (setq sa (getlastss s) 
 tf t 
  ) 
  (while tf 
    (setq p (getstring (strcat "\n[E - exti]空格键继续[或输入距离]<" 
          (rtos dis 2 2) 
          ">：" 
         ) 
     ) 
    ) 
    (cond 
      ((= p "") (setq p dis)) 
      ((numberp (distof p)) (setq dis (distof p))) 
      (t 
       (setq dis nil 
      tf  nil 
       ) 
      ) 
    ) 
    (if dis 
      (progn 
 (setq p1 p2 
       p2 (polar p1 an dis) 
       ss sa 
 ) 
 (setq s (entlast)) 
 (if p 
   (command "copy" ss "" p1 p2) 
 ) 
 (setq sa (getlastss s)) 
      ) 
    ) 
  ) 
  (princ) 
)

--@----- · 发表于 2013-7-14 11:26:53

st788796 发表于 2013-7-14 11:12

大侠这个还是不行啊，那个默认的我敲空格没反应的

--@----- · 发表于 2013-7-14 11:33:25

--@----- 发表于 2013-7-14 11:26
大侠这个还是不行啊，那个默认的我敲空格没反应的

空格键继续[或输入距离] 你的这个是在一次连续复制的过程中可以改变复制的间距的。我的意思是下次在使用这个命令会记住上次的距离的~~~~

st788796 · 发表于 2013-7-14 11:36:24

--@----- 发表于 2013-7-14 11:26
大侠这个还是不行啊，那个默认的我敲空格没反应的

如何不行?

--@----- · 发表于 2013-7-14 11:42:34

你的这是在一次使用的过程中，我想表达的是下次我在调用这个命令的时候如果距离和上次的是一样，我就不用输入距离了空格就完事了:)

ysq101 · 发表于 2013-7-14 11:56:11

st788796 发表于 2013-7-14 10:49
距离一样的就用 array 不是更好

阵列个数不多的情况下..还是楼主的方法更人性化

st788796 · 发表于 2013-7-14 11:57:55

要多按一次空格，有空再调

(defun c:fz (/ an dis p p1 p2 s sa ss tf getlastss)
(defun getlastss (s / sa)
(setq sa (ssadd))
(while (setq s (entnext s)) (ssadd s sa))
sa
)
(if (and (setq ss (ssget))
(setq p1 (getpoint "\n起点："))
)
(progn
(setq
p2 (getpoint p1
(if $discopy
(strcat "\n第二点<" (rtos $discopy 2 2) ">:")
"\n第二点: "
)
)
)
(if (= p2 nil)
(setq p2 (cadr (setq code_12 (grread (setq code_12 (grread)))))
p2 (polar p1 (angle p1 p2) $discopy)
)
)
(setq an (angle p1 p2)
dis (distance p1 p2)
$discopy dis
)
(setq s (entlast))
(command "copy" ss "" p1 p2)
(setq sa (getlastss s)
tf t
)
(while tf
(setq
p (getstring (strcat "\n[E - exti]空格键继续[或输入距离]<"
(rtos dis 2 2)
">："
)
)
)
(cond
((= p "") (setq p dis))
((numberp (distof p)) (setq dis (distof p) $discopy dis))
(t
(setq dis nil
tf nil
)
)
)
(if dis
(progn
(setq p1 p2
p2 (polar p1 an dis)
ss sa
)
(setq s (entlast))
(if p
(command "copy" ss "" p1 p2)
)
(setq sa (getlastss s))
)
)
)
)
)
(princ)
)

(defun c:fz (/ an dis p p1 p2 s sa ss tf getlastss) 
  (defun getlastss (s / sa) 
    (setq sa (ssadd)) 
    (while (setq s (entnext s)) (ssadd s sa)) 
    sa 
  ) 
  (if (and (setq ss (ssget)) 
    (setq p1 (getpoint "\n起点：")) 
      ) 
    (progn 
      (setq 
 p2 (getpoint p1 
       (if $discopy 
         (strcat "\n第二点<" (rtos $discopy 2 2) ">:") 
         "\n第二点: " 
       ) 
    ) 
      ) 
      (if (= p2 nil) 
 (setq p2 (cadr (setq code_12 (grread (setq code_12 (grread))))) 
       p2 (polar p1 (angle p1 p2) $discopy) 
 ) 
      ) 
      (setq an (angle p1 p2) 
     dis (distance p1 p2) 
     $discopy dis 
      ) 
      (setq s (entlast)) 
      (command "copy" ss "" p1 p2) 
      (setq sa (getlastss s) 
     tf t 
      ) 
      (while tf 
 (setq 
   p (getstring (strcat "\n[E - exti]空格键继续[或输入距离]<" 
          (rtos dis 2 2) 
          ">：" 
         ) 
     ) 
 ) 
 (cond 
   ((= p "") (setq p dis)) 
   ((numberp (distof p)) (setq dis (distof p) $discopy dis)) 
   (t 
    (setq dis nil 
   tf  nil 
    ) 
   ) 
 ) 
 (if dis 
   (progn 
     (setq p1 p2 
    p2 (polar p1 an dis) 
    ss sa 
     ) 
     (setq s (entlast)) 
     (if p 
       (command "copy" ss "" p1 p2) 
     ) 
     (setq sa (getlastss s)) 
   ) 
 ) 
      ) 
    ) 
  ) 
  (princ) 
)

--@----- · 发表于 2013-7-14 12:02:39

ysq101 发表于 2013-7-14 11:56
阵列个数不多的情况下..还是楼主的方法更人性化

如果用这个命令出现这个对话框然后在去选择物体，就很麻烦了。所以网上很多人需要阵列的或者连续复制的方法了，出发点是考虑更快点，呵呵

ysq101 · 发表于 2013-7-14 12:08:15

--@----- 发表于 2013-7-14 11:42
你的这是在一次使用的过程中，我想表达的是下次我在调用这个命令的时候如果距离和上次的是一样，我就不用 ...

你只想让COPY复制距离有个记忆功能是吗?>?

--@----- · 发表于 2013-7-14 12:10:05

st788796 发表于 2013-7-14 11:12

大侠你的代码：方向和上一次一样的时候才可以默认上次的距离，比如上次是竖直方向的连续复制，下次要是水平方向的连续复制就不行了。加油大侠，呵呵

ysq101 · 发表于 2013-7-14 12:11:02

st788796 发表于 2013-7-14 11:57
要多按一次空格，有空再调

而且退出也不够人性化！！！要按E键

账号		自动登录	找回密码
密码			立即注册

[求助] 带记忆的连续复制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评

点评

点评