tfod2000 发表于 2004-11-10 17:06:00

怎样给直线的起点终点付值

<FONT face=宋体,verdana,arial,helvetica>怎样给直线的起点终点付值</B></FONT> <INPUT class=btn style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体" onclick="text1.style.fontSize='12pt';" type=button value=12号字> <OPTION value="9pt">9pt</OPTION> <OPTION value="10pt" selected>10pt</OPTION> <OPTION value="11pt">11pt</OPTION> <OPTION value="12pt">12pt</OPTION> <OPTION value="13pt">13pt</OPTION> <OPTION value="15pt">15pt</OPTION> <FONT id=text1 style="FONT-SIZE: 10pt" face="宋体,verdana, arial, helvetica"><BR>我想给直线的起点终点付值但是不论我把预先给的值定义为<BR>Dim st(0 To 2) As Double<BR>Dim en(0 To 2) As Double<BR>还是Dim st, en As Variant<BR>总是提示出错。我知道如何从直线取值，就是不可以给他付值<BR>但是我看帮助直线的startpoint 和endpoint是可读写的。那位高手可以解决。小弟先谢谢了。</FONT>

tjdxtm 发表于 2004-11-11 10:13:00

这个好像不能改变<FONT size=2>startpoint 和endpoint吧，至少我没见过。哪位用过，说说方法来？</FONT>


<FONT size=2>我想，你可以重新画line好了，不要用改变startpoint 和endpoint了。</FONT>

雪山飞狐_lzh 发表于 2004-11-11 14:15:00

Sub test()<BR>Dim obj As AcadLine, pnt<BR>Dim dot(2) As Double<BR>ThisDrawing.Utility.GetEntity obj, pnt<BR>obj.StartPoint = dot<BR>End Sub<BR>

yulijin608 发表于 2004-11-11 18:06:00

Dim obj As AcadLine, pnt               这是什么意思，搞不懂pnt是干什么的


还有ThisDrawing.Utility.GetEntity obj, pnt

wyj7485 发表于 2004-11-12 08:41:00

等同于：


Dim obj As AcadLine       


Dim pnt        As Variant


ThisDrawing.Utility.GetEntity obj, pnt--------选择一条直线
页: [1]
查看完整版本: 怎样给直线的起点终点付值