還有哪些例子可以用DEEPSEEK幫助CAD繪圖的？

laotoule8

用了deepseek寫(xiě)的VBA代碼用在CAD，挺好用的。有沒(méi)有其他的方便CAD使用的deepseek的例子推薦一下？
! o/ ~5 k0 ~) \+ p# T2 D

1. Sub AddRectangleAndArrayAndTrim()
   : Q/ E( }9 [5 O1 Z1 u5 K
2.     ' 聲明變量
   ( y' N, ?" @9 Z! h. ^2 R& A
3.     Dim lineObj As Object
   ' d' w9 S6 V5 E
4.     Dim startPoint As Variant
   
5.     Dim endPoint As Variant
   0 t0 N6 N/ x  o5 I+ Y8 O1 X( c' w: p
6.     Dim rectWidth As Double
   
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   0 S  c8 }1 j+ \2 @  d' m/ M. s
9.     Dim rectEndPoint(0 To 2) As Double
   
10.     Dim rotationAngle As Double
    4 s" a! d, S* n& d& Q3 F
11.     Dim rectObj As Object
    ; U4 H- |: g- p' T
12.     Dim points(0 To 7) As Double ' 用于存儲(chǔ)矩形的四個(gè)頂點(diǎn)
    7 h8 w1 o: h/ o  m9 d
13.     Dim centerPoint(0 To 2) As Double ' 直線的中點(diǎn)
    : ?1 T. |$ f- C; A  y# C% @& \
14.     Dim newRectObj As Object ' 復(fù)制的矩形對(duì)象
    
15.     Dim rotationAngleRad As Double ' 旋轉(zhuǎn)角度（弧度）
    ! E1 o6 x. A; }0 y  E
16.     Dim intersectPoint As Variant ' 交點(diǎn)
    , _7 K: P, L0 n7 U
17.     Dim trimStartPoint As Variant ' 修剪后的起點(diǎn)
    
18.     Dim trimEndPoint As Variant ' 修剪后的終點(diǎn)
    
19.    
    
20.     ' 定義矩形的尺寸
    
21.     rectWidth = 0.1 ' 矩形的寬度（短邊）
    ! ~3 X: O' t) A1 F8 [
22.     rectHeight = 1  ' 矩形的高度（長(zhǎng)邊）
    4 \) h4 x' u% f1 F. B7 `9 G+ h2 ^
23.    
    5 e' f: I0 s% a; ]$ L
24.     ' 提示用戶選擇一條直線
    
25.     On Error Resume Next
    
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "請(qǐng)選擇一條直線: "
    2 g4 l) N) {' ~* r- N4 `- p" r
27.     On Error GoTo 0
    $ S1 c0 H7 `& D$ n- o6 D" l* f+ x
28.    
    4 ?4 G& F9 [# K* J: Q$ a
29.     ' 檢查用戶是否選擇了直線
    
30.     If lineObj Is Nothing Then
    
31.         MsgBox "未選擇直線或選擇無(wú)效。"
    
32.         Exit Sub
    
33.     End If
    
34.    
    
35.     ' 獲取直線的起點(diǎn)和終點(diǎn)
    
36.     startPoint = lineObj.StartPoint
    . k+ \' }: Q/ e) F" O/ n
37.     endPoint = lineObj.EndPoint
    ( ^. R' x8 S4 b. i) N
38.    
    
39.     ' 計(jì)算直線的中點(diǎn)
    
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    ; T8 J- G& [, `" q- a% X' K3 U
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    / _  q$ [9 o  m6 Y9 ^2 n& L& J
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    ) \5 B7 T8 y) _: Z$ Y
43.    
    
44.     ' 計(jì)算直線的角度（用于矩形的旋轉(zhuǎn)）
    4 G' x5 N( ?. h$ n" O: S
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    
46.    
    : u1 q, b5 H- H" i% c$ }
47.     ' 計(jì)算矩形的起點(diǎn)和終點(diǎn)
    ' K3 I; A# s- L; d( P% d8 ]: P, A
48.     rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))
    2 D# {8 ]% V6 ^' ]' g% q% C
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    3 m' a4 N) j8 Z5 ~  l0 f9 [0 c
50.     rectStartPoint(2) = startPoint(2)
    " I7 V6 x5 K' Y5 m, b+ N% f; B
51.    
    . V$ q8 T" d" ^- z
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    4 |* o! N9 s" T! f. o& S% Y' b
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    
54.     rectEndPoint(2) = rectStartPoint(2)
    
55.    
    
