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

laotoule8

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

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   0 Z: v! u+ J7 |( X+ o! R9 M
3.     Dim lineObj As Object
   
4.     Dim startPoint As Variant
   
5.     Dim endPoint As Variant
     ?6 n: E$ Z! R( z
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
   % L; ?+ \( p0 d( L5 `6 V# j4 y
10.     Dim rotationAngle As Double
    " q/ J! p) G$ v. ?, J
11.     Dim rectObj As Object
    
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    ! F5 q7 u8 n$ k
14.     Dim newRectObj As Object ' 复制的矩形对象
    
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    0 {9 |6 e8 U/ J+ x1 J9 X0 N
16.     Dim intersectPoint As Variant ' 交点
    / q& [& f6 A- q: s2 t) s; ?. a' m/ o1 d
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    " u2 s9 U$ m$ m
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    $ X1 Y7 x: S3 \% X" B
19.    
    
20.     ' 定义矩形的尺寸
    % q1 N) ~& Z& Z8 C$ L
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    
22.     rectHeight = 1  ' 矩形的高度（长边）
    
23.    
    ' z& ]" o+ h) G4 Q
24.     ' 提示用户选择一条直线
    , `/ X5 P. h& Y6 R5 M, {& f, m
25.     On Error Resume Next
    
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    
27.     On Error GoTo 0
    
28.    
    
29.     ' 检查用户是否选择了直线
    
30.     If lineObj Is Nothing Then
    4 B$ L6 v8 z" w' [& ]2 u: a, V* w
31.         MsgBox "未选择直线或选择无效。"
    
32.         Exit Sub
    
33.     End If
    ( }% z- }" O6 T; ^
34.    
    
35.     ' 获取直线的起点和终点
    4 R# ^0 t) o- t
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    - u/ Q9 Y0 W6 _/ L, b
38.    
    ; k" v$ ~: ~  W3 ?3 I, E
39.     ' 计算直线的中点
    * L9 q2 L3 b7 z. q! z; s1 J
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    2 t5 }* t* p; t' y) A7 j
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    
43.    
    
44.     ' 计算直线的角度（用于矩形的旋转）
    % g* v+ d! t7 C+ D
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    
46.    
    
47.     ' 计算矩形的起点和终点
    
48.     rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))
    0 G/ U% d$ C" X: e/ [
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    ! W, O$ F% a7 U6 ~. l
50.     rectStartPoint(2) = startPoint(2)
    
51.    
    
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    # g. ^4 c% z$ e& K
54.     rectEndPoint(2) = rectStartPoint(2)
    
55.    
    
56.     ' 定义矩形的四个顶点
    
57.     points(0) = rectStartPoint(0)
    
58.     points(1) = rectStartPoint(1)
    1 R; G' X5 m) T) i2 S, a
59.     points(2) = rectEndPoint(0)
    1 h4 B) Q$ d) H1 c' g' T/ Y; \
60.     points(3) = rectEndPoint(1)
    7 K- V. d" H5 g' L8 t+ J% ^
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
      @! Y% q2 z* ~: u
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    1 y3 Z1 }4 a% ^: P2 q) A" Q
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
65.    
    5 t2 B6 g2 b) w6 j
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
68.    
    . |( W' ]' J5 d  C) k4 W# _( M
69.     ' 创建圆周阵列（手动复制和旋转）
    
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    
71.     Set newRectObj = rectObj.Copy
    
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    2 l' [6 n2 G. d/ u+ J
73.    
    6 l6 z. V4 x; q2 D9 _
74.     ' 修剪直线
    2 Z9 g* Y8 A& A2 y5 i
75.     ' 查找直线与矩形的交点
    
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    % P( T' d8 @3 ]/ a9 j/ g' M
77.     If Not IsEmpty(intersectPoint) Then
    ; P, B1 Q( g+ P. e/ O( A% `  j
78.         ' 修剪直线的起点
    
79.         trimStartPoint = intersectPoint
    6 o8 u- H- S! F& L4 }3 t
80.         lineObj.StartPoint = trimStartPoint
    2 t. S' d0 t; n3 M% W0 `+ H
81.     End If
    
82.    
    
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    1 v; G+ e' O0 J! a% |2 N
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    4 p( y. {8 m& W
86.         trimEndPoint = intersectPoint
    / U. |. F. e* {# u2 M
87.         lineObj.EndPoint = trimEndPoint
    : H. S$ e  D: l9 H
88.     End If
    * d6 H: }0 m8 P; Z3 Z* \! m2 X: i2 O
89.    
    
90.     ' 刷新视图
    
91.     ThisDrawing.Regen True
    
92.    
    , Q& L2 H: x; D+ e9 |6 [
93.     ' 提示用户
    
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    5 n  g, t' f% g) T& ^- D
95. End Sub

复制代码

. O5 V8 B. P4 c4 {. @

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
首先怎么保证AI模型的回答不会有幻觉，你保证不了。
$ g5 A/ m$ C2 |其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂

寰宇无人

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

zhl6200

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