荒野孤行 发表于 2015-5-25 19:48:54

圆绕圆转动

本帖最后由 荒野孤行 于 2015-5-25 19:50 编辑

不多说，请看图片效果的演示：

;;;***转动 程序开始***
(defun c:zd (/ en)
(setvar "cmdecho" 0)
(while (progn      (setq en (entsel "\n请选择圆：\n"))
                (not (if (= en nil)
                     nil
                     (= (cdr (assoc 0 (entget (car en)))) "CIRCLE")
                     )
                )
         )
    (princ
      "\n提示：选取的不是圆或未选取任何图元,请重新选取圆！\n若需结束，请按键盘左上角的ESC键。\n"
    )
)
(setq endata (entget (car en)))
(princ "\n圆开始转动......")
**** Hidden Message *****
    (command "rotate" en2 "" cen1 2)
    (command "delay" "12")
)
(princ)
)
;;;***转动 程序结束***

看哪位有兴趣写下矩形边紧贴着圆这样环绕转动的程序吧。。。

香远益清 发表于 2019-12-27 17:09:45

no function definition: XYP-CURVELENGTH

aming001 发表于 2015-5-25 21:04:39

xuexixiexie

琴剑江山_10184 发表于 2015-5-26 07:57:20

ymcui 发表于 2015-5-26 08:07:54

学习一下,谢谢         

LIULISHENG 发表于 2015-5-26 08:28:43

必须要顶的

USER2128 发表于 2015-5-26 08:33:52

高手！高产！

ynhh 发表于 2015-5-26 09:11:41

这个以前
吴永进大师的书有上的
谢谢

qyming 发表于 2015-5-26 10:45:34

圆绕圆转动

兰伯特 发表于 2015-5-26 12:34:34

好东西!!!!

fan_zh 发表于 2015-5-26 13:23:25

感谢楼主的分享,学习一下
页: [1] 2 3 4 5 6 7
查看完整版本: 圆绕圆转动