ÔõÑùÅÐ¶ÏÒ»¸öµãÔÚÒ»ÌõÖ±ÏßÉÏ£¨vba£©

armylee ·¢±íÓÚ 2005-3-30 20:03:00

fanqinwei ·¢±íÓÚ 2005-6-11 14:27:00

´¹¾àÎªÁã

mikewolf2k ·¢±íÓÚ 2005-6-11 17:13:00

ÅÐ¶Ï¸ÃÖ±ÏßÓëÖ±ÏßÄ³¶ËµãµÄÐ±ÂÊÓëÖ±ÏßÐ±ÂÊÊÇ·ñÏàµÈ¡£

torcky ·¢±íÓÚ 2005-8-15 20:06:00

¸Ãµãµ½Ö±ÏßÁ½¶ËµãµÄ¾àÀëºÍµÈÓÚÖ±ÏßµÄ³¤¶È

matrix ·¢±íÓÚ 2006-4-23 14:52:00

¿ÉÒÔÓÃVBAÊµÏÖ:
µÃµ½Æðµã:line.startpoint
µÃµ½¶Ëµã:line.endpoint
È»ºóÔÙÕÕÈýÂ¥µÄ·½·¨£¬Èý¸öµãÈ·¶¨Á½¸öÐ±ÂÊ£¬ÏàµÈ¾ÍÔÚÖ±ÏßÉÏ£¬·ñÔò£¬¾Í·µ»ØfalseÖµ

zxj_76 ·¢±íÓÚ 2006-4-28 16:57:00

ÈýÂ¥µÄ·½·¨¿ÉÒÔÅÐ¶ÏµãÊÇ·ñÔÚÏß¶Î»òÏß¶ÎµÄÑÓ³¤ÏßÉÏ£»
ËÄÂ¥µÄ·½·¨¿ÉÒÔÅÐ¶ÏµãÊÇ·ñÔÚÏß¶ÎÉÏ¡£
Èç¹ûÈýÂ¥µÄÅÐ¶Ï³ÉÁ¢¶øËÄÂ¥µÄÅÐ¶Ï²»³ÉÁ¢ÔòµãÔÚÏß¶ÎµÄÑÓ³¤ÏßÉÏ¡£

chffsmc ·¢±íÓÚ 2007-4-22 14:02:00

ËÄÂ¥ok

dengqiaqia ·¢±íÓÚ 2007-6-10 00:57:00

¼ÆËãÎó²îºÜ·³ÈË£¬ÀÏÊÇÒªÅÐ¶Ï

jkbanana ·¢±íÓÚ 2007-6-17 12:11:00

±¾Ìû×îºóÓÉ ×÷Õß ÓÚ 2007-6-17 13:41:10 ±à¼ ÉèÖ±ÏßµÄÁ½¶Ëµã·Ö±ðAºÍB, ÅÐ¶ÏÈÎÒâµãPÔÚÖ±ÏßABÉÏ·ñ?½â:    ÒÔÖ±ÏßµÄÒ»¶ËµãAÎªÆðµã, ÁíÒ»¶ËµãB ºÍÈÎÒâµãPÎªÖÕµãµÄÊ¸Á¿·Ö±ðÉèÎªV0ºÍV1. ÈÎÒâµãP    µãºÍÔÚÖ±ÏßABÉÏµÄ»°,Íâ»ý(V0¡ÁV1)µÄ´óÐ¡Îª0.¼´£º¡¡¡¡||V0¡ÁV1|| £½0¡¡---¡¡ÈÎÒâµãP ÔÚÖ±ÏßABÉÏ    ||V0¡ÁV1|| <>0¡¡---¡¡ÈÎÒâµãP²»ÔÚÖ±ÏßABÉÏÊ½ÖÐ£º    ¡ÁÎªÊ¸Á¿µÄÍâ»ýÔËËã·û.************************************************¾ßÌå¼ÆËãÈçÏÂ£ºÉèÖ±ÏßµÄ¶Ëµã×ø±êÎª    A = (A(0), A(1), A(2) )T, B = (B(0), B(1), B(2) )T, ÈÎÒâµãP = (P(0), P(1), P(2) )TÔò, Ê¸Á¿     V0£½B ¨C A, V0µÄ³É·ÖÎª£ºV0(i) = B(i) ¨C A(i ), i=0,2     V1£½P ¨C A, V1µÄ³É·ÖÎª£º V1(i) = P(i) ¨C A(i ), i=0,2ÓÖÉèÊ¸Á¿µÄÍâ»ýV = V0¡ÁV1, V»¹ÊÇÊ¸Á¿.     V = V0¡ÁV1     VµÄ³É·ÖÈçÏÂ,        V(0)= V0 (1) V1 (2) ¨C  V0 (2) V1 (1)        V(1)= V0 (2) V1 (0) ¨C  V0 (0) V1 (2)        V(2)= V0 (0) V1 (1) ¨C  V0 (1) V1 (0)Ôò, ||V0¡ÁV1||= sqr(V(0)^2+ V(1)^2+ V(2)^2)È»ºóÓÃÉÏÃæµÄ½áÂÛ¼´¿ÉÅÐ¶Ï³öµãPÔÚÖ±ÏßABÉÏ·ñ.ÒÔÉÏ¼ÆËãÖÐÖ»Òª½øÐÐ¼òµ¥µÄ¼Ó,¼õ,³Ë,³Ë·½,¿ª·½ÔËËã¼´¿É.<span lang="EN-US" style="FONT-SIZE: 10.5pt; FONT-FAMILY: "Times New Roman"; mso-fareast-language: ZH-CN; mso-fareast-font-family: ËÎÌå; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US;">¸Ã·½·¨²»ÂÛÊÇÔÚ2Î¬¿Õ¼ä»¹ÊÇ3Î¬¿Õ¼ä£¬Ò²²»ÂÛµãÔÚÏß¶ÎABÉÏ,»¹ÊÇÔÚÆäÑÓ³¤ÏßÉÏ,¶¼ÄÜÊ¹ÓÃ.

