Flatten Vertices on Edit Spline

Submitted by remykonings on Thu, 2019-01-03 09:32

Hello :)

I'm wondering what goes wrong with my script. It suppose to flatten all vertices to 0 on the Z-axis.

It seems to only work on non-splines.
Can it be adjusted so it will work with an Edit Spline too?

Thank you.

Attachment	Size
flatten_vertices.ms	610 bytes

General Scripting

Comments

Submitted by miauu on Thu, 2019-01-03 10:58.

.

(
	on isEnabled return
	(
	  selection.count == 1 and  (classof selection[1] == SplineShape or classof selection[1] == Line) and selection[1].modifiers.count == 0
	)
	on execute do
	(
		selObjsArr = selection as array
		for spl in selObjsArr do
		(
			convertToSplineShape spl
			new_z = spl.pos.z
			splCnt = numSplines spl
			for s = 1 to splCnt do
			(
				knotsCnt = numKnots spl s
				for k = 1 to knotsCnt do
				(
					knt = getKnotPoint spl s k
					in_vec = getInVec spl s k
					out_vec = getOutVec spl s k
					knt.z = in_vec.z = out_vec.z = new_z
					setInVec spl s k in_vec
					setOutVec spl s k out_vec
					setKnotPoint spl s k knt
				)
			)
			updateShape spl
		)
	)
)