(defun c:3DFaceArray
( / doc pt1 pt2
) )
(prompt "\nError: points equal in XY plane ") )
(
"\nNumber of faces in the X direction: "
)
)
)
(
*3DFA_nrX*
)
)
)
)
(
"\nNumber of faces in the Y direction: "
)
)
)
(
*3DFA_nrY*
)
)
)
)
)
(3DFaceArray_Create
)
pt1
pt2
*3DFA_nrX*
*3DFA_nrY*
)
)
)
; Note: pt1 and pt2 in UCS.
(defun 3DFaceArray_Create
(blk pt1 pt2 nrX nrY
/ deltaX deltaY z orgNrY
) blk
'add3dface
(trans (list (- (car pt2
) (* nrX deltaX
)) (- (cadr pt2
) (* nrY deltaY
)) z
) 1 0) ; TR )
)
)
)
(princ "\nUse 3DFaceArray ")