田草博客

互联网田草博客网友交流QQ群：11740834 需注明申请加入原因微信公众号：ByCAD 邮箱：tiancao1001x126.com
首页 \| 普通 \| 电脑 \| AutoCAD \| VB/VB.NET \| FLash \| 结构 \| 建筑 \| 电影 \| BIM \| 规范 \| 软件 \| ID

评论列表

所有评论

[80] [81] [82] [83] [84] [85] [86] [87] [88] [89] ... [143]

tiancao1001 于 2009-02-21 10:08 AM 发表评论：

你好当然可以。稍后给你献上。
感谢支持，

查看所评论的日志：田草CAD工具箱—>自动绘制PKPM轴线网

longer1000 于 2009-02-21 09:14 AM 发表评论：

你好!能否编写这样一个cad工具--自动编写矩形编号的程序。
设想方法如下：
选择批量的矩形，再向矩形中心方向偏移相同的数值，删除原选择的矩形，最后在偏移的矩形内填写相应的长度*宽度。
在此表示谢意

查看所评论的日志：田草CAD工具箱—>自动绘制PKPM轴线网

tiancao1001 于 2009-02-21 09:14 AM 发表评论：

你好，
P2PDistance，就是个求点到点的直线距离的，你自己补充吧？
我分享的代码只能提供一种思路，和解决方法。

查看所评论的日志：折断线绘制

luojunxu 于 2009-02-21 00:29 AM 发表评论：

缺少文件“JMTX＿Frm”，没有运行？

查看所评论的日志：CAD截面特性计算

luojunxu 于 2009-02-20 11:14 PM 发表评论：

缺少一个函数P2PDistance

查看所评论的日志：折断线绘制

luojunxu 于 2009-02-20 10:55 PM 发表评论：

今天发现了，

查看所评论的日志：晓东VBA论坛板块的电子书版本

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开发短信收发程序

[80] [81] [82] [83] [84] [85] [86] [87] [88] [89] ... [143]