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

laotoule8

用了deepseek写的VBA代码用在CAD，挺好用的。有没有其他的方便CAD使用的deepseek的例子推荐一下？
; D& q  J% {$ D% d  q/ B2 S

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   5 M, R; I7 `, g7 {3 Q8 D9 j" h
3.     Dim lineObj As Object
   
4.     Dim startPoint As Variant
   , u; ?6 f* e$ i; C8 Y
5.     Dim endPoint As Variant
   
6.     Dim rectWidth As Double
   $ j4 I, I, k6 B" P
7.     Dim rectHeight As Double
   " B9 w/ y6 o+ z6 X9 |- V, O
8.     Dim rectStartPoint(0 To 2) As Double
   + p  ^0 f- A8 n
9.     Dim rectEndPoint(0 To 2) As Double
     V2 |$ m: Q0 \6 Y; L
10.     Dim rotationAngle As Double
    4 j* n+ Q6 G: d: I6 {# K
11.     Dim rectObj As Object
    
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    
14.     Dim newRectObj As Object ' 复制的矩形对象
    + X+ n/ Y- Q/ F
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    . u' t( s" o& f3 \8 s5 O
16.     Dim intersectPoint As Variant ' 交点
    
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    - x. J& ~6 d4 x: v2 B8 T: @
19.    
    
20.     ' 定义矩形的尺寸
    
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    
22.     rectHeight = 1  ' 矩形的高度（长边）
    : U% m! Q1 \4 k  N% Q5 c
23.    
    : G8 H5 m: s8 |; ?7 t+ z
24.     ' 提示用户选择一条直线
    6 w( ~& H( _. h# S: |2 P/ h+ G/ ?
25.     On Error Resume Next
    + U# @2 u) h8 o7 n/ T" C
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    / Z7 K" _, {& f5 J7 i, }
27.     On Error GoTo 0
      a9 i7 q- c1 i/ a" u( w; u
28.    
    % X: a2 G7 z1 j
29.     ' 检查用户是否选择了直线
    
30.     If lineObj Is Nothing Then
    . v: t8 c' Q7 R3 K. C' e& O
31.         MsgBox "未选择直线或选择无效。"
    
32.         Exit Sub
    1 n4 }7 w3 p5 ~+ Q
33.     End If
    
34.    
    " E( \3 B/ \8 a& b
35.     ' 获取直线的起点和终点
    + S6 j2 t3 C: @: Q# {" \/ V
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    
38.    
    / Q0 r) z: Q' b/ s' X
39.     ' 计算直线的中点
    
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    1 ?5 J; ]/ G" Y% \6 |! I' q0 ~0 U
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    ) r3 [( i" h6 o6 N; }
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    2 F1 [- g  H: f! K" e! A
43.    
    
44.     ' 计算直线的角度（用于矩形的旋转）
    
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    + a& E5 X) C, t# H
46.    
    3 a1 Q, V* f0 b" N
47.     ' 计算矩形的起点和终点
    
48.     rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))
    - e4 T: j+ w% L* }7 X) ?
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)
      y3 V- A9 D4 j( M8 y
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    
54.     rectEndPoint(2) = rectStartPoint(2)
    + v; g0 e; K% C2 J6 @
55.    
    
56.     ' 定义矩形的四个顶点
    
57.     points(0) = rectStartPoint(0)
    
58.     points(1) = rectStartPoint(1)
    
59.     points(2) = rectEndPoint(0)
    
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))
    
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    . ~# |' z2 Z4 }# b) i7 `; v& e- n
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    & o1 g. s; `3 P5 ^+ Z5 l
65.    
    
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
68.    
    ' Q) |% W% a2 p2 u+ T7 J3 E
69.     ' 创建圆周阵列（手动复制和旋转）
    # o+ ~5 P0 ]* ?) ]4 k* d4 g
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    
71.     Set newRectObj = rectObj.Copy
    
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    * v( Y0 a9 Y3 P
73.    
    
74.     ' 修剪直线
    
75.     ' 查找直线与矩形的交点
    : H5 _, y) U, B  p  N
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    ' r( ~1 ]. m' j. z9 C0 z
77.     If Not IsEmpty(intersectPoint) Then
    8 [1 i( h4 D0 t; f( @
78.         ' 修剪直线的起点
    ! ?: A7 l; N  v% W% w3 c  K" A
79.         trimStartPoint = intersectPoint
    
80.         lineObj.StartPoint = trimStartPoint
    
81.     End If
    
82.    
    
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
      k% I4 @' S5 M' Z4 G
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
      S8 l4 V% R* i
86.         trimEndPoint = intersectPoint
    : o9 ]5 |2 Y3 {! E4 k
87.         lineObj.EndPoint = trimEndPoint
    $ `3 u8 \$ }1 |: V5 l8 \7 w
88.     End If
    # o/ k" ]' ~3 w3 c
89.    
    
90.     ' 刷新视图
    " F! G+ {' g; B5 X3 k/ _. n! Y
91.     ThisDrawing.Regen True
    
92.    
    8 k3 t* ]9 |5 u  |. _3 U; s9 m" u5 x
93.     ' 提示用户
    % P# i' a( }! M6 p
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    
95. End Sub

复制代码

0 W9 w$ H0 _1 C" m9 q" ?- a$ X) h

564156415gdr

blender也可以。去年试过一次

学者11

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

kayex

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

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
1 ^  \- a4 ?9 g' m7 K

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
1 K* `. F& ?' K! Y% @. r) X

寰宇无人

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

zhl6200

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