czlj2008 发表于 2005-7-31 15:44:00

请教!!!!!!!!!!!!!!

<P>请教measure与divide在lisp中调用参数,(command "measure" ???????)</P>

wyj7485 发表于 2005-8-1 18:33:00

<P>在COMMAND下输入该命令就可以看到,去lisp版块吧</P>

czlj2008 发表于 2005-8-1 19:18:00

<P>Private Sub div()</P>
<P>&nbsp; Dim obj As AcadObject<BR>&nbsp; Dim basept As Variant<BR>&nbsp; Dim SSETS As AcadSelectionSet<BR>On Error Resume Next<BR>&nbsp; If Not IsNull(ThisDrawing.SelectionSets.Item("PLSET")) Then<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set SSETS = ThisDrawing.SelectionSets.Item("PLSET")<BR>&nbsp;&nbsp;&nbsp;&nbsp; SSETS.Delete<BR>&nbsp; End If<BR>&nbsp; Set SSETS = ThisDrawing.SelectionSets.Add("PLSET")<BR>&nbsp; <BR>&nbsp;&nbsp;&nbsp; SSETS.SelectOnScreen<BR>&nbsp; <BR>&nbsp; Set obj = SSETS.Item(0)<BR>&nbsp;' ThisDrawing.Utility.GetEntity obj, basept, "please pickt pl:"<BR>&nbsp; MsgBox obj.ObjectName</P>
<P>'请教下一句怎样改才可以完成measure的任务?<BR>&nbsp; ThisDrawing.SendCommand "MEASURE" &amp; vbCr &amp; "P" &amp; vbCr &amp; "6" &amp; vbCr</P>
<P>End Sub</P>
<P>&nbsp;</P>
<P>谢谢赐教</P>
页: [1]
查看完整版本: 请教!!!!!!!!!!!!!!