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

laotoule8

用了deepseek写的VBA代码用在CAD，挺好用的。有没有其他的方便CAD使用的deepseek的例子推荐一下？
) F& E) U3 ?: b) X; T4 o# ~

1. Sub AddRectangleAndArrayAndTrim()
   
2.     ' 声明变量
   0 j( c; N" w5 B8 x5 W1 M
3.     Dim lineObj As Object
   
4.     Dim startPoint As Variant
   . B2 U) ^) Z  m( T5 ~' N$ ]1 P5 m
5.     Dim endPoint As Variant
   : q% t% l% `5 l# S5 [2 z, Q9 f
6.     Dim rectWidth As Double
   
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   " {/ d! |, d0 Q9 ?) M, N! A: ^
9.     Dim rectEndPoint(0 To 2) As Double
   2 ]8 t! A( K8 z8 y
10.     Dim rotationAngle As Double
    ; |; Q# |7 f9 l
11.     Dim rectObj As Object
    
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    0 w# x1 P* f* b- K) e  y2 r
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    - Q9 U$ S# d  u0 T7 K' f( i& r8 m
14.     Dim newRectObj As Object ' 复制的矩形对象
    ) y) N; ]! B6 x
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    $ m0 m: G" ?6 y- h* `
16.     Dim intersectPoint As Variant ' 交点
    9 Y' s+ Y8 ]& H' n* B& r
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    - }* S6 t/ O: i$ w% u
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    
19.    
    
20.     ' 定义矩形的尺寸
    + f/ Y% S/ u) R$ `
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    
22.     rectHeight = 1  ' 矩形的高度（长边）
    
23.    
    
24.     ' 提示用户选择一条直线
    + _; e  N3 X4 y( e. o: o  M
25.     On Error Resume Next
    , V) g, ?  x7 b5 i: |, g+ u
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    ( ^7 E/ M5 ?8 m/ X8 O+ Z
27.     On Error GoTo 0
    
28.    
    3 f3 X# G! Z3 ~" o
29.     ' 检查用户是否选择了直线
    
30.     If lineObj Is Nothing Then
    ) N* }2 |  [$ `" W
31.         MsgBox "未选择直线或选择无效。"
    4 |- u4 c3 A2 s% w  [7 ^, R
32.         Exit Sub
    
33.     End If
    3 S9 ^' J/ l4 g+ h0 a# g
34.    
    * x3 l" W5 ^9 _: b7 V% o& S# D
35.     ' 获取直线的起点和终点
    
36.     startPoint = lineObj.StartPoint
    . `# k; f1 q- Q6 z7 E
37.     endPoint = lineObj.EndPoint
    
38.    
    2 }  A1 Y$ G" j; z# R, a" _9 D
39.     ' 计算直线的中点
    
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    ; o, X7 o. ~* a" T6 V2 L; R6 U) D
43.    
    
44.     ' 计算直线的角度（用于矩形的旋转）
    ( n( q5 Z$ o' [5 Z1 }- U
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    ( x  q$ h9 o/ }0 I" C; k0 d
46.    
    4 n5 h$ Z& y$ l, ^0 _+ q- F
47.     ' 计算矩形的起点和终点
    ) k0 z' _0 H" ^
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)
    ' Y. U/ A1 O, \6 n- [* ]9 f. Y
51.    
    
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    . x. m0 z' L9 K# _+ Q- w
54.     rectEndPoint(2) = rectStartPoint(2)
    5 z* o. P# _( A
55.    
    
56.     ' 定义矩形的四个顶点
    
57.     points(0) = rectStartPoint(0)
    
58.     points(1) = rectStartPoint(1)
    & A: [, f1 f0 N) c! `
59.     points(2) = rectEndPoint(0)
    % Q# w% }# f9 h7 ^# p
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))
    # W1 z4 J$ J7 T/ `- X
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    ! ^; f: x9 X: f9 M0 [1 a! P, b6 K; s
65.    
    1 X! |( n5 Q( f
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
68.    
    $ Y6 Y, h  K  U* C  H- n5 {4 v
69.     ' 创建圆周阵列（手动复制和旋转）
    / z  M9 g2 \9 J$ }. ]  P
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    ; X0 ^: l  W2 W! S
71.     Set newRectObj = rectObj.Copy
    
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    / E0 e3 u6 g! l' P+ _9 I
73.    
    2 L- W: Q9 @6 M
74.     ' 修剪直线
    
75.     ' 查找直线与矩形的交点
    
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    4 ^% z8 W6 v8 G; @2 I2 [/ K9 B
77.     If Not IsEmpty(intersectPoint) Then
    
78.         ' 修剪直线的起点
    ( V4 @; s; {  o2 q! s5 }4 `3 K
79.         trimStartPoint = intersectPoint
    : Q: }9 l. \9 W1 z) e
80.         lineObj.StartPoint = trimStartPoint
    
81.     End If
    ) }1 V- \+ f: I* J, l9 h8 J
82.    
    
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    / b0 t" o3 o3 f: R( f
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    
86.         trimEndPoint = intersectPoint
    
87.         lineObj.EndPoint = trimEndPoint
    
88.     End If
    7 G% z+ H( }+ _  ~, Q6 l5 v
89.    
    
90.     ' 刷新视图
    1 w) k% O- r3 w7 t3 l) i" E. [
91.     ThisDrawing.Regen True
    : f, }; n6 s' b
92.    
    
93.     ' 提示用户
    ) K) O6 q' ?3 F8 H5 @7 W! |
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    : l* J2 `) M, S. A
95. End Sub

复制代码

( \1 Z, }/ i/ [3 A5 g8 P
5 K" u* G: Z% _% d/ h

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
首先怎么保证AI模型的回答不会有幻觉，你保证不了。
其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
9 ?* P! T  E6 _7 i* c8 n9 J最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
* g3 N: N: Y/ T8 o  {2 Z/ T: [0 n那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

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

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
  c1 ~6 C/ }$ g9 A" H9 u

寰宇无人

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

zhl6200

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