機械社區
標題: solidworks二次開發，此直線為何畫不出來？ [打印本頁]
作者: 廣仔依舊 時間: 2014-5-29 00:00
標題: solidworks二次開發，此直線為何畫不出來？
Dim swApp As Object
2 ^0 B, H0 B) T: _) a3 [9 h* o# l9 XDim Part As Object% n' E9 h' N1 _9 g# z
+ ~8 B( X4 L) _7 F5 c# _0 e$ t, M7 UDim boolstatus As Boolean+ h/ Z9 I! s" ], `# i2 `
Dim longstatus As Long, longwarnings As Long" s2 ^" Y+ U2 G$ b
Sub main(). Q; F/ R5 S6 a0 J' Q! M
5 t5 L; X& h7 S% oSet swApp = _
* c4 [5 i2 ~7 X- u& z0 w$ L
- V/ w. ?% U7 o0 H! J8 v P2 NApplication.SldWorks
' ^% K: @+ _0 {$ B- ~Set Part = swApp.ActiveDoc
* p. { x* R8 J4 y5 L/ [1 t$ n1 I
& e. H' H9 `+ _2 n' i6 m p! j" lboolstatus = Part.Extension.SelectByID2("前視基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)3 q |# f' X4 _
Part.SketchManager.InsertSketch True
) m$ k+ z3 }0 W( W5 K, U: v; ]Dim skSegment As Object
8 V( ^- o# }2 E. A7 i# M! u- n
Set skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.5, 0.4, 0#)
' B, o2 p- p7 m0 r/ n2 e; fEnd Sub
) N1 T9 U8 t2 c. V: u( C! @. ^
| 歡迎光臨 機械社區 (http://www.ytsybjq.com/) |
Powered by Discuz! X3.5 |