jkbanana ·¢±íÓÚ 2007-6-17 13:25:00

'''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' ''' '''ÕâÊÇÒ»¸öÅÐ¶ÏµãÔÚÖ±ÏßÉÏ·ñµÄ¼òµ¥Sample ''' '''Coded By ChunYue,Zou   2007.06.17 '''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' Option Explicit Const CONST_AbsZero = 10 ^ (-4)   '´óÐ¡ÓÉ¼ÆËã¾«¶ÈÈ·¶¨ Public Sub Test()   Dim objline As AcadLine   Dim returnPnt As Variant   Dim A(0 To 2) As Double   Dim B(0 To 2) As Double   Dim P(0 To 2) As Double   Dim V(0 To 2) As Double   Dim V0(0 To 2) As Double   Dim V1(0 To 2) As Double   Dim Norm As Double   '''   '1.Ö¸¶¨Ö±ÏßAB   ThisDrawing.Utility.GetEntity objline, returnPnt, "Select a line:"   returnPnt = objline.StartPoint   A(0) = returnPnt(0)   A(1) = returnPnt(1)   A(2) = returnPnt(2)   returnPnt = objline.EndPoint   B(0) = returnPnt(0)   B(1) = returnPnt(1)   B(2) = returnPnt(2)   'Ö¸¶¨Ò»ÈÎÒâµãP   returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")   P(0) = returnPnt(0)   P(1) = returnPnt(1)   P(2) = returnPnt(2)   '2.¼ÆËãÊ¸Á¿V0=B-A, V1=P-A   V0(0) = B(0) - A(0)   V0(1) = B(1) - A(1)   V0(2) = B(2) - A(2)   '   V1(0) = P(0) - A(0)   V1(1) = P(1) - A(1)   V1(2) = P(2) - A(2)   '3.ÇóÍâ»ý V = V0 x V1   V(0) = V0(1) * V1(2) - V0(2) * V1(1)   V(1) = V0(2) * V1(0) - V0(0) * V1(2)   V(2) = V0(0) * V1(1) - V0(1) * V1(0)   '4.¼ÆËãVµÄ´óÐ¡: Norm = ||V|| = ||V0 X V1||   Norm = Sqr(V(0) ^ 2 + V(1) ^ 2 + V(2) ^ 2)   '5.ÅÐ¶Ï   If Norm < CONST_AbsZero Then     'µãPÔÚÖ±ÏßABÉÏ     MsgBox "µãÔÚÖ±ÏßÉÏ, Norm=" & Norm   Else     'µãP²»ÔÚÖ±ÏßABÉÏ     MsgBox "µã²»ÔÚÖ±ÏßÉÏ, Norm=" & Norm   End If End Sub

Ò³: [1] 2

Ã÷¾­CADÉçÇø's Archiver

ÔõÑùÅÐ¶ÏÒ»¸öµãÔÚÒ»ÌõÖ±ÏßÉÏ£¨vba£©

Ã÷¾CADÉçÇø's Archiver