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

laotoule8

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

1. Sub AddRectangleAndArrayAndTrim()
   9 Z* Z- X& D0 T% @" n
2.     ' 声明变量
   + I* n/ n% `% |" Y6 f9 k; z1 U+ b
3.     Dim lineObj As Object
   
4.     Dim startPoint As Variant
   + G0 I9 Z6 L- e- ], Q9 h# w4 a. C6 B
5.     Dim endPoint As Variant
   
6.     Dim rectWidth As Double
   
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   0 Y* ~! i/ X/ P, m
9.     Dim rectEndPoint(0 To 2) As Double
   5 R" C/ H' x" J
10.     Dim rotationAngle As Double
    ' E1 ?# D$ F3 n) X, g
11.     Dim rectObj As Object
    6 Q4 T5 E$ |" T0 r/ B8 U
12.     Dim points(0 To 7) As Double ' 用于存储矩形的四个顶点
    8 ?/ F, `+ ~' l
13.     Dim centerPoint(0 To 2) As Double ' 直线的中点
    
14.     Dim newRectObj As Object ' 复制的矩形对象
    9 q6 O# [, b& c+ v
15.     Dim rotationAngleRad As Double ' 旋转角度（弧度）
    
16.     Dim intersectPoint As Variant ' 交点
    : N  }& N( g. K2 E4 ]2 r( c* J0 @
17.     Dim trimStartPoint As Variant ' 修剪后的起点
    
18.     Dim trimEndPoint As Variant ' 修剪后的终点
    . v2 B$ M1 \) @% Y$ E
19.    
    6 v: T0 s# z& i: ~
20.     ' 定义矩形的尺寸
    ) s3 ]- d) O+ M* T8 k
21.     rectWidth = 0.1 ' 矩形的宽度（短边）
    ' v2 ^" Z2 y, P# i( B+ X. y4 ^# M  U" d
22.     rectHeight = 1  ' 矩形的高度（长边）
    ; c6 o7 B2 U1 _4 s
23.    
    5 V( d0 h+ o. r1 Q$ S9 a1 A& o6 A  @
24.     ' 提示用户选择一条直线
    
25.     On Error Resume Next
    
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "请选择一条直线: "
    
27.     On Error GoTo 0
    
28.    
    * q) u2 J* A. u; h
29.     ' 检查用户是否选择了直线
    ' A6 y. c& m2 s5 q# X
30.     If lineObj Is Nothing Then
    ( _+ C% P: i" L- j4 p5 v- Z
31.         MsgBox "未选择直线或选择无效。"
    & e3 q) \* a" z$ c% Q$ \
32.         Exit Sub
    
33.     End If
    # i! T6 }5 Z2 o; Y3 T1 U. q6 u
34.    
    0 w* Q  E/ J, a6 ?
35.     ' 获取直线的起点和终点
    
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    
38.    
    6 e4 Y1 x! s4 Z0 x
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
    ) Y  I# E# U$ L# V
43.    
    
44.     ' 计算直线的角度（用于矩形的旋转）
    
45.     rotationAngle = Atn((endPoint(1) - startPoint(1)) / (endPoint(0) - startPoint(0)))
    4 W" {! O9 e8 Y+ i: n5 ~0 M
46.    
    ; Y0 U3 m; q0 F* ]( W, L+ z
47.     ' 计算矩形的起点和终点
    
48.     rectStartPoint(0) = startPoint(0) - (rectWidth / 2) * Cos(rotationAngle + (3.14159 / 2))
    7 f! c7 E" \- y4 L5 {- N' r
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    
50.     rectStartPoint(2) = startPoint(2)
    
51.    
    
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    8 B: o! ~4 T* U
54.     rectEndPoint(2) = rectStartPoint(2)
    
55.    
    ) j$ Q" Q/ A3 A0 M, c7 ?
56.     ' 定义矩形的四个顶点
    1 Z+ J, u. S  i6 e8 o. R' X
57.     points(0) = rectStartPoint(0)
    
58.     points(1) = rectStartPoint(1)
    5 F/ [5 x1 R: D- Z# w
59.     points(2) = rectEndPoint(0)
    
60.     points(3) = rectEndPoint(1)
    
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    ) y( N* e/ D. {( Z- ~$ ?
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    9 U# o$ n& e/ H& @8 r) K" @* [
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    
65.    
      w' ?$ H  n3 `" E; U
66.     ' 创建矩形
    
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    3 C0 V8 V( t9 F+ P
68.    
    ( Q1 E# P# g4 L! K: X
69.     ' 创建圆周阵列（手动复制和旋转）
    
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 将角度转换为弧度
    + {  @, Q" x& j! y: q
71.     Set newRectObj = rectObj.Copy
    ' q* l7 I$ \  c7 l/ d
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    ! @- H# ?' E; s% D5 L
73.    
    
74.     ' 修剪直线
    
75.     ' 查找直线与矩形的交点
    $ p4 K. d/ B* \2 }1 _) D8 N$ d0 l
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    + T$ S9 O7 t' k! g; m! _
77.     If Not IsEmpty(intersectPoint) Then
    / _& @3 a0 I. ?* B+ I2 M
78.         ' 修剪直线的起点
    
79.         trimStartPoint = intersectPoint
    + }4 v2 j* h8 e6 K
80.         lineObj.StartPoint = trimStartPoint
    
81.     End If
    ( G4 k) [" F/ m% y+ u( N& T6 A) Y
82.    
    
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    6 f2 N! I* n6 h/ h/ u5 S0 d
84.     If Not IsEmpty(intersectPoint) Then
    
85.         ' 修剪直线的终点
    ! W. @5 R+ e) p8 T/ \# k4 `. S( y/ V6 f
86.         trimEndPoint = intersectPoint
    
87.         lineObj.EndPoint = trimEndPoint
    ! f" G5 P' `6 G' r- }
88.     End If
    " ?7 _* _7 m. P- @+ b, W
89.    
    
90.     ' 刷新视图
    & [$ k. d. }) @1 ?/ |0 I
91.     ThisDrawing.Regen True
    
92.    
    
93.     ' 提示用户
    1 _; ~. [4 b; R, N" Z9 u! H
94.     MsgBox "矩形、阵列和修剪操作已完成！"
    * m" a+ d$ @) R1 Z: a$ p6 K
95. End Sub

复制代码

564156415gdr

blender也可以。去年试过一次

学者11

这叫脱裤子放屁，没有任何可行性。
- A8 o1 F  |( a% Y# ^首先怎么保证AI模型的回答不会有幻觉，你保证不了。
其次怎么保证工程师能识别出AI模型的回答有幻觉，更保证不了，因为多数机械工程师不懂代码。
最关键的是，AI模型根本不能直接控制CAD，还需要人手工把代码复制粘贴，CAD才会画图。
那请问为何不能直接让机械工程师直接画图，你既不能提高效率，又不能节省人工，这么骚操作的意义何在。

kayex

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

寰宇无人

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

寰宇无人

以前用在SW二次开发上也行，主体代码能用，但一些自定义需求，以及配置啥的，自己要懂
! B8 a5 h: M2 D! I0 d% B- `

寰宇无人

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

zhl6200

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