久久大香萑太香蕉av丨樱花草在线社区www日本影院丨婷婷久久五月丨久综合网丨久久伊人99丨久草免费av丨狠狠狠色丨国产精品天天干丨日产精品久久久久久久蜜臀丨国内揄拍国内精品少妇国语丨蜜桃av鲁一鲁一鲁一鲁俄罗斯的丨丰满人妻一区二区三区免费视频丨日韩日比视频丨九九视频精品在线丨性av+色av丨av一区二区三区在线观看丨婷婷色站丨台湾佬自拍偷区亚洲综合丨波多野结衣乱码中文字幕丨无码中文字幕乱码一区

<style id="xkgll"><dfn id="xkgll"></dfn></style>

機械社區

標題: 還有哪些例子可以用DEEPSEEK幫助CAD繪圖的？ [打印本頁]

作者: laotoule8 時間: 2025-2-7 09:55
標題: 還有哪些例子可以用DEEPSEEK幫助CAD繪圖的？
用了deepseek寫的VBA代碼用在CAD，挺好用的。有沒有其他的方便CAD使用的deepseek的例子推薦一下？

Sub AddRectangleAndArrayAndTrim()
0 I( x6 v6 h, f% ?
' 聲明變量 I" b" u7 `( e0 n4 V
Dim lineObj As Object
- W+ o* M9 M! `# k* [' d
Dim startPoint As Variant
% \; W' X k9 P
Dim endPoint As Variant9 r! o0 C9 W2 r& ~
Dim rectWidth As Double
* O3 T! S3 _+ D n/ k
Dim rectHeight As Double
+ {! _# _/ z8 M. V' \
Dim rectStartPoint(0 To 2) As Double" J/ |% Q( T7 m( u$ p
Dim rectEndPoint(0 To 2) As Double
1 I% Z/ U" r [3 v
Dim rotationAngle As Double
9 F, d5 T, e1 u7 d) E
Dim rectObj As Object
( y) W$ }; J' |3 z4 Z7 M
Dim points(0 To 7) As Double ' 用于存儲矩形的四個頂點+ K# `0 X5 K: r/ c
Dim centerPoint(0 To 2) As Double ' 直線的中點* ^% ^8 p; b& Q& p/ e/ `
Dim newRectObj As Object ' 復制的矩形對象7 q6 x4 J; T. C5 S/ G
Dim rotationAngleRad As Double ' 旋轉角度（弧度）
( ?' B% B! b) J4 z ?+ p$ C
Dim intersectPoint As Variant ' 交點
! u5 w8 t* y" H R ~, f0 x
Dim trimStartPoint As Variant ' 修剪后的起點+ p: j1 T1 G% h7 a1 y, `
Dim trimEndPoint As Variant ' 修剪后的終點$ R& W% S# ^: U
8 I% a' m) _$ L' I' v+ u g
' 定義矩形的尺寸& `+ ~$ j4 R' i8 s: |" t( N
rectWidth = 0.1 ' 矩形的寬度（短邊）# t5 C3 h O3 x
rectHeight = 1 ' 矩形的高度（長邊）' K7 F- n. H4 w6 P. i
- b! {! n; I# a
' 提示用戶選擇一條直線8 q) p V- B! O2 p
On Error Resume Next$ Y v/ [: s9 e
ThisDrawing.Utility.GetEntity lineObj, startPoint, "請選擇一條直線: "8 P5 r4 `5 W$ G# Z$ m
On Error GoTo 0
# y( i0 A1 T! c& I
0 p% J! Q9 T8 G3 t7 ^$ m
' 檢查用戶是否選擇了直線& X5 C& y6 t6 k
If lineObj Is Nothing Then0 e% t4 p0 z2 C4 V! ?1 ^
MsgBox "未選擇直線或選擇無效。"' ^; e/ p) ?. ]! H* d0 g
Exit Sub
( l9 ^* w2 ?" l# G
End If
0 s8 P. [* `; I* L# M/ l0 Y
# _8 Y7 h1 G% n" F4 [
' 獲取直線的起點和終點
; `& Q, [# k8 T Z! d, C6 g
startPoint = lineObj.StartPoint& Z7 a; U6 i2 t1 ^) A: `
endPoint = lineObj.EndPoint9 ?5 N z, D9 [2 _! `7 I
2 R [- Q5 m+ ]; _8 e
' 計算直線的中點: g; O" i% S4 }) w& b, p
centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
/ O3 V0 L% H$ e4 Q- k# `
centerPoint(1) = (startPoint(1) + endPoint(1)) / 2* w' B5 l. {3 w- J* N
centerPoint(2) = (startPoint(2) + endPoint(2)) / 24 o! y2 [! Z! H9 m6 {+ G- i8 o
7 Z6 Z5 E+ F) N2 A! z# D5 U
' 計算直線的角度（用于矩形的旋轉）9 I7 Q/ `9 y8 N7 g' E
rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
) y0 }7 V1 S# m. o( R
: U* X. {: m* ?) F
' 計算矩形的起點和終點, f' h4 a& M7 C9 C, i' T; i
rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))$ r! W, A6 b" p. U1 p
rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))/ j0 o: Q3 C9 l \3 D4 d S
rectStartPoint(2) = startPoint(2)1 N F- A) u9 o7 b; D
2 U* M- \: l4 n& X; E% }( O" I5 J" v
rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)1 M/ ~1 r( D# Z' b6 y x) q" ]# y
rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)' t0 K( R/ C! k+ X: G$ Q
rectEndPoint(2) = rectStartPoint(2)) H" v, I. F* l T; R: C& O- @& x3 }
$ _. }! Z- t$ |5 c, ~% B7 _
' 定義矩形的四個頂點
' D' f1 Y) n3 n$ u* c0 _5 i$ W' _
points(0) = rectStartPoint(0)
2 z, o& y! j) I( J; u2 D7 }
points(1) = rectStartPoint(1)- s7 P# f% u7 @! T
points(2) = rectEndPoint(0)+ I* ~' w2 Z ]. z
points(3) = rectEndPoint(1)3 j. N$ @0 J$ H" l7 [& Z' J Q
points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
, J7 L; g l1 X$ s8 D
points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2)); c0 K: c* _4 V, u. @1 X$ B
points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))# c$ K( }. f- r! Z4 ?
points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))3 H/ T' F5 o9 V6 b( ^* D# l
# D! l r M f, i' F8 u
' 創建矩形! s) s/ x0 N' {# s& s( m+ j8 L
Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)1 p+ X& s! k4 y0 L0 m8 l; m
6 v5 g: N# ~1 E* t K
' 創建圓周陣列（手動復制和旋轉）
: u5 y* |- J) w a
rotationAngleRad = 180 * (3.14159 / 180) ' 將角度轉換為弧度2 h1 g2 W, [2 r9 N3 l/ r0 s2 `8 `
Set newRectObj = rectObj.Copy
% C( c+ Y; O) q! z2 k( K. k" O
newRectObj.Rotate centerPoint, rotationAngleRad
7 {8 U3 Y% |% e2 L
: e+ J& E# m* i" w. n) H
' 修剪直線
& F* d' k4 I: ^
' 查找直線與矩形的交點7 M H) s. ~* @+ w8 D9 R- @9 x
intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone); w* j. |9 ?; I) }; ^
If Not IsEmpty(intersectPoint) Then
0 n g+ {# L: D0 P* I0 T
' 修剪直線的起點% O5 w( q7 e" g% [9 p# ~5 V
trimStartPoint = intersectPoint: t+ U) N; K& Z$ a; X6 [
lineObj.StartPoint = trimStartPoint
" _. w: s( C% _! ?2 b& Z! p
End If, u- w1 v: M& W. F& ^
9 M6 A6 Y7 |+ H9 }' b
intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)8 A& \! b! K% k; L0 M. ?8 ]' w
If Not IsEmpty(intersectPoint) Then8 @* K; l0 [# Q$ L; X8 W: t% }
' 修剪直線的終點: P4 `+ @* I: E, e2 F3 l) W& d0 h
trimEndPoint = intersectPoint
/ X: H$ @0 Z' \! @2 o5 o1 O
lineObj.EndPoint = trimEndPoint
7 M2 U# i7 |* f, D3 x4 [- y( ^
End If
. d9 e. R( S+ V C3 v5 H
' c5 r" T+ _: Z7 s
' 刷新視圖
6 g' F8 }6 I( l$ I
ThisDrawing.Regen True3 ?' U. h# x: G; J0 @
: c% j0 Y K7 O5 ^- G% H
' 提示用戶
4 v$ ~; ~8 j/ H7 p1 g( S( l# v
MsgBox "矩形、陣列和修剪操作已完成！"
; D, E9 U4 e) M. t0 O
End Sub

復制代碼

作者: 564156415gdr 時間: 2025-2-7 10:01
blender也可以。去年試過一次

作者: 學者11 時間: 2025-2-7 10:34
這叫脫褲子放屁，沒有任何可行性。
首先怎么保證AI模型的回答不會有幻覺，你保證不了。
其次怎么保證工程師能識別出AI模型的回答有幻覺，更保證不了，因為多數機械工程師不懂代碼。
最關鍵的是，AI模型根本不能直接控制CAD，還需要人手工把代碼復制粘貼，CAD才會畫圖。
那請問為何不能直接讓機械工程師直接畫圖，你既不能提高效率，又不能節省人工，這么騷操作的意義何在。

作者: kayex 時間: 2025-2-7 16:04
這個把簡單的事情復雜化了

作者: 寰宇無人 時間: 2025-2-8 09:27
以前用在SW二次開發上也行，主體代碼能用，但一些自定義需求，以及配置啥的，自己要懂

作者: 寰宇無人 時間: 2025-2-8 09:28
以前用在SW二次開發上也行，主體代碼能用，但一些自定義需求，以及配置啥的，自己要懂

作者: 寰宇無人 時間: 2025-2-8 09:29
想讓他直接出圖，標注尺寸，公差，工藝這些，還得大量模型喂他，不過未來的智能化發展，誰能說的準呢

作者: zhl6200 時間: 2025-2-18 12:19
我直接給定齒輪參數，讓deepseek畫齒輪零件圖，它明確回答我，他沒有此功能，只給出了畫圖思路，也許以后會實現。

歡迎光臨機械社區 (http://www.hrhome.com.cn/)

^{<noscript id="mam7n"><optgroup id="mam7n"></optgroup></noscript>}