xyp1964 发表于 2013-9-6 23:08:46


(defun c:tt ()
(princ "\n选择实体: ")
(setq        ss(ssget)
        pc1 (getpoint "\n公转中心点: ")
        ang (UREAL 7 "" "角度" ang)
        int (Uint 7 "" "阵列数量" int)
        i   0
)
(repeat int
    (setq s0 (entlast)
          i(1+ i)
    )
    (xyp-copy ss)
    (setq ss1 (xyp-SSelEntnext s0))
    (xyp-rotate ss1 pc1 (* ang i))
    (xyp-rotate ss1 (xyp-9pt ss1 5) (* ang i 2))
)
(princ)
)

xyp1964 发表于 2013-9-8 09:19:07


ZZXXQQ 发表于 2013-9-8 09:45:17

crazymiss 发表于 2013-9-6 08:28 static/image/common/back.gif
试过了，不行。过程我贴上来了，您再给看看！~

6楼已改，再试试。

crazymiss 发表于 2013-9-9 14:25:33

xyp1964 发表于 2013-9-8 09:19 static/image/common/back.gif


大神你这怎么做出来的···

crazymiss 发表于 2013-9-9 16:10:33

ZZXXQQ 发表于 2013-9-8 09:45 static/image/common/back.gif
6楼已改，再试试。

谢谢！！ 做出来了·· 虽然细节上还有问题 ，但基本上已经可以实现。万分感谢！
页: 1 [2]
查看完整版本: 求自转公转LISP