[求助]：有没有办法编一程序,或用自定仪快即键的放式把画俩点圆用一键启动

xiu19791981 · 发表于 2005-7-29 10:29:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有没有办法编一程序,或用自定仪快即键的放式把画俩点圆用一键启动

xcajcj · 发表于 2005-7-29 13:00:45

试试这个如何。

;;两点画圆
(defun C:Y ()
(setvar "cmdecho" 0)
(princ "\n★两点画圆★")
(princ "\n指定圆半径的第一个端点:")
(command ".circle" pause)
(princ "\n指定圆半径的第二个端点:")
(command pause)
(princ)
);end (defun C:Y

xiu19791981 · 发表于 2005-8-2 09:19:45

要是改成直径要怎么修改这个程序呢

xcajcj · 发表于 2005-8-2 12:17:47

最初由 xiu19791981 发布
[B]要是改成直径要怎么修改这个程序呢 [/B]

;;两点画圆
(defun C:Y ()
(setvar "cmdecho" 0)
(princ "\n★两点画圆★")
(princ "\n指定圆的圆心:")
(command ".circle" pause)
(princ "\n指定圆的直径:")
(command "d" pause)
(princ)
);end (defun C:Y

xiu19791981 · 发表于 2005-8-5 08:25:27

非常感谢xcajcj 的不厌其烦的回复,谢了,

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

[求助]：有没有办法编一程序,或用自定仪快即键的放式把画俩点圆用一键启动

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子