還有哪些例子可以用DEEPSEEK幫助CAD繪圖的,？

laotoule8

用了deepseek寫的VBA代碼用在CAD,，挺好用的。有沒有其他的方便CAD使用的deepseek的例子推薦一下？
( C5 Y* p9 m7 f$ d* `# r

1. Sub AddRectangleAndArrayAndTrim()
   8 B5 E+ k8 Y$ k; d# Z+ \/ B
2.     ' 聲明變量
   
3.     Dim lineObj As Object
   + H4 l' E) j, p, V/ C: l6 o
4.     Dim startPoint As Variant
   - @2 Y0 @2 g( _9 Q/ ]3 \+ B3 L- \
5.     Dim endPoint As Variant
   " H% K: A" A% M" Q+ A
6.     Dim rectWidth As Double
   
7.     Dim rectHeight As Double
   
8.     Dim rectStartPoint(0 To 2) As Double
   4 j' I, c6 ]. q8 G
9.     Dim rectEndPoint(0 To 2) As Double
   9 M6 s8 F- K  e* ^
10.     Dim rotationAngle As Double
    
11.     Dim rectObj As Object
    ; G1 r9 R* N, S8 V2 L
12.     Dim points(0 To 7) As Double ' 用于存儲矩形的四個頂點
    
13.     Dim centerPoint(0 To 2) As Double ' 直線的中點
    
14.     Dim newRectObj As Object ' 復(fù)制的矩形對象
    
15.     Dim rotationAngleRad As Double ' 旋轉(zhuǎn)角度（弧度）
    6 h0 R/ M* |/ d# b) I5 \4 e# E& B5 O
16.     Dim intersectPoint As Variant ' 交點
    , n7 [6 x. g6 l/ _
17.     Dim trimStartPoint As Variant ' 修剪后的起點
    
18.     Dim trimEndPoint As Variant ' 修剪后的終點
    % ^& k% n; b& Y' ~% P. p
19.    
    
20.     ' 定義矩形的尺寸
    
21.     rectWidth = 0.1 ' 矩形的寬度（短邊）
    
22.     rectHeight = 1  ' 矩形的高度（長邊）
    
23.    
    , R2 G7 @% X+ z# T  Z8 S. V5 K
24.     ' 提示用戶選擇一條直線
    * w. d. g, }$ B% l6 h5 z% Z* D
25.     On Error Resume Next
    
26.     ThisDrawing.Utility.GetEntity lineObj, startPoint, "請選擇一條直線: "
    ( r, I5 |* z3 f! ^! j' c
27.     On Error GoTo 0
    . O8 M# ^8 V) e1 f8 p
28.    
    
29.     ' 檢查用戶是否選擇了直線
    
30.     If lineObj Is Nothing Then
    
31.         MsgBox "未選擇直線或選擇無效,。"
    7 w+ w* f1 N( F, W# E' w( }7 {
32.         Exit Sub
    
33.     End If
    
34.    
    3 T8 G( E2 P, A, y# ?# \
35.     ' 獲取直線的起點和終點
    - b, h% S* b! |  \) K
36.     startPoint = lineObj.StartPoint
    
37.     endPoint = lineObj.EndPoint
    ) x* }9 ?  Q1 e& f/ m/ x6 g
38.    
    8 u  u- g" B* E7 a0 K" B% q1 @+ z! j
39.     ' 計算直線的中點
    ( R5 Z* P3 T. }! `  ~
40.     centerPoint(0) = (startPoint(0) + endPoint(0)) / 2
    / o& O( k& T, y8 \. |6 `
41.     centerPoint(1) = (startPoint(1) + endPoint(1)) / 2
    
42.     centerPoint(2) = (startPoint(2) + endPoint(2)) / 2
    , v% |# ]$ _( h7 r7 A5 P- e- h! u9 j, K8 X
43.    
    7 ]/ x$ ?+ T7 [% U
44.     ' 計算直線的角度（用于矩形的旋轉(zhuǎn)）
    ( B# ^8 |3 @( A) j* Y
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))
    : `& {4 M& B2 ^( s* r- i
49.     rectStartPoint(1) = startPoint(1) - (rectWidth / 2) * Sin(rotationAngle + (3.14159 / 2))
    
50.     rectStartPoint(2) = startPoint(2)
    & S- p) Q6 F- P$ }( g4 q  M
51.    
    
52.     rectEndPoint(0) = rectStartPoint(0) + rectHeight * Cos(rotationAngle)
    ! X# I3 I' A1 c5 ~2 E( i! x) p- h
53.     rectEndPoint(1) = rectStartPoint(1) + rectHeight * Sin(rotationAngle)
    + K0 [  Z( M) \8 Y' ~
54.     rectEndPoint(2) = rectStartPoint(2)
    4 r9 o0 p5 O  o& G/ n  w
55.    
    1 x) O$ _* v6 G, v7 r( R! x
56.     ' 定義矩形的四個頂點
    5 K1 L4 C4 j- m. N
57.     points(0) = rectStartPoint(0)
    / D- \  n4 t6 D" p( q: T
58.     points(1) = rectStartPoint(1)
    
59.     points(2) = rectEndPoint(0)
    
60.     points(3) = rectEndPoint(1)
    % J; W9 c9 W- k3 E, b$ V# U
61.     points(4) = rectEndPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    " _7 a( Q3 c5 a( `
62.     points(5) = rectEndPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    1 G. l4 V( S1 ^  b6 d
63.     points(6) = rectStartPoint(0) + rectWidth * Cos(rotationAngle + (3.14159 / 2))
    
64.     points(7) = rectStartPoint(1) + rectWidth * Sin(rotationAngle + (3.14159 / 2))
    ) S1 I; E# f- r/ p: j1 t
65.    
    * b# e* e" G7 s0 p4 p3 T: U
66.     ' 創(chuàng)建矩形
    7 c0 w" E# V+ x" d7 Y
67.     Set rectObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
68.    
    
69.     ' 創(chuàng)建圓周陣列（手動復(fù)制和旋轉(zhuǎn)）
    
70.     rotationAngleRad = 180 * (3.14159 / 180) ' 將角度轉(zhuǎn)換為弧度
    3 P) z: i. y% d7 U4 _$ g
71.     Set newRectObj = rectObj.Copy
    ! ^! e( W: L$ H0 b* e
72.     newRectObj.Rotate centerPoint, rotationAngleRad
    ( V2 P8 m' d, @
73.    
    
74.     ' 修剪直線
    + j+ k( V# Q1 |: D) b; i
75.     ' 查找直線與矩形的交點
    6 ^# n* C- e7 M0 L4 v: l! t- J7 @
76.     intersectPoint = lineObj.IntersectWith(rectObj, acExtendNone)
    & J, {. G1 i: ~7 ^/ \# K- k
77.     If Not IsEmpty(intersectPoint) Then
    
78.         ' 修剪直線的起點
    
79.         trimStartPoint = intersectPoint
    
80.         lineObj.StartPoint = trimStartPoint
    
81.     End If
    8 ?& m( N* i5 p# |( r7 T: Z4 E
82.    
    ) w7 p+ Q& r/ v
83.     intersectPoint = lineObj.IntersectWith(newRectObj, acExtendNone)
    
84.     If Not IsEmpty(intersectPoint) Then
    / M* s, p1 A) i- N2 k8 M' X
85.         ' 修剪直線的終點
    ; g* G8 t& v8 j
86.         trimEndPoint = intersectPoint
    * N0 {- K. i& R; D5 i. R4 Y
87.         lineObj.EndPoint = trimEndPoint
    
88.     End If
    : N- c( N! i: d& \* s$ S
89.    
    
90.     ' 刷新視圖
    
91.     ThisDrawing.Regen True
    
92.    
    
93.     ' 提示用戶
    
94.     MsgBox "矩形、陣列和修剪操作已完成,！"
    
95. End Sub

復(fù)制代碼

: A& F0 x  J6 b' F$ O
5 {7 n' W( @7 c/ s) W6 K

564156415gdr

blender也可以,。去年試過一次

學(xué)者11

這叫脫褲子放屁,，沒有任何可行性,。
; B  R9 }5 U2 l+ C* g2 G首先怎么保證AI模型的回答不會有幻覺，你保證不了,。
其次怎么保證工程師能識別出AI模型的回答有幻覺,，更保證不了，因為多數(shù)機械工程師不懂代碼,。
最關(guān)鍵的是,，AI模型根本不能直接控制CAD，還需要人手工把代碼復(fù)制粘貼,，CAD才會畫圖,。
那請問為何不能直接讓機械工程師直接畫圖，你既不能提高效率,，又不能節(jié)省人工,，這么騷操作的意義何在。

kayex

這個把簡單的事情復(fù)雜化了

寰宇無人

以前用在SW二次開發(fā)上也行,，主體代碼能用,，但一些自定義需求，以及配置啥的,，自己要懂

寰宇無人

以前用在SW二次開發(fā)上也行,，主體代碼能用，但一些自定義需求,，以及配置啥的,，自己要懂

寰宇無人

想讓他直接出圖，標(biāo)注尺寸,，公差,，工藝這些，還得大量模型喂他,，不過未來的智能化發(fā)展,，誰能說的準(zhǔn)呢

zhl6200

我直接給定齒輪參數(shù)，讓deepseek畫齒輪零件圖,，它明確回答我,，他沒有此功能，只給出了畫圖思路，也許以后會實現(xiàn),。