亚洲美女久久久,亚洲精品国产精品国自产观看,国产亚洲成av人片在线观看桃

Sub AddRectangleAndArrayAndTrim()
& C8 ? G$ y# W# E0 ] S
' 聲明變量* o" ?$ _$ f& M, T5 g% Z6 d
Dim lineObj As Object; }+ {8 @. W* W$ F! E2 y' P0 {
Dim startPoint As Variant
, m3 J- E( P; g! |
Dim endPoint As Variant* [( q( D! i" P8 t" P
Dim rectWidth As Double
+ z& z( \0 ^ [9 b- l) I
Dim rectHeight As Double; |! C* ~. U* Q& |: a4 c
Dim rectStartPoint(0 To 2) As Double
( s3 x* {0 g6 J1 Q' p
Dim rectEndPoint(0 To 2) As Double
: Y: {; z# C* X4 M9 C6 G
Dim rotationAngle As Double" z: B- @9 b/ A; \- h2 r4 F; l- C, }9 V, k
Dim rectObj As Object
; d( M& v( W ^
Dim points(0 To 7) As Double ' 用于存儲矩形的四個頂點
6 h% F( j; x$ f G8 r& k5 x, w- t
Dim centerPoint(0 To 2) As Double ' 直線的中點
* E: z9 }' [4 R/ U
Dim newRectObj As Object ' 復制的矩形對象
3 s% i- Q$ o; N6 C+ T0 b
Dim rotationAngleRad As Double ' 旋轉角度（弧度）$ I* E/ n0 V- z" A, F! ?
Dim intersectPoint As Variant ' 交點
: e& i3 N& l3 e+ m$ A; l2 T
Dim trimStartPoint As Variant ' 修剪后的起點
! P0 n, Q$ x8 h: d0 k" R: W
Dim trimEndPoint As Variant ' 修剪后的終點. y0 l, A! d; X0 J6 f
" J) d* R; L% G8 W" [
' 定義矩形的尺寸
& y3 D" J! _( \8 T
rectWidth = 0.1 ' 矩形的寬度（短邊）
1 F& m9 W j" ]5 [2 C1 ?
rectHeight = 1 ' 矩形的高度（長邊）) N& {* J' L. X+ G) w
( h: O5 X1 }+ D f' G3 K1 `
' 提示用戶選擇一條直線( |- b* i8 d% S P/ o; m
On Error Resume Next, a x+ n" Z2 P( z2 t9 [
ThisDrawing.Utility.GetEntity lineObj, startPoint, "請選擇一條直線: "
+ O7 V, o; _6 h( R% ]( ?" j
On Error GoTo 0
) }% M4 S9 A1 o( b6 m3 s7 u3 x! k( a
' F% N, W% p# U4 H- u0 p+ b
' 檢查用戶是否選擇了直線
2 U+ m7 [/ s3 F# w2 r; i
If lineObj Is Nothing Then
; f8 U; U+ B* Q4 g# G! z5 n" Q$ h
MsgBox "未選擇直線或選擇無效。"3 t1 a# P2 E2 c5 J5 {2 J& Q; \4 Z# g* O1 H
Exit Sub2 \( N7 U6 c" }* z( B" t( Q
End If% {' b& i: L4 r& r1 o( @
' V! p/ p" ?% z; i' x! |
' 獲取直線的起點和終點
, M& @% H# z0 |, E
startPoint = lineObj.StartPoint
' q' D6 I/ Q% @0 d# Z' Q _. T
endPoint = lineObj.EndPoint; E! _; Z/ c+ O" I& L
$ o/ f, b/ V! e( B
' 計算直線的中點8 R' l# M. d* i, ?# {) E7 K
centerPoint(0) = (startPoint(0) + endPoint(0)) / 2) M/ w& V1 {( I; a( Q( k2 S
centerPoint(1) = (startPoint(1) + endPoint(1)) / 27 C0 q3 M2 _0 e
centerPoint(2) = (startPoint(2) + endPoint(2)) / 2( ~1 M8 Q* {0 A2 E
7 o4 P* V- A6 t+ \* X. x
' 計算直線的角度（用于矩形的旋轉）# p7 R5 E0 ]. s/ m, [- {
rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
7 c; f( d# ^- n$ p; h
$ S1 |! f2 _! H0 Y F
' 計算矩形的起點和終點
2 u" b @& t7 B- S+ f
rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))
+ U' p6 z, F7 T- x E& x
rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))* ?- J; D2 p5 z) P. l. j
rectStartPoint(2) = startPoint(2)! A3 u1 K" h. ]7 W# b7 r4 F
$ O! H _* @6 l
rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)4 n$ \& T3 m$ p
rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)7 H9 q' p% |7 W) P; a5 s
rectEndPoint(2) = rectStartPoint(2)
: ^7 L4 v! ]: v( F
/ v$ k* J0 D% T3 o0 z# J
' 定義矩形的四個頂點) r5 n2 B J* @
points(0) = rectStartPoint(0), o% c" c7 F1 l$ L
points(1) = rectStartPoint(1)# m, _+ ], t" t3 k7 e
points(2) = rectEndPoint(0)
) v: ~( W- E6 r7 W: E5 \
points(3) = rectEndPoint(1)
( @, n$ v7 e1 f e) Y9 u4 n
points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
) b2 z0 ?) r! I% P$ j6 [0 M
points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
* r/ @3 q" `) ~6 x* o6 z
points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))5 g5 |+ V1 H4 k
points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
4 w2 l# D9 k; b! N l
) T! I9 J- Q& m, j" a& y
' 創建矩形
* \. z% H# Y+ V/ j, N0 m# q
Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
_# R' e- z( s, W9 G9 I
# G" c, @/ q( K' a4 n; ?
' 創建圓周陣列（手動復制和旋轉）7 U/ m6 C1 n* v4 E
rotationAngleRad = 180 * (3.14159 / 180) ' 將角度轉換為弧度
/ H. ~9 P2 K" ] ~, _- ]! s; a
Set newRectObj = rectObj.Copy* w0 O: a) p& O
newRectObj.Rotate centerPoint, rotationAngleRad: s" A9 Z) Y, ~5 Z7 q5 }' v
- N) g9 `1 J3 B7 X
' 修剪直線; M2 k: C2 m& x
' 查找直線與矩形的交點" o- |# c/ F, V& o& e% j
intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone): J1 S B$ ~0 j3 z( \8 S4 T: J/ U: l
If Not IsEmpty(intersectPoint) Then
* T2 W* n O0 Z; y6 }9 _2 u
' 修剪直線的起點/ d. \6 Q% X: A
trimStartPoint = intersectPoint
: I0 U9 j+ d9 h3 T4 Y' O
lineObj.StartPoint = trimStartPoint* p" Y Q+ g6 a) \% j2 Z: I
End If
7 d0 _* {, A" c9 G. j
$ I, ?6 u. A4 u* f- ^. `2 {
intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)' d) `: E3 m" P1 Y
If Not IsEmpty(intersectPoint) Then4 ^5 E# ^( n1 n& O9 I- H
' 修剪直線的終點
5 b; D- I4 h% e+ R! a3 A- i
trimEndPoint = intersectPoint
( v* i( d- U* }# X
lineObj.EndPoint = trimEndPoint
. `3 U) v3 u ^; E* E
End If
: _5 N8 @( j* l8 o) I; O8 g
4 _# O) C+ |- C& `3 D
' 刷新視圖
: p! Y! R1 N1 }, l2 x; t/ p4 D
ThisDrawing.Regen True
& M0 ]0 p! h, o0 W
) {2 F" |* C9 J. G/ `0 i
' 提示用戶
8 g- a D5 ^5 e* M
MsgBox "矩形、陣列和修剪操作已完成！" x1 a& G# \2 c+ v4 u2 @
End Sub

復制代碼

久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區