趣味小代码，练习用的

k1nger · 发表于 2021-11-12 10:54:07

(defun C:qxy()
(setvar "CMDECHO" 0)
(setq en (car (entsel "\n 选取一圆：")))
(setq cen2 (getpoint "\n 切圆圆心："))
(princ "\n 按任意键可转动切圆，[Enter]结束...")
(setq endata (entget en))
(setq cen1 (cdr (assoc 10 endata)))
(setq rr1 (cdr (assoc 40 endata)))
(setq dd (distance cen1 cen2))
(setq rr2 (abs (- dd rr1)))
(command "CIRCLE" cen2 rr2)
(setq en2 (entlast))
(setq k 1)
(while (- k 13)
(command "ROTATE" en2 "" cen1 10)
(setq k (cadr (grread)))
)
(prin1)
)

xj6019 · 发表于 2021-11-12 11:52:04

会玩不过(while (- k 13)这里是什么意思，道行太浅看不懂

tigcat · 发表于 2021-11-12 23:59:13

画了一个圆,再画一个圆.没看到好玩的地方啊

k1nger · 发表于 2021-11-13 13:34:08

tigcat 发表于 2021-11-12 23:59
画了一个圆,再画一个圆.没看到好玩的地方啊

随便按着一个键不松手，就有奇迹出现了

tigcat · 发表于 2021-11-13 22:26:57

哈哈,成功了,开始是打开方式不对

xj6019 · 发表于 2021-11-14 18:47:39

还是这个样好玩

(defun C:qxy()
  (setvar "CMDECHO" 0)
  (setq en (car (entsel "\n 选取一圆：")))
  (setq cen2 (getpoint "\n 切圆圆心："))
  (princ "\n 按任意键可转动切圆，[Enter]结束...")
  (setq endata (entget en))
  (setq cen1 (cdr (assoc 10 endata)))
  (setq rr1 (cdr (assoc 40 endata)))
  (setq dd (distance cen1 cen2))
  (setq rr2 (abs (- dd rr1)))
  (command "CIRCLE" cen2 rr2)
  (setq en2 (entlast))
  (repeat 360
(command "ROTATE" en2 "" cen1 1)
  )
  (prin1)
)

tigcat · 发表于 2021-11-14 19:49:34

都太狠了，cad被你们玩坏了

轮回 · 发表于 2021-11-30 13:45:37

吴永进魔法书上的

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