连续copy和旋转copy，如何编程？

岁月无身

由于工作上的需要，绘图工作经常要使用copy命令（废话），当我们copy时，先选取几个的元素，然后确定，选基准点，然后到目的点，确定，就完成了。而我们需要再copy这些元素的时候又得重新选元素和基准点，能否编个程，用“lc”命令来实现copy完一组之后接着点第二个目的点实现连续copy呢？旋转copy，就是将copy命令和旋转命令合在一起，操作过程如下：选元素，选基准点，输入角度，完成。没有这个命令我的租做法是先copy出来，然后再旋转到我需要的角度，有点麻烦。希望大家能交流交流。

tukuitk

连续copy时，输入M就可。
实际上，专业工具上都有！

BDYCAD

依二樓的意思的話用夾持點也能實現.
可樓主的意思有點象在重復執行COPY指令. 但是在操作的過程中可以ROTATE或MIRROR的. 這樣的要用程序來解決. 我好象在什麼地方見過可以這樣做的. 但是我用LISP程序也做不出來. 也希望做出的大俠給我一個用用. 呵呵

meflying

copy并旋转，只能是一次拷贝

2. 
   
3. (defun c:rc( / ang ent ss)
   
4.   (setq ang (getreal "输入角度:"))
   
5.   (setq ent (entlast))
   
6.   (setvar "cmdecho" 1)
   
7.   (command "_.copy" pause pause pause pause)
   
8.   (setq ss (ssadd))
   
9.   (while (setq ent (entnext ent))
   
10.     (ssadd ent ss)
    
11.   )
    
12.   (setvar "cmdecho" 0)
    
13.   (command "_.rotate" ss "" (getvar "lastpoint") ang)
    
14.   (princ)
    
15. )

<br /> (defun c:rc( / ang ent ss)<br />   (setq ang (getreal "输入角度:"))<br />   (setq ent (entlast))<br />   (setvar "cmdecho" 1)<br />   (command "_.copy" pause pause pause pause)<br />   (setq ss (ssadd))<br />   (while (setq ent (entnext ent))<br />     (ssadd ent ss)<br />   )<br />   (setvar "cmdecho" 0)<br />   (command "_.rotate" ss "" (getvar "lastpoint") ang)<br />   (princ)<br /> )

BDYCAD

to meflying
,                                 對這個程序我的要求是這樣的.
1. 可做到沒有確定復制定位時按一個鍵盤鍵(如 R 就向右轉 L就向左轉)嗎?
2. 另外執行程序選了圖素再確定起點后如能象插入塊時的效果就很好. (這樣做時程序把選到的圖素復制到剪切板, 再貼出來)
3, 可以在進行復制未確定時, 要還是可以再更改復制的基點. 真的就好了, 呵呵
4. 確定退出程序啦

mccad

没有做出错检查，按取消键退出

2. ;;复制旋转对象
   
3. (defun c:cr ( / ent1 ent pnt )
   
4.   (setq ent (ssget))
   
5.   (setq pnt (getpoint "\n请选择基点:"))
   
6.   (while t
   
7.     (setq ent1 (entlast))
   
8.     (setvar "cmdecho" 0)
   
9.     (command "copy" ent "" pnt "@" )
   
10.     (setq ss (ssadd ))
    
11.     (while (setq ent1 (entnext ent1))
    
12.       (ssadd ent1 ss)
    
13.     )
    
14.     (command "rotate" ss "" pnt)
    
15.     (setvar "cmdecho" 1)
    
16.     (princ "\n指定旋转角度：")
    
17.     (command pause)
    
18.   )
    
19.   (princ)
    
20. )

;;复制旋转对象<br /> (defun c:cr ( / ent1 ent pnt )<br />   (setq ent (ssget))<br />   (setq pnt (getpoint "\n请选择基点:"))<br />   (while t<br />     (setq ent1 (entlast))<br />     (setvar "cmdecho" 0)<br />     (command "copy" ent "" pnt "@" )<br />     (setq ss (ssadd ))<br />     (while (setq ent1 (entnext ent1))<br />       (ssadd ent1 ss)<br />     )<br />     (command "rotate" ss "" pnt)<br />     (setvar "cmdecho" 1)<br />     (princ "\n指定旋转角度：")<br />     (command pause)<br />   )<br />   (princ)<br /> )

BDYCAD

樓上這個, 只能在原地打轉地復制, 呵呵.

tukuitk

(defun c:coro (/ ss e0 ss2 e1)
  (setq ss (ssget))
  (setq e0 (entlast))
  (vl-cmdf "copy" ss "" pause pause)
  (setq ss2 (ssadd))
  (setq e1 (entnext e0))
  (while e1
    (ssadd e1 ss2)
    (setq e1 (entnext e1))
  )
  (vl-cmdf "rotate" ss2 "" pause pause)
)

spring

(defun ai_error        (errmsg)
  (if errmsg
    '("console break"
      "Function Cancelled"
     )
    (princ (strcat "\nError: " errmsg))
  )
  (princ)
)
(defun c:cr ()
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq        old_error *error*
        *error*        ai_error               
  )
  (setq ss (ssget))
  (if ss
    (progn
      (command "copy" ss "" "0,0" "0,0")
      (command "rotate" ss "")
    )
  )
  (setvar "cmdecho" cm)
  (setq *error* old_error)
  (princ)
)

Ea

楼主要的是某些软件中的自由复制