|
|
发表于 2008-9-12 17:22:29
|
显示全部楼层
这是标题的一部分；VLAX。cls允许开发人员从
&039；Visual Basic或VBA
&039；注：
&039；该类模块的所有代码可通过各种帖子公开获取；在news://discussion.autodesk.com/autodesk.autocad.customization.vba.我没有；仅在此
&039；汇编该代码。此外，还有一个很大的“大”；谢谢你&引用；致西里尔·福维尔；演示VisualLISP ActiveX模块的使用
&039
&039；依赖项：
&039；使用该类模块需要以下应用程序：
&039；1.VisualLISP注意末尾的粗斜体位 ；问题：Autocad是否安装了此VisualLISP应用程序 ；本人'；我已经编写了一些代码，并在这个绘图模块中实例化了VLAX类的一个变量…       ；将VlaxClass设置为VLAX       ；Dim ClosestPt作为变体       ；Dim Idunno作为变体#039；我不知道它是什么#039；将是               
       ；VlaxClass=新VLAX       '（vlax curve GetClosestPoint to curve obj Givennt[扩展]）
       ；VlaxClass。SetLispSymbol“；曲线bj“；，AcadSSet2。第（0）项       ；VlaxClass。SetLispSymbol“；Givennt“；，InsPoint       ；VlaxClass。EvalLispExpression“；（setq ClosestPt（vlax curve getclosestpoint to curve obj givenPnt）"
       ；设置ClosestPt=VlaxClass。GetLispSymbol（“ClosestPt”）'还不确定我'；我会得到       ；设置Idunno=VlaxClass。GetLispList（“ClosestPt”）      '也不确定
我逐步通过代码并在；VlaxClass=新VLAX“；一、；切换到Class module Initialize（类模块初始化）过程，它在以下情况下失败…
Private VL As Object（私有VLF As Object）
Private Sub Class_Initialize（） dist Then Exit For
segment = segment + 1
Next
SelectedSegment = segment
End Function
'This is just a sample of how to use the mid & perp functions
Sub mid_perp_Sample()
Dim oEnt1 As AcadEntity
Dim oEnt2 As AcadEntity
Dim pick As Variant
Dim point1 As Variant
Dim point2 As Variant
ThisDrawing.Utility.GetEntity oEnt1, pick, vbCrLf & "Select entity to calc mid point of: "
ThisDrawing.Utility.GetEntity oEnt2, pick, vbCrLf & "Select entity to go perpendicular to: "
point1 = mid_Of(oEnt1)
point2 = PerpendicularTo(oEnt2, point1)
ThisDrawing.ModelSpace.AddLine point1, point2
End Sub
[/code]
HTH |
|
置顶卡