56.     ' 定義矩形的四個(gè)頂點(diǎn)
    
57.     points(0) = rectStartPoint(0)
    + R7 ~0 ]# y8 q$ w; t9 D4 {
58.     points(1) = rectStartPoint(1)
    
59.     points(2) = rectEndPoint(0)
    
60.     points(3) = rectEndPoint(1)
    1 m( b& D4 G) a  t4 y& E( l! L
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    4 J$ n2 {" o4 ?- c6 m( y
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
      h7 q, s; n# Z& N. T  Q
65.    
      ^- x* a- b. G1 \1 i+ F4 t, P
66.     ' 創(chuàng)建矩形
    7 C* \8 T1 N; ~% k7 M: P1 @
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
68.    
      j9 ^: t4 G" A; F! }2 z
69.     ' 創(chuàng)建圓周陣列（手動(dòng)復(fù)制和旋轉(zhuǎn)）
    ' w' g% w- Y% e$ N
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 將角度轉(zhuǎn)換為弧度
    
71.     Set newRectObj = rectObj.Copy
    ( P, _+ k+ X  X+ ?8 a# }4 s
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    - ?$ d$ A4 }/ T  g
73.    
    % i3 y$ v- p' N/ h
74.     ' 修剪直線
    
75.     ' 查找直線與矩形的交點(diǎn)
    
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    8 D# g! O: h1 P  `& D
77.     If Not IsEmpty(intersectPoint) Then
      z5 B8 K  R4 m0 W" ?  M
78.         ' 修剪直線的起點(diǎn)
    
79.         trimStartPoint = intersectPoint
    
80.         lineObj.StartPoint = trimStartPoint
    % _5 q+ _; v& Q% N+ o
81.     End If
    7 V1 J- b9 @7 O% N, e1 x
82.    
    
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    + ?: J. G3 t) K% ~$ H
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直線的終點(diǎn)
    $ I8 i) f. v- G. g. S" c
86.         trimEndPoint = intersectPoint
    
87.         lineObj.EndPoint = trimEndPoint
    : a) ?: _4 ~; {4 x* y: j
88.     End If
    % D& H( @* l: K. A, A; [  S
89.    
    6 B$ F; m( Q* V2 H; y
90.     ' 刷新視圖
    4 o+ A& ^" d& E: ?% P! y
91.     ThisDrawing.Regen True
    6 J0 W7 i# Y5 S3 E) Z
92.    
    
93.     ' 提示用戶
    5 \7 Z# }, }* I, W" u; G' A, o
94.     MsgBox "矩形、陣列和修剪操作已完成！"
    6 M8 f! m9 |5 p
95. End Sub

復(fù)制代碼

564156415gdr

blender也可以。去年試過(guò)一次

學(xué)者11

這叫脫褲子放屁，沒(méi)有任何可行性。
8 @/ R* ~8 M& M7 |% I* ]首先怎么保證AI模型的回答不會(huì)有幻覺(jué)，你保證不了。
7 C5 F/ n- n' b4 B# K7 z其次怎么保證工程師能識(shí)別出AI模型的回答有幻覺(jué)，更保證不了，因?yàn)槎鄶?shù)機(jī)械工程師不懂代碼。
0 Q  x* E& ?) o最關(guān)鍵的是，AI模型根本不能直接控制CAD，還需要人手工把代碼復(fù)制粘貼，CAD才會(huì)畫(huà)圖。
那請(qǐng)問(wèn)為何不能直接讓機(jī)械工程師直接畫(huà)圖，你既不能提高效率，又不能節(jié)省人工，這么騷操作的意義何在。

kayex

這個(gè)把簡(jiǎn)單的事情復(fù)雜化了

寰宇無(wú)人

以前用在SW二次開(kāi)發(fā)上也行，主體代碼能用，但一些自定義需求，以及配置啥的，自己要懂
9 f& r( C# }8 m2 ^

寰宇無(wú)人

以前用在SW二次開(kāi)發(fā)上也行，主體代碼能用，但一些自定義需求，以及配置啥的，自己要懂

寰宇無(wú)人

想讓他直接出圖，標(biāo)注尺寸，公差，工藝這些，還得大量模型喂他，不過(guò)未來(lái)的智能化發(fā)展，誰(shuí)能說(shuō)的準(zhǔn)呢

zhl6200

我直接給定齒輪參數(shù)，讓deepseek畫(huà)齒輪零件圖，它明確回答我，他沒(méi)有此功能，只給出了畫(huà)圖思路，也許以后會(huì)實(shí)現(xiàn)。