Topic: Error: Automation Error. Cannot scale nonuniformly

[damn]

I'm stumped on this error.   In a new drawing session if I open Template "C" and run  a layout generator routine I get this error.  If I open Template "A" and rerun the routine it works.  If Template "A" has been open at any stage during the session it will work.  I've pinpointed down to a key viewport that is rezoomed on ea layout.  I Haven't written the following code and whilst it mostly works well much of it is poorly documented.  I've also pinpointed the code down to this line.  (vla-transformby obj mat)

I realise that's not much help.  What possibly could opening another template introduce to prevent the error?

Code expanded.....

Code - Auto/Visual Lisp: [Select]

1. (foreach obj
2.            (vlax-invoke
3.              (setq doc (vla-get-activedocument (vlax-get-acad-object)))
4.              'copyobjects
5.              lst
6.              (vla-get-block
7.                alay
8.              )
9.            )
10. ;;; Code below crashes if Telstra template has not been opened
11.     (vla-transformby obj mat)
12.  
13.   )

EDIT (John): Added code tags.

[BIGAL]

telstra your in AUS

To many unknowns you have 3 variables with no idea of values.

Explain what it is your trying to do.

[damn]

Hi Al,  yeah I'm Aus.  In short the code is part of a function creating layouts base on the number of frames in the drawing.  I haven't tried to figure what this part of the code does as up till now it worked as I always used template A 1st.  One of my colleagues discovered when they jumped straight into template C and at 1st I couldn't replicate their problem.

This part of the function zooms on the Key viewport in on the current frame relative to the created to layout and from what I can read it try to sort draw order.   Code elaborated, sorry still poorly documented.  I realise this probably won't  help.  I was hoping the scale nonuniformly was common bug.

Code - Auto/Visual Lisp: [Select]

1. (defun _copyNTSnbn      (ob vp lay / acobj acdoc aclay ascc)
2.   (setq acobj (vlax-get-acad-object)
3.         acdoc (vla-get-ActiveDocument acobj)
4.         aclay (vla-get-layouts acdoc)
5.         ascc  (vla-get-selectionsets acdoc)
6.         alay (vla-item (vla-get-layouts acdoc) lay)
7.   )
8.   (vla-put-activelayout
9.     acdoc
10.     alay
11.   )
12.  
13.   (setq lst (list ob))
14.  
15.   (vla-put-mspace acdoc :vlax-true)
16.  
17.   (vla-put-activepviewport acdoc vp)
18.  
19.   (setq mat
20.          (vlax-tmatrix
21.            (append
22.              (mapcar
23.                '(lambda (a b)
24.                   (append (mapcar '- (trans (trans a 0 2) 2 3) org) (list b))
25.                 )
26.                '(
27.                  (1.0 0.0 0.0)
28.                  (0.0 1.0 0.0)
29.                  (0.0 0.0 1.0)
30.                 )
31.                (setq org (trans (trans '(0.0 0.0 0.0) 0 2) 2 3))
32.              )
33.              '((0.0 0.0 0.0 1.0))
34.            )
35.          )
36.   )
37.  
38.   (foreach obj
39.            (vlax-invoke
40.              (setq doc (vla-get-activedocument (vlax-get-acad-object)))
41.              'copyobjects
42.              lst
43.              (vla-get-block
44.                alay
45.              )
46.            )
47. ;;; Code below crashes if Telstra template has not been opened
48.     (vla-transformby obj mat)
49.  
50.   )
51.  
52.   (vla-put-mspace acdoc :vlax-false)
53.   (setvar "clayer" layerNTSGRID)
54.  
55.   (setq new (ssget "L"))
56.   (if (setq eName (ssname new 0))
57.     (progn
58.       (vla-getboundingbox (vlax-ename->vla-object eName) 'mn 'mx)
59.       (vl-cmdf "._rectang" (vlax-safearray->list mn) (vlax-safearray->list mx)))
60.     )
61.   (entdel eName)
62.  
63.   (setq pline (vlax-ename->vla-object (ssname (ssget "L") 0)))
64.   (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))
65.   (vlax-safearray-put-element outerLoop 0 pline)
66.  
67.   (setq hatch (vla-AddHatch (vla-get-block alay) acHatchPatternTypePreDefined "ANSI31" :vlax-True))
68.   (vla-appendouterloop hatch outerLoop)
69.   (vla-put-color hatch acMagenta)
70.   (vla-evaluate hatch)
71.   (vla-delete pline)
72. )

EDIT (John): Added code tags.