村夫 发表于 2013-1-1 15:13:42

新年了，灌水休息：一个简单画圆程序

(defun c:画圆 (/ 圆心位置 圆的半径 )
       (setq 圆心位置 (GETPOINT "\n指定圆心位置 : "))
       (setq 圆的半径 (getreal "\n指定圆的半径 : "))
       (setq 圆的半径 (+ 圆的半径 20))
       (COMMAND "circle" 圆心位置 圆的半径)
(princ)
)

zyhandw 发表于 2013-1-1 15:24:37

写得不错，简单易懂！
就是不知道运行时，输入汉字命令是不是有点麻烦

村夫 发表于 2013-1-1 16:00:27

输入汉字命令，还是很方便，哈哈，习惯就好。而且，文件保存时就用中文名，找起来更加方便。

清风明月名字 发表于 2013-7-9 14:35:09

我也是尽量用汉字作变量及名称的，这方面是志趣相投

ynhh 发表于 2013-7-12 12:43:26

汉字也能这样啊
太怪了,会不会不灵
页: [1]
查看完整版本: 新年了，灌水休息：一个简单画圆程序