Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
cfbf6c9e
Commit
cfbf6c9e
authored
Jul 23, 2012
by
Dave Cooper
Browse files
added names for assys and subasies
parent
a3b402fc
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
regression/data/bracket.stp
View file @
cfbf6c9e
This diff is collapsed.
Click to expand it.
surf/source/views.lisp
View file @
cfbf6c9e
...
...
@@ -22,6 +22,7 @@
(
in-package
:surf
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
ql:quickload
:uffi
))
;;
;; FLAG -- make higher-level generic constructor for a translator assembly object
...
...
@@ -33,6 +34,10 @@
cstring
)
(
uffi:with-cstring
(
cstring
name
)
cstring
))
(
smlib::finalize
ai
#'
(
lambda
(
obj
)
(
smlib::delete-hwstdautoptr-hwassemblyinstance
obj
)))
ai
))
(
define-lens
(
nurbs
vanilla-mixin
)()
...
...
@@ -58,10 +63,17 @@
;;
(
let
((
child-assembly-instance
(
make-assembly-instance
:name
(
the-object
child
strings-for-display
))))
(
write-the-object
child
(
cad-output-assembly-tree
child-assembly-instance
))
(
smlib::hwassembly-addsubassembly
(
smlib::hwstdautoptr-hwassemblyinstance-getassembly
assembly-instance
)
child-assembly-instance
))
child-assembly-instance
)
#+
nil
(
let
((
new-one
(
smlib::tag-pointer
(
smlib::new-hwstdautoptr-hwassemblyinstance
)
'smlib::hwstdautoptr-hwassemblyinstance
)))
(
smlib::hwassemblyinstance-collapseunneededlevels
assembly-instance
new-one
)
(
setq
assembly-instance
new-one
))
)
;;
;; Add objects
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment