1
0
初来乍到
(defun c:CCA () (setq R 10) (setq H 10) (setq N 1) (command "circle" p1 R) (while (setq p1 (getpoint "Centre:")) (command "circle" p1 R) (command "Text" "j" "M" p1 H 0 N "" ) (setq N (+N 1 )) )
使用道具 举报
63
6297
6283
后起之秀
(defun c:cca (/ r h n p1) (setq r 10 h 10 n 0 ) (while (setq p1 (getpoint "Centre:")) (command "circle" "_non" p1 r) (command "Text" "j" "M" "_non" p1 h 0 (setq n (1+ n))) ) (princ))
21
1505
1551
初露锋芒
; see tharwat :-)
4
2143
2197
限制会员
Your Code Here[/NOPARSE]
Your Code Here
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-14 03:33 , Processed in 0.424319 second(s), 60 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端