|
|
照着,修改自动标题栏为单位常用的标题栏,再作为某软件的模板,实现批量打印,以前也接触过vba,照葫芦画瓢,修改程序,运行,加了内图廓,再怎么修改就是没有用,未必cad的vba有啥诀窍?难道在南方cass(正版软件)里有什么限制?反复试验,搞清楚了,只能运行一次,要再修改非得退出cad再进来才行,不会吧?想到可能块没清除,不管怎么调试,就是我自岿然不动,最终用purge全部清除,它就乖乖听话了:
'外图框
Dim ptVer1(0 To 2) As Double, ptVer2 As Variant
ptVer1(0) = 0: ptVer1(1) = 0: ptVer1(2) = 0
ptVer2 = GetPoint(ptVer1, 766, 536)
AddRectangle ptVer1, ptVer2, 0.5
'内图框
ptVer1(0) = 8: ptVer1(1) = 18: ptVer1(2) = 0
ptVer2 = GetPoint(ptVer1, 750, 500)
AddRectangle ptVer1, ptVer2, 0.05 |
|
置顶卡
