CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1802|回复: 0

[求助] CAD VBA求直线两点之间的中点的程序出错 求助高手来帮帮我……

[复制链接]
发表于 2012-5-23 14:15 | 显示全部楼层 |阅读模式
/ R+ b. c# ^; H. \0 y, H  I3 L8 S
: f3 S6 S. v  {. k4 b$ e
其实我是想设置一个新的UCS
" U# H0 x* D3 D/ H程序如下 坐标系的原点为ptcenter1  因为一直报错我想做两个点,为X轴和Y轴中点,结果出现报错0 r0 p, u9 e" E2 y( p
8 V/ G, ^# Y+ T$ \, W# H* }. |

) u: K; {4 |6 I/ ~$ k5 }: b, G" i* u8 m  Q, u
我感觉是
" l3 G! u7 ]- V1 A0 u9 \TempPointUcsX1 = LineUcsX.StartPoint0 X& `8 R0 p: U- G- |
TempPointUcsX2 = LineUcsX.EndPoint
5 t$ K! _& u2 b  |9 f( N0 QXAxisPoint(0) = (TempPointUcsX1(0) + TempPointUcsX2(0)) / 2. L! \0 J& j5 Q. V& @' S; F0 G
2 n/ ^" P0 T) Q; u! H
这里有错,这是求中点, 两个线的夹角是90度应该没错。
# Q8 {1 C0 K. {* S. e0 @/ O. v- v5 T求助高手来帮忙看看呀 555555

本帖子中包含更多资源

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

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-5-2 21:18

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

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