高手!Help me!!!

mcxiangxin · 发表于 2008-1-9 21:17

哪位高手可以教我编一个像画圆命令一样.输入C后,既可以直接点一个中心点,进行圆心+半径画圆,也可以输入关键字来选择其他方式画圆.

是不是将getpoint getword结合起来用呀?如果有类似的程序原代码,可不可以发一个给我.mcxiangxin@163.com非常感谢!!!

jaminth · 发表于 2008-1-9 22:26

你走火入魔了!

本来CAD的画圆命令就已经有可以选择其他方式画圆,你想来想去会把本就简单的问题想得太复杂了!

yy5heng · 发表于 2008-1-10 00:01

就是，这个是基本功能呀。

不会还想编个直线命令吧？

mcxiangxin · 发表于 2008-1-10 18:28

你们理解错了呀.我意思是与之类似的命令如何编写

ZZXXQQ · 发表于 2008-1-10 19:22

看看initget函数。

mcxiangxin · 发表于 2008-1-11 19:15

有没有真正的高手呀?谁能教一下我呀

ZZXXQQ · 发表于 2008-1-11 20:03

游客，本帖隐藏的内容需要发帖数高于 4 才可浏览，你当前发帖数只有 0

mcxiangxin · 发表于 2008-1-13 09:47

谢谢楼上的高手指点.我改了一下后发现这样更合乎我想要的结果

(defun c:cc ()
(initget 1 "D 2p 3p Ttr")
(if (setq pc (getpoint "\nCIRCLE Diameter/3p/2p/Ttr/<Center point> ;"))
(cond
   ((= pc "D") (command ".CIRCLE" pause "D"))
   ((= pc "2p") (command ".CIRCLE" "2P"))
   ((= pc "3p") (command ".CIRCLE" "3P" ))
   ((= pc "Ttr") (command ".CIRCLE" "TTR"))
   ((listp pc) (command ".CIRCLE" pc PAUSE))
)
)
(princ)
)

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