[求助]：取直线的中点，以直线为直径画圆

abcokzb · 发表于 2005-11-9 11:24:40

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

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

×

我想问一下我在CAD2004中画一条直线，我想以这条线为直径画一个圆。直线的两个端点是随意取的。长度不知道，我该怎么画，怎么找到这条直线的中点，以及它的长度？谢谢各位了

小不点儿 · 发表于 2005-11-9 13:15:31

工具---草图设置，打开中点捕捉，

nxwjb · 发表于 2005-11-9 22:59:04

直接在下面状态栏里在"对象捕捉"处右键,按"设置",也可出现"草图设置"对话框,如果模板里没设置捕捉点,也可按"F3"一键即可打开对话框

贱人 · 发表于 2005-11-10 13:27:02

命令: c
CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]: 2p
指定圆直径的第一个端点:
指定圆直径的第二个端点:

yy5heng · 发表于 2005-11-10 23:40:36

不知道楼主是要编程完成还是手工解决这个问题？若为后者，上面的解答很全了。

scmhw · 发表于 2005-11-15 22:16:13

我想他是想编程完成吧,请各位高手指教

jevonlee_28 · 发表于 2005-11-16 08:36:42

用菜单的命令，方便一点

等你爱我 · 发表于 2005-11-16 09:08:40

这应该不必用到程序吧？随便画一下就出来的，用不了几秒钟

ss1025 · 发表于 2005-11-21 23:39:27

(DEFUN C:SS1025(/)
(setq a1 (ssget '((0 . "LINE"))))
(SETQ N (SSLENGTH A1))
(SETQ M 0)
(REPEAT N
(SETQ A2 (SSNAME A1 M))
(SETQ PT1 (CDR (ASSOC 10 (ENTGET A2))))
(SETQ PT2(CDR (ASSOC 11 (ENTGET A2))))
(SETQ ANG (ANGLE PT1 PT2))
(SETQ DS (/ (DISTANCE PT1 PT2) 2))
(SETQ PT3 (POLAR PT1 ANG DS))
(COMMADN "CIRCLE" PT3 DS "")
(SETQ M (+ 1 M))
)
)
偶现用的机子上无cad,因此本程序未调试，不过基本上就这样了，如果有问题，自已调一下就ok了。程序名自己改一个吧。呵呵。

linjian260 · 发表于 2014-8-1 14:51:40

COMMADN改为command

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

[求助]：取直线的中点，以直线为直径画圆

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

相关帖子