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