densité 1

[mguerra]

Est-ce que quelqu'un sait identifier rapidement les parties avec la densité 1 au sein d'un groupe?

 

[and]

ecco la macro

(en emballage : sur mesure)
(emballage d'utilisation li)

(sd-defdialog 'show_by_density

:titre dialog "visualizza per densita"
:boîte à outils-bouton zéro
:variables
"(
(asy :value-type :assembly :modifie :nil :initial-value (sd-pathname-to-obj "/") :title "gruppo")
(wiserst :value-type :boolean :toggle-type :wide-toggle :titre "clear vp first" :initial-value t)
(mindens :value-type :number :initial-value 0.05 :title "min.densita")
(maxdens :value-type :number :initial-value 9999999 :title "max.densita")
(compte_csn : valeur initiale zéro : éléments multiples t)
(tot : valeur initiale zéro : éléments multiples t)
(p-count : valeur initiale zéro : éléments multiples t)
(en nombre : valeur initiale nulle : éléments multiples t)
(obj :modifie :nil)
(vis-risult :value-type :grouped-boolean :initial-value zéro :titre "lista densita")
(lista densita istanza)
(vis-risult_ist :value-type :grouped-boolean :initial-value t :title "lista istanza")
)

:fonctions locales
"(
(doit ()
(si sagerst (clear_vp (oli:sd-inq-current-vp)) ())
;(setf assy (sd-pathname-to-obj "/"))
(setf tot (jb-inq-obj-tree-list assy))
(dolist (obj tot "doté")
(setf vlag 0)
(setf partje (égal (sel_item-type obj) *sd-part-seltype*))
(setf sampje (égal (obj de typesel_item) *sd-assembly-seltype*))
(si (partje t égal) (setf vlag 1))
(si (égal à sampjet) (setf vlag 0)())
(s'il s'agit d'un signal égal 1)
(progrès
(setf dens (sd-inq-part-density obj))
(setf dens_ist (sd-inq-part-density obj:instance))
;;(afficher dens_ist)
;(affichage (sd-inq-obj-pathname obj))
(si (dénivelé) (dénivelé)
(si (et (> dens mindens) (< dens maxdens)) (add_to_vp_drawlist (oli:sd-inq-current-vp) obj)())

(si vis-à-vis
(si (et (> dens mindens) (< dens maxdens))
(affichage (format nul "base = ~a : ~10f" (sd-inq-obj-basename obj)))
t
); si vis-à-vis

(si vis-à-vis
(si (n'est pas égal à zéro))
(affichage (format nul "istanza = ~a : ~a" (sd-inq-obj-basename obj) dens_ist))
t
); si vis-à-vis de l'auteur
)())
)
(fit_vp (oli:sd-inq-current-vp))
(mise à jour de l'écran)
)
)

;:exclusion mutuelle
;'(Assy)

k-action
"(doit)
:help-action '(sd-display-message "visualizza densita")
)


(defun jb-inq-obj-tree-list (obj)
(cons.
(application #'nconc
(carte de voiture #'jb-inq-obj-tree-list
(enfants sd-inq-obj obj)
)
)
)
)

 

[mguerra]

Merci, comment créer la commande ?
Ou mieux, où puis-je prendre la macro ?


(J'ai la version 17 de la modélisation)

 

[Kaji]

Je crois que pour rendre un pourri assez simple:

- ouvrir un nouveau fichier texte
- copier et coller le texte représentant la macro
- enregistrer l'extension de fichier .lsp
- télécharger le fichier sur osd.

Le fait que vous ayez le 17 est également meilleur parce que beaucoup de vieux lis, sinon, ont commencé à avoir des problèmes à partir de 18 ans.