| tiancao1001 于 2009-02-21 09:14 AM 发表评论： |
你好，
P2PDistance，就是个求点到点的直线距离的，你自己补充吧？
我分享的代码只能提供一种思路，和解决方法。 |
|
| 查看所评论的日志：折断线绘制 |
| tiancao1001 于 2009-02-20 10:11 AM 发表评论： |
'删除图纸中的所有点对象
Sub DelAllPoint()
Dim E As AcadEntity
Dim B As AcadBlock
For Each B In ThisDrawing.Blocks
For Each E In B
If TypeOf E Is AcadPoint Then
E.Delete
End If
Next
Next
ThisDrawing.Regen
End Sub
|
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-02-18 02:46 PM 发表评论： |
谢谢，指点，希望能向你学习。
我的QQ号码:327750885 |
|
| 查看所评论的日志：Visual Basic 2005 飞信SDK开发短信收发程序 |
| tiancao1001 于 2009-02-16 01:51 PM 发表评论： |
ip地址查询代码二:
<script src="http://www.tiancao.net/ip/ip.asp" language="JavaScript" charset="gb2312"></script>
|
|
| 查看所评论的日志：本站显示ip地址代码 |
| tiancao1001 于 2009-02-16 01:33 PM 发表评论： |
IP地址查询代码
<FORM METHOD=POST ACTION="http://www.tiancao.net/ip/ipsearch.asp?action=search" name="ipform" target="_blank">
<td align="center" width="358" colspan="5">
IP地址：<input type="text" name="ip" size="16">
<input type="submit" value="查询"><INPUT TYPE="hidden" name="action" value="2">
</FORM> |
|
| 查看所评论的日志：本站显示ip地址代码 |
| tiancao1001 于 2009-02-16 01:30 PM 发表评论： |
显示iP代码一:
<iframe border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" scrolling="no" width="120" height="600" src="http://www.tiancao.net/ip/ipshow.asp"></iframe> |
|
| 查看所评论的日志：本站显示ip地址代码 |
| tiancao1001 于 2009-02-16 01:29 PM 发表评论： |
显示IP代码二:
<script src="ip/ip.asp" language="JavaScript" charset="gb2312"></script> |
|
| 查看所评论的日志：本站显示ip地址代码 |
| tiancao1001 于 2009-02-16 12:21 AM 发表评论： |
|
| 查看所评论的日志：田草日志 |
[22] [23] [24] [25] [26] [27] [28] [29] [30] [31] ... [37] 