如何用CAD VBA在CAD指定区域获取文字?请教高手。 谢谢!

[复制链接]
查看11 | 回复1 | 2012-3-16 15:04:55 | 显示全部楼层 |阅读模式
Sub draw_star()
For i = 0 To 3
For j = 1 To 2 * (3 - i)
blank = blank & " "
Next j
For k = 0 To i * 2
star = star & "*"
Next k
Sheet1.Cells(i + 1, 1).Value = blank & star
blank = ""
star = ""
Next i
For i = 0 To 3
F...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行