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

laotoule8

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

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   8 }4 O8 [8 f7 j, [
3.     Dim lineObj As Object
   3 Y2 c% ]  B/ F8 z0 g
4.     Dim startPoint As Variant
   ; t6 o- `" g$ r
5.     Dim endPoint As Variant
   
6.     Dim rectWidth As Double
   
7.     Dim rectHeight As Double
   8 [: h0 q" l! k" `5 x; E
8.     Dim rectStartPoint(0 To 2) As Double
   % D" ?! g% i6 n# b, C! x* G
9.     Dim rectEndPoint(0 To 2) As Double
   
10.     Dim rotationAngle As Double
    , [, ^: }) @3 H/ I' O
11.     Dim rectObj As Object
    
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    + }. j6 o6 J6 U
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 ' 修剪后的终点
    4 B; A! H4 f( _; R7 ?
19.    
    
20.     ' 定义矩形的尺寸
    
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    
22.     rectHeight = 1  ' 矩形的高度（长边）
    - m! q# X2 @4 T
23.    
    
24.     ' 提示用户选择一条直线
    
25.     On Error Resume Next
    9 q  k1 S3 l) l6 R4 W) J4 i
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    & c  {8 c" D1 h
27.     On Error GoTo 0
    2 s4 D0 I+ c3 u
28.    
    : g% T6 x4 h* l2 K; @6 l( R
29.     ' 检查用户是否选择了直线
    
30.     If lineObj Is Nothing Then
    / t+ j: N6 H+ ^
31.         MsgBox "未选择直线或选择无效。"
    
32.         Exit Sub
    
33.     End If
    ' h2 E. ^5 k; _) ]% F$ k
34.    
    
35.     ' 获取直线的起点和终点
    
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    7 h2 ^5 d" L1 N4 ~7 A
38.    
    
39.     ' 计算直线的中点
    " j% e9 z7 o$ V7 _8 m/ s
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    & s+ N; Q; x. `1 p! r$ O
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    
43.    
    
44.     ' 计算直线的角度（用于矩形的旋转）
    
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    ( G/ \, T; X+ u
46.    
    5 a) p1 P0 g( J# H" f
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))
    + R' Y# f" w2 [: b0 F
50.     rectStartPoint(2) = startPoint(2)
    % X' X) h& E" f- P( x9 g7 x
51.    
    ; C4 ~5 B+ D5 o- J4 m/ Y9 m
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    ' [" Q6 ]) w. J8 K% n0 d) O/ Z
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    
54.     rectEndPoint(2) = rectStartPoint(2)
    
55.    
    
56.     ' 定义矩形的四个顶点
    
57.     points(0) = rectStartPoint(0)
    & Q8 M1 A. M) e6 p5 C0 A
58.     points(1) = rectStartPoint(1)
    
59.     points(2) = rectEndPoint(0)
    
60.     points(3) = rectEndPoint(1)
    * P1 u! X$ Z/ c3 W
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))
    
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
65.    
    ; d$ _0 B! `6 s: @% w* K+ v8 ~
66.     ' 创建矩形
    . z, o" U% V( U% r
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    % T; u& s; g. r( h
68.    
    
69.     ' 创建圆周阵列（手动复制和旋转）
    - L& M/ g8 Z$ Q6 b& w6 f0 P
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    
71.     Set newRectObj = rectObj.Copy
    / y7 ]# y- j. M- u3 b# X4 O5 I8 o
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    ; H* O8 u( b' p2 y8 {# O
73.    
    ! b* L% j6 @1 v' H' _2 c, F
74.     ' 修剪直线
    
75.     ' 查找直线与矩形的交点
    . g: a8 r6 W( q
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    
77.     If Not IsEmpty(intersectPoint) Then
    . g4 @2 F* f1 R4 O) W! N0 Q* @- F! }
78.         ' 修剪直线的起点
    
79.         trimStartPoint = intersectPoint
    
80.         lineObj.StartPoint = trimStartPoint
    
81.     End If
    
82.    
    
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    4 z: D5 `- f; G3 }# l4 l  F0 R
84.     If Not IsEmpty(intersectPoint) Then
      }/ I; n2 J8 H' `2 ^
85.         ' 修剪直线的终点
    
86.         trimEndPoint = intersectPoint
    
87.         lineObj.EndPoint = trimEndPoint
    
88.     End If
    ! x0 `. P% ~/ O) N
89.    
    
90.     ' 刷新视图
    7 x9 d  B4 ?, x0 i  u3 s" D
91.     ThisDrawing.Regen True
    & ^+ X  z3 V4 h8 C# w9 P
92.    
    0 }6 o- d( }1 n4 [) ]7 w
93.     ' 提示用户
    
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    
95. End Sub

复制代码

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
  g. b  ^1 G2 f4 W$ Z  G, H首先怎么保证AI模型的回答不会有幻觉，你保证不了。
7 [3 ]: u5 J, V其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
1 M) l8 I1 K# p; W  ]1 J( t最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
/ C- e  [. i: ?" ~. \5 }

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
7 ]* [& a  A! F$ y# o9 x

寰宇无人

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

zhl6200

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