Commit 8ca9bc68 authored by Dave Cooper's avatar Dave Cooper
Browse files

updated call to step writer to specify ap level

parent 6e794d15
......@@ -137,6 +137,7 @@
(units *output-units-default*)
(units-scale 1)
(analytic-curves? t)
(step-ap :ap203)
(objects nil))
:functions
......@@ -144,10 +145,8 @@
()
(let ((buffer-file (namestring (glisp:temporary-file))))
(with-format-slots (%assembly%)
(smlib::write-hw-file-assembly *geometry-kernel* buffer-file %assembly%)
)
(with-format-slots (%assembly% step-ap)
(smlib::write-hw-file-assembly *geometry-kernel* buffer-file %assembly% :step-ap step-ap))
(let ((buffer (make-array 4096
:element-type '(unsigned-byte 8))))
......@@ -163,7 +162,7 @@
()
(with-format-slots (tolerance breps-format units
units-scale analytic-curves?
objects)
objects step-ap)
(let ((leaves (reverse (ensure-list objects))))
(let (entity-plist)
(dolist (leaf leaves)
......@@ -206,7 +205,8 @@
:solids (nreverse (getf entity-plist :solids))))
(let ((buffer-file (namestring (glisp:temporary-file))))
(apply #'write-step-file* *geometry-kernel* buffer-file
(apply #'write-step-file* *geometry-kernel* buffer-file
:step-ap step-ap
:quiet? t :units units
:units-scale units-scale :tolerance tolerance
:write-analytic-curves? analytic-curves?
......@@ -279,6 +279,7 @@
#+nil
(defmethod encode-for-http ((self geometry-kernel-object-mixin))
(if (typep (the %parent%) 'remote-object)
(call-next-method)
......
Supports Markdown
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