明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3143|回复: 4

新年了,灌水休息:一个简单画圆程序

[复制链接]
发表于 2013-1-1 15:13 | 显示全部楼层 |阅读模式
(defun c:画圆 (/ 圆心位置 圆的半径 )
       (setq 圆心位置 (GETPOINT "\n指定圆心位置 : "))
       (setq 圆的半径 (getreal "\n指定圆的半径 : "))
       (setq 圆的半径 (+ 圆的半径 20))
       (COMMAND "circle" 圆心位置 圆的半径)
  (princ)
)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

getreal改成getdist更好些,既可以用键盘输入数据又可以用鼠标点选两点输入。  发表于 2013-1-1 19:01
发表于 2013-1-1 15:24 | 显示全部楼层
写得不错,简单易懂!
就是不知道运行时,输入汉字命令是不是有点麻烦
 楼主| 发表于 2013-1-1 16:00 | 显示全部楼层
输入汉字命令,还是很方便,哈哈,习惯就好。而且,文件保存时就用中文名,找起来更加方便。
发表于 2013-7-9 14:35 | 显示全部楼层
我也是尽量用汉字作变量及名称的,这方面是志趣相投
发表于 2013-7-12 12:43 | 显示全部楼层
汉字也能这样啊
太怪了,会不会不灵
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-27 13:12 , Processed in 3.589241 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表