From 3ecc4ebaca81970929accd07c97479f57227faa7 Mon Sep 17 00:00:00 2001 From: Dave Cooper Date: Wed, 27 Sep 2017 13:08:09 -0500 Subject: [PATCH] updated view-object-cache so it doesn't output redundant DXF splines for arc-curve and linear-curve. --- geom-base/drawing/source/base-view.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/geom-base/drawing/source/base-view.lisp b/geom-base/drawing/source/base-view.lisp index 24b477b3..3aeb0c5f 100755 --- a/geom-base/drawing/source/base-view.lisp +++ b/geom-base/drawing/source/base-view.lisp @@ -447,7 +447,9 @@ the box should be facing. Defaults to *nominal-y-vector*." ;; (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)) (weights (the object weights)) (knot-vector (the object knot-vector)) -- GitLab