Commit 3ecc4eba authored by Dave Cooper's avatar Dave Cooper

updated view-object-cache so it doesn't output redundant DXF splines for...

updated view-object-cache so it doesn't output redundant DXF splines for arc-curve and linear-curve.
parent 0e7bd69e
...@@ -447,7 +447,9 @@ the box should be facing. Defaults to <tt>*nominal-y-vector*</tt>." ...@@ -447,7 +447,9 @@ the box should be facing. Defaults to <tt>*nominal-y-vector*</tt>."
;; ;;
(curves-2d (curves-2d
(when (typep (the object) 'surf:curve) (when (and (typep (the object) 'surf:curve)
(not (or (typep (the object) 'surf:arc-curve)
(typep (the object) 'surf:linear-curve))))
(let ((control-points (the object control-points)) (let ((control-points (the object control-points))
(weights (the object weights)) (weights (the object weights))
(knot-vector (the object knot-vector)) (knot-vector (the object knot-vector))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment