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

laotoule8

用了deepseek写的VBA代码用在CAD，挺好用的。有没有其他的方便CAD使用的deepseek的例子推荐一下？
0 n# {" E, ^% i' l$ {5 U* U6 f5 P9 K

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   ! p8 K. T! l+ C' M# d2 o( K
3.     Dim lineObj As Object
   
4.     Dim startPoint As Variant
   
5.     Dim endPoint As Variant
   
6.     Dim rectWidth As Double
   0 M+ L3 X" f* G+ E4 i
7.     Dim rectHeight As Double
   ' B9 w% e6 O/ U7 A' j" q
8.     Dim rectStartPoint(0 To 2) As Double
   & |9 L* f( q) Y
9.     Dim rectEndPoint(0 To 2) As Double
   
10.     Dim rotationAngle As Double
    ! @: b3 c& P* A; J5 \; L
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 ' 复制的矩形对象
    9 y( i8 X* o+ ~
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    : m' @1 e. v- t# b
16.     Dim intersectPoint As Variant ' 交点
    # F0 [8 Z$ V+ ~( p7 B' s
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    ( O# w0 ]# ~, Y. y
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    3 u! k, D1 x% ^% Y+ B4 G! Z" ]3 l# D: J
19.    
    # h3 K0 s, x& K& g' F/ ]. u
20.     ' 定义矩形的尺寸
    
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    1 I0 O- Q2 y0 D" c4 l
22.     rectHeight = 1  ' 矩形的高度（长边）
    
23.    
    8 H) D4 |) s8 I  k. ?: d( e* G) E
24.     ' 提示用户选择一条直线
    
25.     On Error Resume Next
    0 ^. k0 G, V( D4 W7 f
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    
27.     On Error GoTo 0
    
28.    
    * n2 V2 W. f2 ?% Y  Q0 k0 E# Y
29.     ' 检查用户是否选择了直线
    - r  F2 Y2 f5 `3 X5 w) Z, h
30.     If lineObj Is Nothing Then
    
31.         MsgBox "未选择直线或选择无效。"
    
32.         Exit Sub
    
33.     End If
    0 A0 ]  e3 [5 e) P/ X
34.    
    
35.     ' 获取直线的起点和终点
    
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    
38.    
    # U& m* ~6 {4 |6 Y; j
39.     ' 计算直线的中点
    : Y6 F/ E% ^( a1 y$ K
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    $ N) U3 v# e6 v+ j) r; I
43.    
    * Q7 h; V$ {. \1 D5 x. F4 q5 m
44.     ' 计算直线的角度（用于矩形的旋转）
    
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))
    $ ^" {3 _" V" j. ?9 E) E' x9 V3 U
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    
50.     rectStartPoint(2) = startPoint(2)
    " [$ c! L* ^" C1 `, R$ \
51.    
    
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    / F* B$ T4 M, R. n2 c# z
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    
54.     rectEndPoint(2) = rectStartPoint(2)
    
55.    
    
56.     ' 定义矩形的四个顶点
    
57.     points(0) = rectStartPoint(0)
    * e4 J' }& Y) E7 _$ T0 w9 l( j1 p' q
58.     points(1) = rectStartPoint(1)
    - M8 G8 ~7 \$ o6 m7 U6 ?
59.     points(2) = rectEndPoint(0)
    % T" q: S+ m9 S+ D- G& d2 x
60.     points(3) = rectEndPoint(1)
    
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    2 j; ~+ {3 _* T& O  i" P
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    , g8 R' [% }+ D, G* t
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
65.    
    . y2 g1 q4 i+ c9 t, b* {+ \) n' a
66.     ' 创建矩形
    3 W( m0 U" i$ Q- |( a7 q
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ' r3 p7 h0 N2 c7 C. S5 I
68.    
    8 l8 k( {; M& Z( x
69.     ' 创建圆周阵列（手动复制和旋转）
    6 w  L5 J* W0 q, ~1 v
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    0 U# ]7 ?) P/ x* g
71.     Set newRectObj = rectObj.Copy
    
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    
73.    
    $ H" O, [2 m% u
74.     ' 修剪直线
    
75.     ' 查找直线与矩形的交点
    
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    
77.     If Not IsEmpty(intersectPoint) Then
    8 s4 ?$ i. ^$ V7 [, r" p
78.         ' 修剪直线的起点
    
79.         trimStartPoint = intersectPoint
    3 Z+ e$ b/ P4 N1 Y( `, Q
80.         lineObj.StartPoint = trimStartPoint
    
81.     End If
    
82.    
    9 ~' G! ^% O* j$ q' y8 U
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    
86.         trimEndPoint = intersectPoint
    
87.         lineObj.EndPoint = trimEndPoint
    ! T; \! y1 t/ v0 F5 v2 e$ b* ^
88.     End If
    
89.    
    
90.     ' 刷新视图
    
91.     ThisDrawing.Regen True
    ( j9 ^2 |9 H7 E* J- T
92.    
    % i& n% b5 @- P# o" K1 F. t5 y
93.     ' 提示用户
    
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    
95. End Sub

复制代码

# D9 n& N( @8 f' H! u
! U. }- N' A: A4 f

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
首先怎么保证AI模型的回答不会有幻觉，你保证不了。
. n& K( [4 K0 Z其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
3 J4 J- T. N- [' m" V最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
8 M- s+ f: T% m" q那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

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

寰宇无人

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

寰宇无人

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

zhl6200

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