.....................................

贱人

.....................................

andyding

大侠,我有一个,好像符合你的要求.
希望能和你交个朋友!

ss1025

二楼的朋友，你的这个是在坛子里找的吧，还是达不到楼主的要求啊。
楼主先试试偶的这个吧，早上匆忙写的，不是很完善。
(defun c:rc (/ os pt1 pt2 s1 s2)
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (princ "\n请选择要旋转复制的目标:")
  (setq s1 (ssget))
  (setq pt1 (getpoint "\n请指定基点"))
  (setq pt2 (getpoint "\n请指定目标点"))
  (command "copy" s1 "" pt1 pt2)
  (setq s2 (entlast))
  (command "rotate" s2 "" pt2 pause)
  (setvar "cmdecho" 1)
  (setvar "osmode" os)
  (princ)
)

ljpnb

楼上的程序你自己有没有试过，好象不行吧，而且问题有好多
1。(setvar "osmode" 0)这句不应该有，有时候选取基点是需要捕捉，加了这句结果什么捕捉都没了
2。(setq s2 (entlast))这句你知道运行结果是怎么样，如果选择集是由好几个实体组成的，那么这句执行结果只会选择最后一个实体，而不是一组实体集。

这是我根据楼上的程序修改过的
(defun c:rc (/ os pt1 pt2 s1 s2)
  (setvar "cmdecho" 0)
  (princ "\n请选择要旋转复制的目标:")
  (setq s1 (ssget))
  (setq pt1 (getpoint "\n请指定基点"))
  (setq pt2 (getpoint "\n请指定目标点"))
  (if (and (/= pt1 nil) (/= pt2 nil))
    (progn
      (setq l (sslength s1))
      (setq i 0)
      (setq s2 (ssadd))
      (command "undo" "g")
      (repeat l
        (setq ent (ssname s1 i))
        (command "copy" ent "" pt1 pt2)
        (setq ent1 (entlast))
        (ssadd ent1 s2)
        (setq i (1+ i))

      )
      (setq ang (getangle pt2 "\n请输入一个旋转角度 :"))
      (if (/= ang nil)
        (progn
          (setq ang (/ (* ang 180) pi))
          (setq l (sslength s2))
          (setq i 0)
          (repeat l
            (setq ent (ssname s2 i))
            (command "rotate" ent "" pt2 ang)
            (setq i (1+ i))
          )
          (command "undo" "e")
        )
        (command "undo" "e")
      )
    )
  )

(setvar "cmdecho" 1)
  (princ)
)

贱人

.....................................

ljpnb

楼上所说的问题，除了动态显示外，其它问题已解决，至于动态显示问题不好解决，我想程序只要运行结果对就行了，难到过程也这么看好吗？不明白。。。。。

ss1025

呵呵，那天早上我弄的太急了，没有细看。其实，我也调试了，只不过，没试过多选。
我再发一次。
(defun c:ry (/ os pt1 pt2 ss n m s1 s2 s3)
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (princ "\n请选择要旋转复制的目标:")
  (setq s1 (ssget))
  (setq pt1 (getpoint "\n请指定基点"))
  (setq pt2 (getpoint "\n请指定目标点"))
  (setq m 0)
  (setq ss (ssadd))
  (setq n (sslength s1))
  (repeat n
    (setq s2 (ssname s1 m))
    (command "copy" s2 "" pt1 pt2)
    (setq s3 (entlast))
    (setq ss (ssadd s3 ss))
    (setq m (+ 1 m))
  )  
  (command "rotate" ss "" pt2 pause)
  (setvar "cmdecho" 1)  
  (command "undo" "e")
  (princ)
)

至于拷贝的时候，动态显示，我也不会。只好请高人再指点了。请楼主找eachy斑竹，或xyp1964长老吧。

贱人

.....................................

xyp1964

关键：(getvar "lastpoint")
[php]
;;;复制+旋转
(defun c:test ()
  (command "undo" "be")
  (princ "\n请选择要旋转复制的目标:")
  (while (not (setq s1 (ssget))))
  (setq pt1 (getpoint "\n请指定基点 : "))
  (princ "\n请指定目标点 : ")
  (command "copy" s1 "" pt1 pause)
  (setq pt2 (getvar "lastpoint"))
  (setq ss2 (ssget "X"))
  (command "select" ss2 "r" ss1 "")
  (setq ss3 (ssget "P"))
  (command "rotate" ss3 "" pt2 pause)
  (command "undo" "e")
  (princ)
)
[/php]

贱人

.....................................

whcdy

９楼的好像有问题噢，旋转是把我整个图纸都转动了，不是我的选择集，而且中途报错！

我搜集的一个旋转复制小程序，更简洁！

(defun c:rc (/ ent)

(princ "

请选择旋转复制物体.")

(setq ent (ssget))

(command "copy" ent "" "@""@")

(command "rotate" ent "")

)

ljpnb

11楼提供的程序用是比较好用，但好象不完全符合楼主的本意。不过这个程序确实是比较简捷明了，而且也确实是复制+旋转。

xyp1964

少了一句：(setq ss1 (ssget "X"))[php]
;;;复制+旋转
(defun c:test ()
  (command "undo" "be")
  (setq ss1 (ssget "X"))
  (princ "\n请选择要旋转复制的目标:")
  (while (not (setq s1 (ssget))))
  (setq pt1 (getpoint "\n请指定基点 : "))
  (princ "\n请指定目标点 : ")
  (command "copy" s1 "" pt1 pause)
  (setq pt2 (getvar "lastpoint"))
  (setq ss2 (ssget "X"))
  (command "select" ss2 "r" ss1 "")
  (setq ss3 (ssget "P"))
  (command "rotate" ss3 "" pt2 pause)
  (command "undo" "e")
  (princ)
)
[/php]

贱人

.....................................

only_wayne

要旋转还要拷贝，哪要什么LISP啊！
用阵列命令不就行了吗？？？
大家都在玩摆啊：）