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

BDYCAD

To , 9樓,
                     你的(check)涵數不知跑哪了 ??

meflying

to BDYCAD：你尽挑别人的东西，你到是也写一个上来啊

龙龙仔

對呀,星期一我也貼一個
(defun C:CR1 (/ HOLDOSMODE SS SS1 PT1 PT2 ROT MARK)
  (arxload "ACETUTIL.ARX" NIL)
  (defun RTD (ANG) (* ANG (/ 180 pi)))
  (setq HOLDOSMODE (getvar "osmode"))
  (if (setq SS1 (ssget))
    (progn
      (initget 1)
      (setq PT1 (getpoint "\n指定基准点: "))
      ;;acet-ss-drag-move缺点:
      ;;Normally returns the selected point, but will honor "initget"
      ;;settings and can return arbitrary text or keywords.
      ;;Returns nil if the dragging operation is aborted.
      (while (setq PT2 (acet-ss-drag-move
                         SS1
                         PT1
                         "\n指定位移的第二点: "
                         t
                       )
             )
        (setvar "osmode" 0)
        (setq MARK (entlast))
        (command "_.copy" SS1 "" PT1 PT2)
        (setq SS (ssadd))
        (while (setq MARK (entnext MARK))
          (ssadd MARK SS)
        )
        (setvar "osmode" HOLDOSMODE)
        (if (setq ROT (acet-ss-drag-rotate
                        SS
                        PT2
                        "\n指定旋转角度: "
                        t
                      )
            )
          (setq ROT (RTD ROT))
          (setq ROT 0.0)
        )
        (command "_.ROTATE" SS "" PT2 ROT)
      )
    )
  )
  (princ)
)

大虫子

叫个朋友啊

spring

BDYCAD发表于2003-11-15 8:23:00To , 9樓,
                      你的(check)涵數不知跑哪了 ??

不好意思,把那個去掉吧

Suyj_xia

呵呵，我的好象简单了点
(defun c:cr (/ ss)
  (setq ss (ssget))
  (if ss
    (progn
      (command "copy" ss "" (list 0 0) (list 0 0))
      (command "rotate" ss "")
      )
    )
  (princ)
)


至于复制以后粘贴多条吗，我认为用《带基点复制+粘贴》很好啊

岁月无身

关于旋转复制，能不能加一项这样的功能，就是当我选择了基点的时候，提示输入角度，能不能在这里并列的加一句，提示”或者选择参考点“，点了以后又提示”到另外一个点“，也就说我要有两种方式来控制我要旋转的角度，一种是直接输入角度，第二种是通过选一点和另外一点来控制（就象复制样的，通过点的相对位置来实现整个图元的位置变化），

johnhans

AUTOCAD14版以上版本，完全安装，在菜单项里有一项：“特殊工具”，里面有一个功能可以实现搂主的要求。

meflying

是EXPRESS TOOLS工具，只有2000版完全安装才有，以上版本需另外安装

岁月无身

我装了这个啊，命令是什么啊？怎么没有发现