还有哪些例子可以用DEEPSEEK帮助CAD绘图的？

laotoule8

用了deepseek写的VBA代码用在CAD，挺好用的。有没有其他的方便CAD使用的deepseek的例子推荐一下？

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   % B2 e' O! r9 {4 K& m, }, w* ^
3.     Dim lineObj As Object
   & z8 p* D, Y2 u1 j
4.     Dim startPoint As Variant
   
5.     Dim endPoint As Variant
   ) ^% W) [  |& T6 h7 [
6.     Dim rectWidth As Double
   
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   
9.     Dim rectEndPoint(0 To 2) As Double
   6 m# D% N% j. r6 c) d5 C0 V1 @
10.     Dim rotationAngle As Double
    : }! `/ r% K8 G- p
11.     Dim rectObj As Object
    . }; A. u2 v4 N- f$ g
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    # ~* ~9 a) b9 K  ^) z" k% @9 H# T
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    
14.     Dim newRectObj As Object ' 复制的矩形对象
    ; _* `9 Y0 M( z
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    / O+ ?% l+ H+ H3 U0 t+ ]9 Z
16.     Dim intersectPoint As Variant ' 交点
    
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    
19.    
    
20.     ' 定义矩形的尺寸
    5 w+ I0 L4 J# X# q: m& ?
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    
22.     rectHeight = 1  ' 矩形的高度（长边）
    
23.    
    
24.     ' 提示用户选择一条直线
    
25.     On Error Resume Next
    
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    
27.     On Error GoTo 0
    ' f: ]6 c4 @9 x$ u' K( `6 a
28.    
    : [+ W) q1 G3 f" i
29.     ' 检查用户是否选择了直线
    
30.     If lineObj Is Nothing Then
    ' w9 k, P8 R! U1 v/ d8 T3 e3 a, ~
31.         MsgBox "未选择直线或选择无效。"
    $ T; o# r* F# e4 ?/ E$ e- G
32.         Exit Sub
    % \- u* P9 s% S2 [* t. j
33.     End If
    , H( B# ^, G- q! c; l7 t1 k! q: \
34.    
    
35.     ' 获取直线的起点和终点
    ' P4 O) m+ L$ t8 C) y- S* C, c( v$ s
36.     startPoint = lineObj.StartPoint
    % [" a. h  z2 `# b
37.     endPoint = lineObj.EndPoint
    
38.    
    
39.     ' 计算直线的中点
    
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    ( X, D4 [: M8 X4 T+ ]+ t
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    . O* [$ b1 C8 Z1 a. ~
43.    
    6 e4 j  M1 B+ ?$ z
44.     ' 计算直线的角度（用于矩形的旋转）
    
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    
46.    
    , c0 X3 @! O# H
47.     ' 计算矩形的起点和终点
    7 C6 X9 y2 U4 P7 f
48.     rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))
    ( X' R+ J0 i- S+ }: W
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    ; q3 a; M2 R, g: k: b
50.     rectStartPoint(2) = startPoint(2)
    8 k" t- V. t+ m8 e
51.    
    9 E1 E$ I+ r8 B, J
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    8 L$ Q/ x7 }' @- ?
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    
54.     rectEndPoint(2) = rectStartPoint(2)
    6 r& e, H4 Z1 u- W
55.    
    0 O' s; A0 W! a0 J
56.     ' 定义矩形的四个顶点
    . P" T) l8 X; O5 \5 Y+ p5 B9 Y
57.     points(0) = rectStartPoint(0)
    
58.     points(1) = rectStartPoint(1)
    
59.     points(2) = rectEndPoint(0)
    
60.     points(3) = rectEndPoint(1)
    + D& }  u) }) ~$ |, A
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    . i! Q, Z) _1 k( t5 u( T
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    6 X' Z: l$ I2 \( c0 t% [7 _0 q
65.    
    
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
68.    
    
69.     ' 创建圆周阵列（手动复制和旋转）
    9 x2 C  z. J1 K, ~+ p
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    
71.     Set newRectObj = rectObj.Copy
    
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    
73.    
    
74.     ' 修剪直线
    9 q. `$ P# j- D$ ^& q+ g
75.     ' 查找直线与矩形的交点
    
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    
77.     If Not IsEmpty(intersectPoint) Then
    ! ?5 k0 c$ ~( J9 T6 `. [
78.         ' 修剪直线的起点
    ! g" o* n7 I' j  c" M  i% S
79.         trimStartPoint = intersectPoint
    
80.         lineObj.StartPoint = trimStartPoint
    . {) p/ Q% w  a* O1 C
81.     End If
    
82.    
    6 w' T7 C$ ?  i4 z/ \3 F9 e
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    : ^& X6 T! y9 t! _+ B
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    * E! X( ]% Y$ l6 ^) d" e8 W& _
86.         trimEndPoint = intersectPoint
    + J1 M: @4 B! z! h! }5 w+ l1 }
87.         lineObj.EndPoint = trimEndPoint
    
88.     End If
    
89.    
    
90.     ' 刷新视图
    
91.     ThisDrawing.Regen True
    
92.    
    # J( F$ d; s- L4 B
93.     ' 提示用户
    6 m2 Y9 T( R) Z, n
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    
95. End Sub

复制代码

/ x( L5 O5 V0 h7 V4 Q

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
+ [% Y  f! T8 x) d4 g首先怎么保证AI模型的回答不会有幻觉，你保证不了。
# x2 W+ ?! f' e* V8 i: |其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
) D; f. ^. O! Y2 Z( s最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

这个把简单的事情复杂化了

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
8 s9 \6 j5 ^  S# q" q+ l2 g* E

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
4 M% A. B; `9 _& c

寰宇无人

想让他直接出图，标注尺寸，公差，工艺这些，还得大量模型喂他，不过未来的智能化发展，谁能说的准呢

zhl6200

我直接给定齿轮参数，让deepseek画齿轮零件图，它明确回答我，他没有此功能，只给出了画图思路，也许以后会实现。