找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 3045|回复: 0

solidworks二次开发,此直线为何画不出来?

[复制链接]
发表于 2014-5-29 00:00:50 | 显示全部楼层 |阅读模式
Dim swApp As Object
! `5 E3 R* Q  D" F3 m7 F0 D, Y! UDim Part As Object
1 E1 m7 N- q5 i9 g% `2 Z5 _. R/ V/ `( G
Dim boolstatus As Boolean
' w9 V0 F! m5 N" SDim longstatus As Long, longwarnings As Long
+ h9 d7 p- A$ cSub main()
/ C9 t$ I: c9 s3 z7 u5 y1 X) P. ]$ b9 V- [& @- c) P: W
Set swApp = _
: F- C' ]$ K2 y& C! G3 x8 o* k. P; ~# g  v2 B! S* v
Application.SldWorks
$ T) r3 @( x2 B% p3 HSet Part = swApp.ActiveDoc- x! x4 l7 Z8 C: ]

& h. |$ P* a" N  `* Q6 Qboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)4 Y# a! U4 M  u7 K, [4 N
Part.SketchManager.InsertSketch True# ?3 ^! f* {! C0 F$ k0 J% o
Dim skSegment As Object
4 A' G( G8 A, u! Q: T4 S0 y. ?
- N+ G$ D% C" m/ [, SSet skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.5, 0.4, 0#)1 j  c0 A% d/ n: s. y
End Sub

, v" v/ E+ {" @% H9 q
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Archiver|手机版|小黑屋|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-7-5 22:49 , Processed in 0.070577 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表