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

laotoule8

用了deepseek写的VBA代码用在CAD，挺好用的。有没有其他的方便CAD使用的deepseek的例子推荐一下？
: q, H$ u% n& G6 u& V7 R: O

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   
3.     Dim lineObj As Object
   5 F' t- m  R. H" J& x& o' ?7 a  n
4.     Dim startPoint As Variant
   
5.     Dim endPoint As Variant
   
6.     Dim rectWidth As Double
   9 v7 A0 ?$ C6 c4 V) U# L0 Z/ [
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   ; k" r( I0 m+ q6 `$ j
9.     Dim rectEndPoint(0 To 2) As Double
   ! s% S, @- \$ e( d1 \
10.     Dim rotationAngle As Double
    
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 ' 复制的矩形对象
    
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    
16.     Dim intersectPoint As Variant ' 交点
    
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    ) h5 z( [* d& P/ c7 Y
19.    
    0 e1 j4 E6 }1 \. B; B6 s5 E
20.     ' 定义矩形的尺寸
    $ D9 I3 q4 O% a; a  b$ s
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    1 v8 T2 C1 ]# T5 S# d
22.     rectHeight = 1  ' 矩形的高度（长边）
    / o4 g/ ?, r, ?/ n/ }
23.    
    
24.     ' 提示用户选择一条直线
    8 B: V' r3 T& x! J
25.     On Error Resume Next
    
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    , s5 s' t* r* f( x- ?" i
27.     On Error GoTo 0
    1 ?7 O; i6 P/ `0 F. D' B& X$ E
28.    
    
29.     ' 检查用户是否选择了直线
    
30.     If lineObj Is Nothing Then
    
31.         MsgBox "未选择直线或选择无效。"
    4 E. o6 k) b& g/ v6 V1 P! g. O
32.         Exit Sub
    
33.     End If
    ' g7 j( ~: Z& R  K! ]: n3 @
34.    
    # H9 M, A1 W% F4 S' @
35.     ' 获取直线的起点和终点
    6 {6 i7 N$ r. C
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    
38.    
    
39.     ' 计算直线的中点
    
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    + g* y& o3 F' S
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    & Q( M9 {8 |- c8 O- h, r# |
43.    
    
44.     ' 计算直线的角度（用于矩形的旋转）
    * t; d- c. a1 e7 Z7 n
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))
    
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    
50.     rectStartPoint(2) = startPoint(2)
    8 N, Q/ L: J* r! Y) l; o9 t  t
51.    
    7 M& a" b' C7 X& n, R0 Z
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    " P  m% D) J' |$ ~
54.     rectEndPoint(2) = rectStartPoint(2)
    # p0 T4 q1 a8 c* u8 x
55.    
    
56.     ' 定义矩形的四个顶点
    
57.     points(0) = rectStartPoint(0)
    6 B2 E+ r( E, S* \! q) B! B
58.     points(1) = rectStartPoint(1)
    * f& F- y" w' A) F# {3 a; z! G9 C
59.     points(2) = rectEndPoint(0)
      `. I, r* b/ T' |
60.     points(3) = rectEndPoint(1)
    % m- |0 J+ [" O4 p: T
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    6 Z) Y9 ?- U- r% p9 T
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    ( X( z( P# ^+ c) m4 P4 V
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
65.    
    . V% c4 h2 Y2 f6 z0 B
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ( W" V* O* j# W$ x2 d9 F4 i+ P
68.    
    : c5 x9 z: Z# y- H) G3 M1 p
69.     ' 创建圆周阵列（手动复制和旋转）
    % M* l: u/ M+ B0 U- H$ q+ o
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    3 g7 j3 o& F# y6 @7 ]3 g
71.     Set newRectObj = rectObj.Copy
    2 A% ^- _) m: ]0 G1 g& k
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    ( H8 f3 q' [% N+ C" y3 S
73.    
    
74.     ' 修剪直线
    2 I  o! E. g) f; @! A- c
75.     ' 查找直线与矩形的交点
    
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    & _% @, a9 d- F5 ~- a% A' b( p( d% |" [
77.     If Not IsEmpty(intersectPoint) Then
    
78.         ' 修剪直线的起点
    " U8 [4 u7 _4 i8 Y
79.         trimStartPoint = intersectPoint
    
80.         lineObj.StartPoint = trimStartPoint
      i( _0 ~# s! E/ o7 `4 c- B
81.     End If
    
82.    
    
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    7 P# s* u& e5 G
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    
86.         trimEndPoint = intersectPoint
    # H* R( a4 U/ D' }8 k3 q& \
87.         lineObj.EndPoint = trimEndPoint
    
88.     End If
    
89.    
    
90.     ' 刷新视图
    
91.     ThisDrawing.Regen True
    ) j8 r  M* L: ~9 R7 Z
92.    
    
93.     ' 提示用户
    
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    
95. End Sub

复制代码

6 x$ ]0 V8 `! [
) G, w% m. r2 h1 Z/ ^1 c6 J

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
6 V+ {- [3 `2 W& J# V首先怎么保证AI模型的回答不会有幻觉，你保证不了。
其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
# M$ {5 Y$ V8 ]最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
) d9 K, W. t6 \4 _) L/ T8 H那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

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

寰宇无人

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

寰宇无人

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

zhl6200

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