#define private public - Claus Brod on stuff (08 Dec 2017)

topic end
<!--
   * Set TOPICTITLE = #define private public - Claus Brod on stuff (08 Dec 2017)
-->

<style type="text/css">
pre {background-color:#ffeecc;}
</style>

%STARTINCLUDE%
<a name="08"></a>

---+++ [[DefinePrivatePublic20171208FilterInstances][Filtering instances in <nop>CoCreate Modeling]] (08 Dec 2017)

<summary>
Another interesting <a href="https://ww3.cad.de/foren/ubb/Forum92/HTML/000888.shtml">user question</a> from the
German user forum on <nop>CoCreate Modeling: Starting with a list of selected objects, how do I filter out
shared instances?
</summary>

The magic sauce: =oli:sd-inq-obj-contents-sysid=. The following code uses content sysids as the keys
for a hash table. The =unique-objects= function returns the filtered list, i.e. a list which contains
only one representative for any given number of shared instances.

<style type="text/css">
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color:#ffeecc; }
body { font-family: monospace; color: #000000; background-color: #ffffff; }
* { font-size: 1em; }
.Type { color: #008b00; font-weight: bold; }
.Special { color: #8a2be2; }
.Identifier { color: #458b74; }
.Statement { color: #b03060; font-weight: bold; }
-->
</style>

<pre id='vimCodeElement'>
<span class="Special">(</span><span class="Statement">in-package</span> :de.clausbrod.filterinstances<span class="Special">)</span>
<span class="Special">(</span><span class="Statement">use-package</span> :oli<span class="Special">)</span>

<span class="Special">(</span><span class="Statement">defun</span> unique-objects<span class="Special">(</span>objects<span class="Special">)</span>
  <span class="Special">(</span><span class="Statement">let</span> <span class="Special">((</span>ht <span class="Special">(</span><span class="Statement">make-hash-table</span> <span class="Type">:test</span> <span class="Special">'</span><span class="Identifier">equal</span><span class="Special">)))</span>
    <span class="Special">(</span><span class="Statement">dolist</span> <span class="Special">(</span>obj objects<span class="Special">)</span>
      <span class="Special">(</span><span class="Statement">setf</span> <span class="Special">(</span><span class="Statement">gethash</span> <span class="Special">(</span>oli:sd-inq-obj-contents-sysid obj<span class="Special">)</span> ht<span class="Special">)</span> obj<span class="Special">))</span>
    <span class="Special">(</span><span class="Statement">loop</span> for obj being <span class="Statement">the</span> hash-values of ht collect obj<span class="Special">)))</span>
</pre>


---

%STOPINCLUDE%

%COMMENT{type="below" nonotify="on"}%

---
to top
End of topic
Skip to action links | Back to top
You are here: Blog > DefinePrivatePublic20171208FilterInstances

r1.1 - 08 Dec 2017 - 13:12 - ClausBrod to top
Blog