兰州人 发表于 2008-7-24 13:14:00

XLAX类模块在哪里下载？

<p><a href="http://www.mjtd.com/e-zine/list04.htm">http://www.mjtd.com/e-zine/list04.htm</a></p><p>有这么如下描述，问XLAX类模块在哪里下载？</p><p></p><p>要使用以下代码，你必须将XLAX类模块输入到你的工程中。如果你还没有，可以在本站下载。</p><p><font color="#000080">Public Sub AddXdataToVertices()</font></p><p><font color="#000080">　Dim obj As VLAX, ent As AcadObject</font></p><p><font color="#000080">　Dim vertex As AcadObject, xType(0 To 1) As Integer, xData(0 To 1)</font></p><p>　</p><p><font color="#000080">　ThisDrawing.Utility.GetEntity ent, pt, "Select polyline"</font></p><p><font color="#000080">　If TypeOf ent Is AcadPolyline Then</font></p><p>　</p><p><font color="#000080">　　Set obj = New VLAX</font></p><p><font color="#000080">　　obj.EvalLispExpression "(defun getvertices (poly / tmp lst) " &amp; _</font></p><p><font color="#000080">　　　　　　　　　　　　　　"(setq tmp (entget (entnext poly))) (while " &amp; _</font></p><p><font color="#000080">　　　　　　　　　　　　　　"(= (cdr (assoc 0 tmp)) ""VERTEX"") (setq lst " &amp; _</font></p><p><font color="#000080">　　　　　　　　　　　　　　"(cons (cdr (assoc 5 tmp)) lst) tmp (entget " &amp; _</font></p><p><font color="#000080">　　　　　　　　　　　　　　"(entnext (cdr (assoc -1 tmp)))))) (reverse lst))"</font></p><p><font color="#000080">　　</font><font color="#000080">obj.EvalLispExpression <sub>_</sub></font></p><p><font color="#000080">　　　　　　　　　　　　　　"(setq vertexlist (getvertices (handent """ &amp;_</font></p><p><font color="#000080">&nbsp;　　　　　　　　　　　　　　ent.Handle &amp; """)))"</font></p><p><font color="#000080">　　retVal = obj.GetLispList("vertexlist")</font></p><p><font color="#000080">　　obj.NullifySymbol "getvertices", "vertexlist"</font></p><p>　</p><p><font color="#000080">　　xType(0) = 1001: xData(0) = "MY_APP"</font></p><p>　</p><p><font color="#000080">　　For i = LBound(retVal) To UBound(retVal)</font></p><p><font color="#000080">　　　xType(1) = 1000: xData(1) = retVal(i)</font></p><p><font color="#000080">　　　Set vertex = ThisDrawing.HandleToObject(retVal(i))</font></p><p><font color="#000080">　　　vertex.SetXData xType, xData</font></p><p><font color="#000080">　　Next</font></p><p>　</p><p><font color="#000080">　End If</font></p><p><font color="#000080">End Sub</font></p>

mccad 发表于 2008-7-24 18:19:00

<a href="http://www.mjtd.com/mcdown/list.asp?id=85">http://www.mjtd.com/mcdown/list.asp?id=85</a>
页: [1]
查看完整版本: XLAX类模块在哪里下载？