CreateCircleByRadius2

xiaoma2006 · 发表于 2011-8-9 14:56:40

经典图书

Syntax (OLE Automation)
retval = ModelDoc2.CreateCircleByRadius2 ( xc, yc, zc, radius )
Input:
(double) xc
X value of the circle center point in meters
Input:
(double) yc
Y value of the circle center point in meters
Input:
(double) zc
Z value of the circle center point in meters
Input:
(double) radius
radius of the circle in meters
Return:
(LPDISPATCH) retval
Pointer to the Dispatch object of the circle that was created
--------------------------------
语法测试结果
Set Part = swApp.ActiveDoc
'Set SelMgr = Part.SelectionManager
Dim xc As Double, yc As Double, zc As Double, Radius As Double
xc = 0.2
Radius = 25 / 2 / 1000
With Part
.CreateCircle -0.026, 0, 0, -0.016, 0, 0
.CreateCircleByRadius2 xc, yc, zc, Radius
End With
------------------------
小结
CreateCircle→宏录制的结果
CreateCircleByRadius2→符合习惯用法.

tjzhjx · 发表于 2011-8-9 15:02:52

感谢分享！学习了！

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

CreateCircleByRadius2

相关帖子