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

laotoule8

用了deepseek写的VBA代码用在CAD，挺好用的。有没有其他的方便CAD使用的deepseek的例子推荐一下？
  y, X8 J/ H  n! T$ C7 n

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   
3.     Dim lineObj As Object
   / Y6 k3 C+ q& N4 ?0 _
4.     Dim startPoint As Variant
   5 J3 r, x. }1 h
5.     Dim endPoint As Variant
   2 ]! {; ^/ u; a# k4 Z( ~
6.     Dim rectWidth As Double
   ( t2 w9 j" ?2 D$ Q/ ?6 g0 R* Z
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   ) q4 T/ C: y6 ^  w7 v
9.     Dim rectEndPoint(0 To 2) As Double
   8 l# k+ X. \, u# g  B- J
10.     Dim rotationAngle As Double
    : u, ?+ ~9 f2 _% _) }, z9 X
11.     Dim rectObj As Object
    
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    ' ~$ o8 D2 w) q# P
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    # l4 \/ ]9 {. P5 m
14.     Dim newRectObj As Object ' 复制的矩形对象
    8 A2 J4 z, Q6 l) Q$ e4 o/ A# u
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    
16.     Dim intersectPoint As Variant ' 交点
    8 S' n) d# a4 N9 K5 ?
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    $ I1 B% G. k/ G' p* f, G6 g
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    . o) c7 h/ k( ^, N* @
19.    
    ! ^) u0 _" l5 v! @
20.     ' 定义矩形的尺寸
    # z+ t; ^5 K+ N0 W4 k# n
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    
22.     rectHeight = 1  ' 矩形的高度（长边）
    6 X) w' \- m4 t4 w) i
23.    
    ; f% o% o; |9 P  V) e& P7 U. Z/ q
24.     ' 提示用户选择一条直线
    8 t0 d* s) ?2 A5 G* j7 x
25.     On Error Resume Next
    
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    5 ~/ _' \) O7 a! O! E/ u7 \
27.     On Error GoTo 0
    8 b3 [6 R8 V9 B0 {; @/ T2 y
28.    
    ! X7 P/ ~( t  u0 n
29.     ' 检查用户是否选择了直线
    
30.     If lineObj Is Nothing Then
    8 y5 g/ N/ e$ ^. a
31.         MsgBox "未选择直线或选择无效。"
    6 z8 N- X2 n, V* G1 D. V7 M8 k  s1 ?
32.         Exit Sub
    , c" p: C1 w3 Z) Y! i
33.     End If
    
34.    
    
35.     ' 获取直线的起点和终点
    
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    
38.    
    
39.     ' 计算直线的中点
    ( O) D6 v$ L. p* Y
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    ! R5 g: |% |0 p+ v; C1 |
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    
43.    
    2 W7 F2 w# I6 \+ u( B5 S" e
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))
    + s) N; ^( b7 W& M6 e
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    6 F# w) }* U0 V
50.     rectStartPoint(2) = startPoint(2)
    
51.    
    
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    
54.     rectEndPoint(2) = rectStartPoint(2)
    ) ]3 D# Y, v  F! H* `- }
55.    
    : C, t" K# j; c, b- x
56.     ' 定义矩形的四个顶点
    " W5 L+ ]+ Z7 Y' s( y
57.     points(0) = rectStartPoint(0)
    5 z: O' r, U- ~1 |9 G
58.     points(1) = rectStartPoint(1)
    # T1 M$ _- B! e' N) \
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))
    
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
65.    
    
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    / m$ x8 x, I) ^, ?- Y, d" X/ }
68.    
    
69.     ' 创建圆周阵列（手动复制和旋转）
    
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    
71.     Set newRectObj = rectObj.Copy
    + o# ?$ b- D5 @2 ?5 G9 z
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    
73.    
    
74.     ' 修剪直线
    0 [+ x' d7 e- a& H
75.     ' 查找直线与矩形的交点
    9 v4 D1 e# P% F3 R
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    
77.     If Not IsEmpty(intersectPoint) Then
    0 F/ A- _2 A$ Q. s
78.         ' 修剪直线的起点
    8 r( I8 R% L9 [, f. H$ B
79.         trimStartPoint = intersectPoint
    / W" J/ l2 m$ g0 \4 @
80.         lineObj.StartPoint = trimStartPoint
    6 @) R1 v" {( m/ i6 v* k& k
81.     End If
    
82.    
    7 N/ H& P: }9 Z6 ^2 \6 u( t9 ^7 L
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    % i3 y1 L  Y/ e: V/ }
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    
86.         trimEndPoint = intersectPoint
    8 `* i; f3 Z0 j) C- K" O
87.         lineObj.EndPoint = trimEndPoint
    
88.     End If
    
89.    
    
90.     ' 刷新视图
    + n4 k) P1 ~  T9 B. f
91.     ThisDrawing.Regen True
    $ I- g# g, i" O  C2 t
92.    
    
93.     ' 提示用户
    
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    ! M5 ^, K7 K( |4 F+ P6 ~
95. End Sub

复制代码

& [  [5 u) o2 o1 G* v

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
首先怎么保证AI模型的回答不会有幻觉，你保证不了。
, F6 J: N# P$ ^* y  t其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
" b  K4 _- |6 e* |最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
, b: P9 o) k1 B+ V3 K那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

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

寰宇无人

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

寰宇无人

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

zhl6200

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