2013-09-24 明经AutoCAD.VBA编程(45054712) 群聊记录：谢谢

明经快报

新儿 08:32:47

谢谢

明经快报

Kevin 13:56:21

Kevin 13:59:13

各位好，我要开发一个软件，能够读取一系列dwg图纸并分析图纸内容来校验图纸的正确性，用什么比较好啊？

明经快报

[VBA/VB/C#]efan2000 14:23:36

Sub test()
    Dim vl(0 To 7) As Double
    vl(2) = 20
    vl(4) = 20
    vl(5) = 10
    vl(7) = 10
    Dim lwp As AcadLWPolyline
    Set lwp = ThisDrawing.ModelSpace.AddLightWeightPolyline(vl)
    'lwp.Closed = True
    Debug.Print Now
    Dim mc As mcArxProject1Lib.Curve
    Set mc = New mcArxProject1Lib.Curve
    Dim p(0 To 2) As Double
    Dim v As Variant
    Debug.Print "getArea: " & mc.getArea(lwp)
    Debug.Print "getDistAtParam: " & mc.getDistAtParam(lwp, 2)
    p(0) = 10
    v = p
    Debug.Print "getDistAtPoint: " & mc.getDistAtPoint(lwp, v)
    Debug.Print "getEndParam: " & mc.getEndParam(lwp)
    v = mc.getEndPoint(lwp)
    Debug.Print "getEndPoint: " & v(0) & "," & v(1)
    Debug.Print "getParamAtDist: " & mc.getParamAtDist(lwp, 10)
    Debug.Print "getParamAtPoint: " & mc.getParamAtPoint(lwp, v)
    v = mc.getPointAtDist(lwp, 10)
    Debug.Print "getPointAtDist: " & v(0) & "," & v(1)
    v = mc.getPointAtParam(lwp, 2)
    Debug.Print "getPointAtParam: " & v(0) & "," & v(1)
    Debug.Print "getStartParam: " & mc.getStartParam(lwp)
    v = mc.getStartPoint(lwp)
    Debug.Print "getStartPoint: " & v(0) & "," & v(1)
    Debug.Print "isClosed: " & mc.isClosed(lwp)
    Debug.Print Now
End Sub

2013-9-24 14:22:41 
getArea: 200
getDistAtParam: 30
getDistAtPoint: 10
getEndParam: 3
getEndPoint: 0,10
getParamAtDist: .5
getParamAtPoint: 3
getPointAtDist: 10,0
getPointAtParam: 20,10
getStartParam: 0
getStartPoint: 0,0
isClosed: False
2013-9-24 14:22:41

明经快报

罗哲兴 16:21:36

[qqimg]201309/{E4570435-B52C-8007-FA07-84CACC8CC263}.jpg[/qqimg]

[VB&.NET]ppyyff 16:24:11

你在做三维

明经快报

有声 16:55:59

[qqimg]201309/{8754CD67-C095-F062-5B89-FA89A3705926}.jpg[/qqimg]

肯尼亚恐袭：头号嫌犯白寡妇

[VB&.NET]ppyyff 16:57:23

挺漂亮的

明经快报

鬼迋絀差 21:26:49

谁有这个插件啊chartfx7