[原创]依二次开发教程,修改自动标题栏

aa2567

照着教程,修改自动标题栏为单位常用的标题栏,再作为某软件的模板,实现批量打印,以前也接触过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