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

岁月无身 · 发表于 2003-11-14 12:42:00

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

tukuitk · 发表于 2003-11-14 13:03:00

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

BDYCAD · 发表于 2003-11-14 13:22:00

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

meflying · 发表于 2003-11-14 13:41:00

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

copy


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

BDYCAD · 发表于 2003-11-14 13:56:00

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

mccad · 发表于 2003-11-14 15:57:00

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

copy


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

BDYCAD · 发表于 2003-11-14 16:51:00

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

tukuitk · 发表于 2003-11-14 16:54:00

(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 · 发表于 2003-11-14 23:22:00

(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)
)

BDYCAD · 发表于 2003-11-15 01:12:00

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

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

发表回复

精选推荐