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

laotoule8

用了deepseek写的VBA代码用在CAD，挺好用的。有没有其他的方便CAD使用的deepseek的例子推荐一下？
! o) }" O" D$ W  m, X

1. Sub AddRectangleAndArrayAndTrim()
   ) W1 C; N+ P4 q. [
2.     ' 声明变量
   1 g0 c* O  W  b
3.     Dim lineObj As Object
   
4.     Dim startPoint As Variant
   * O; T& Y. t% }2 |' g8 ^* u  G
5.     Dim endPoint As Variant
   
6.     Dim rectWidth As Double
   % y) d/ J3 _& O. N9 S& [3 M
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   
9.     Dim rectEndPoint(0 To 2) As Double
   $ o8 m+ `' L2 Q. B0 n
10.     Dim rotationAngle As Double
      |1 T& r# ^4 _3 D' ]: h. Q% H+ j8 I% \* T
11.     Dim rectObj As Object
    3 d$ v' m/ A/ ]; c/ P8 |: U- L
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    : A& E8 q) c6 }* I4 ]3 r
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    
14.     Dim newRectObj As Object ' 复制的矩形对象
    
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    0 f) z# p; V; V. j" H+ E6 M; z, W
16.     Dim intersectPoint As Variant ' 交点
    
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    # p" f8 f% {- V8 D, e: y* X7 P0 a
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    
19.    
    
20.     ' 定义矩形的尺寸
    - q) P6 N8 ]( w( ?
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    
22.     rectHeight = 1  ' 矩形的高度（长边）
    ) J3 s7 @4 Q1 T* @" k  z
23.    
    " Z. P+ w4 o' l' R8 @
24.     ' 提示用户选择一条直线
    9 T- x6 c% P* J5 ~! k2 a) W, Q
25.     On Error Resume Next
    ' R7 p% k8 r4 ^3 C. e" i1 q, G
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    
27.     On Error GoTo 0
    : o& g" t3 c; w1 O. o0 J  U' o& h$ F
28.    
    
29.     ' 检查用户是否选择了直线
    6 v) N$ L/ H8 j
30.     If lineObj Is Nothing Then
    ( J! ?; c: ~  ]& [
31.         MsgBox "未选择直线或选择无效。"
    ) u' ^) _2 i: o  l! V
32.         Exit Sub
    ( w5 ?% x) x* F# h
33.     End If
    . y7 Y, n0 g3 D
34.    
    * _& [) o9 ^9 B6 I( O
35.     ' 获取直线的起点和终点
    
36.     startPoint = lineObj.StartPoint
    - t- o- j1 l% j8 `% s  l, b8 p
37.     endPoint = lineObj.EndPoint
    , A! f1 D. B6 M$ v, b, |. Z$ t/ j
38.    
    
39.     ' 计算直线的中点
    7 Q, m2 `4 Q- ^, U4 [0 V
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    & ^* R2 }1 {* S* T& J5 e
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    6 S7 i: F2 s" z+ N2 t
43.    
    6 I& D$ d! O3 L' ?( x( i$ d* ^
44.     ' 计算直线的角度（用于矩形的旋转）
    
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    ) \' V3 S! }$ p2 i1 S+ b/ y. O
46.    
    
47.     ' 计算矩形的起点和终点
    6 X  m, t7 t- {8 g
48.     rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))
    
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    
50.     rectStartPoint(2) = startPoint(2)
    
51.    
    
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    & v9 L& @. G3 {
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    . ~6 x$ s+ H7 N- _9 V* f, h
54.     rectEndPoint(2) = rectStartPoint(2)
    $ F8 q  r) r; D0 x: e" _2 U9 K, O9 V
55.    
    
56.     ' 定义矩形的四个顶点
    
57.     points(0) = rectStartPoint(0)
    * D, j4 G5 g* D* J
58.     points(1) = rectStartPoint(1)
    
59.     points(2) = rectEndPoint(0)
    - W$ R- g1 D& ]7 E. v
60.     points(3) = rectEndPoint(1)
    
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    " g8 M6 m9 ?# R( y' H' D
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    # W8 r% [; f3 X. f" P  O, I
65.    
    
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
68.    
    ( h: g8 t% g1 v8 c& _1 M! z  J
69.     ' 创建圆周阵列（手动复制和旋转）
    : T' M1 Y, i) j
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    
71.     Set newRectObj = rectObj.Copy
    
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    
73.    
    - C" S2 C# ?2 O- W0 C4 j' g6 Q! j
74.     ' 修剪直线
    & _+ j' i, S6 e! {! e. T- F
75.     ' 查找直线与矩形的交点
    ; ~. z! s4 I/ T
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    
77.     If Not IsEmpty(intersectPoint) Then
    * Q, Q, d7 z: \
78.         ' 修剪直线的起点
    7 y1 C8 d6 R' N" F+ @! q( r
79.         trimStartPoint = intersectPoint
    1 P# }& s4 j# b& ]
80.         lineObj.StartPoint = trimStartPoint
    $ h9 ^) N2 ^, }
81.     End If
    
82.    
    2 o; j6 M! Z+ {4 {
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    
86.         trimEndPoint = intersectPoint
    
87.         lineObj.EndPoint = trimEndPoint
    , u# A# \( E7 S; P# ^( o
88.     End If
    
89.    
    
90.     ' 刷新视图
    - J3 x( d0 W# j
91.     ThisDrawing.Regen True
    + h* }/ H2 I& l
92.    
    
93.     ' 提示用户
    2 G! e4 ~4 z- Y
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    
95. End Sub

复制代码

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
首先怎么保证AI模型的回答不会有幻觉，你保证不了。
其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
- P. W3 G2 |+ b* w, f2 y8 Q最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
3 Y3 b  B. [! O7 W  [2 S# m) I# k那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

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

寰宇无人

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

寰宇无人

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

zhl6200

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