zzyong00 发表于 2014-10-25 22:30:08

我发现用vb开发的几乎没有啊

zzyong00 发表于 2014-10-25 22:57:03

本帖最后由 zzyong00 于 2014-10-25 22:58 编辑

2、坐标标注
坐标标注本身很简单，类似的工具满天飞，我这里也贴一个


Public Sub SeriesCoordinate()                                                   '连续标坐标
    Dim blnExitSeriesCoord As Boolean
    ' InitCommonVar
    '全局变量
    Coordinate_TextHeight = 3
    ratio = 1
    TextRowSpace = 0.6

    Do
      Coordinate blnExitSeriesCoord '本子过程源码需要回复才能看到
    Loop Until blnExitSeriesCoord
End Sub

**** Hidden Message *****

对于vb或vba来说，在没创建AcadText对象之前，很难精确算出AcadText对象的长度，本例子中，先大致估算，然后生成AcadText对象，但暂时隐藏它，通过GetBoundingBox 取得AcadText对象真实大小后，再调整AcadText对象位置和直线长度！

chenshulu 发表于 2014-10-26 16:31:35

zzyong00 发表于 2014-10-25 22:30 static/image/common/back.gif
我发现用vb开发的几乎没有啊

很多，不要怀疑，等的花儿都谢了，

xiayouxyj 发表于 2014-10-26 20:30:37

楼主太强了。有空就来这里学习了。

jicqj 发表于 2014-10-26 20:59:10

vb6是32位的 如何改写成更高版本的 .net支持64位呢

819534890 发表于 2014-11-3 16:45:08

很强大，学习了

lsmgys 发表于 2014-11-8 22:23:33

谢谢，正想学这方面的东西

yanyanjun999 发表于 2014-11-9 21:02:34

我也来学习一下

憨哥哥唱情歌 发表于 2014-11-19 13:08:35

我也来学习一下

我有点喜欢cad 发表于 2014-11-19 19:07:17

好好学习vba
页: 1 2 [3] 4 5 6 7 8 9 10 11 12
查看完整版本: 用VB6进行Autocad的二次开发(原创)