圆绕圆转动

荒野孤行 · 发表于 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圆开始转动......")

  (setq cen2 (getpoint "\n指定要转动的圆的圆心："))
  (setq cen1 (cdr (assoc 10 endata)))
  (setq rr1 (cdr (assoc 40 endata)))
  (setq dd (distance cen1 cen2))
  (setq rr2 (abs (- dd rr1)))
  (command "color" "GREEN")
  (command "donut" 0 (* 2 rr2) cen2 "")
  (setq en2 (entlast))
  (command "color" "Bylayer")
  (while T

(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

xuexi xiexie

琴剑江山_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

感谢楼主的分享,学习一下

账号		自动登录	找回密码
密码			注册

[源码] 圆绕圆转动

本帖子中包含更多资源

评分

相关帖子