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

趣味小代码，练习用的


[*](defun C:qxy()
[*](setvar "CMDECHO" 0)
[*](setq en (car (entsel "\n 选取一圆：")))
[*](setq cen2 (getpoint "\n 切圆圆心："))
[*](princ "\n 按任意键可转动切圆，结束...")
[*](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 按任意键可转动切圆，结束...")
(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

吴永进魔法书上的
页: [1]
查看完整版本: 趣味小代码，练习用的