|
|
| Тема |
 Re: Проба ... [re: Mинaвaщ] |
|
| Автор | peshop (Нерегистриран) | |
| Публикувано | 10.12.05 22:18 |
|
|
|
Да, настроен е за 2005, защото това си му дал от Tools -> References. Но човека ще си сложи reference (препратка/указание...) към неговата версия. Иначе, ако укаже, да речем, 2000 и 2004 едновременно, може да си стартира необходимата с:
Set AcadApp = CreateObject("AutoCAD.Application.15")
за 2000-дито и:
Set AcadApp = CreateObject("AutoCAD.Application.16")
за 2004 (май тя е R16?).
За издънване - не, няма от какво, освен може би, ако точките са повече от 2^15 (защото "i" е декларирано като Integer), но повече от, грубо, 32000 точки надали накой ще нанася. В такъв случай може "i" да стане Long и за се сложи проверка за край на Sheet-а, но надали на някой му трябва.
От нулите за H няма смисъл - и така си работи.
А този блок с error handler-а защо си го копирал от Help-а, ако не е тайна? На мен преди години ми беше любимият начин да започна макрос, но отдавна не го използвам. 
ПП Има един малкъ бъг:
TmpPnt(0) = TmpPnt(0) + Pnt2Txt / Sqr(2)
TmpPnt(0) = TmpPnt(0) + Pnt2Txt / Sqr(2)
трябва да е всъщност:
TmpPnt(0) = TmpPnt(0) + Pnt2Txt / Sqr(2)
TmpPnt(1) = TmpPnt(1) + Pnt2Txt / Sqr(2)
| |
| |
| 
|
|
