样条曲线

77 主题	279 帖子	158 金币

侠客

Rank: 3 Rank: 3 Rank: 3

积分: 437

电梯直达

楼主

发表于 2006-6-9 10:28:01 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

经典图书

那位帮着给看看，我写的这个样条曲线错在哪儿了？
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim sketchSpl() As SketchSpline
Dim Px(10) As Double
Dim Py(10) As Double
Dim i As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("前视基准面", &quotLANE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Px(0) = 0
Px(1) = 0.314
Px(2) = 0.628
Px(3) = 0.942
Px(4) = 1.256
Px(5) = 1.57
Px(6) = 1.884
Px(7) = 2.199
Px(8) = 2.513
Px(9) = 2.827
Py(0) = 0
Py(1) = 0.309
Py(1) = 0.587
Py(2) = 0.809
Py(3) = 0.951
Py(4) = 1
Py(5) = 0.951
Py(6) = 0.951
Py(7) = 0.809
Py(8) = 0.587
Py(9) = 0.309
ReDim sketchSpl(10)
For i = 0 To 9
Set sketchSpl() = Part.SketchSpline(i, Px(i), Py(i), 0)
Next i
Part.ViewZoomtofit2
End Sub

基准面, False

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 转播 教程|习题|模型|技巧0 点赞581 拍砖2035

相关帖子

SolidWorks机械工程师网

提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）

使用道具举报

返回列表

手机版|小黑屋| GMT+8, 2024-9-26 00:25 , Processed in 0.162646 second(s), 21 queries , Memcache On.

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

		自动登录	找回密码
密码			立即注册