yoğunluğu 1

[mguerra]

Herhangi biri, bir grup içinde yoğunluk 1 ile parçaları hızlı bir şekilde nasıl tanımlayacağını biliyor mu?

 

[and]

ecco la makro

(in-package:custom)
(use-packageli)

(sd-defdialog ‘show_by_density

:dialog-title "Gemiza per densita"
:toolbox-button nil
: Değişkenler
"(")
(assy:value-type:assembly:modify:nil:intial-value (sd-pathname-to-obj "/") :title "gruppo")
(eğerliler:değer-tip:boolean:toggle-type:wide-toggle:title "clear vp first":initial-value t)
(mindens:value-type: sayı : değer değeri 0.05:title "min.densita")
(maxdens:value-type: sayı: değer değeri 999999999999:title "max.densita")
(say_csn: tam değerli nil:multiple-items t)
(tot: tam değerli nil:multiple-items t)
(p-say: tam değerli nil:multiple-items t)
(a-say: tam değerli nil:multiple-items t)
(obj:modify:nil)
(vis-risult:value-type:gruped-boolean:initial-value nil:title "lista densita")
("lista densita istanza")
(vis-risult_ist:value-type:gruped-boolean:intial-value t:title "lista istanza")
)

: Yerel-işlevler
"(")
()
(Eğer bilgeler (eski_vp (oli:sd-inq-current-vp) ())
(setf assy (sd-pathname-to-obj "/"))
(setf tot (jb-inq-obj-tree-list assy))
(dolist) (done)
(setf vlag 0)
(setf partje (equal (sel_item-type obj) *sd-part-seltype*)
(setf sampje (equal (sel_item-tip obj) *sd-assembly-seltype*)
(eğer (eşit parça) (setf vlag 1)())
(If (equal sampje t) (setf vlag 0)())
(If (equal vlag 1)
(progn
(setf dens (sd-inq-part-density obj)
(setf dens_ist (sd-inq-part-density obj:instance)
;(display dens_ist)
(Resulüm)
(Eğer (eşemler nil) (setf dens 0)())
(If (ve (> dens mindens) (< dens maxdens) (add_to_vp_drawlist (oli:sd-inq-current-vp) obj)())

(Eğer vis-risult
(Eğer (ve (> desbellek) (< dens maxdens))
(display (format nil "base = ~a: ~10f" (sd-inq-obj-basename obj) dens)))))
t t t t
); eğer vis-risult

(Eğer vis-risult_ist
(Eğer (parça değil)
(display (format nil "istanza = ~a: ~a" (sd-inq-obj-basename obj) dens_ist))))
t t t t
); eğer vis-risult_ist
)
)
(fit_vp (oli:sd-inq-current-vp))
(update_screen)
)
)

;
“(assy)

k-action
"(doit)
:help-action '(sd-display-message "işitselizza densita")
)


(defun jb-inq-obj-tree-list (obj)
(Cons obj
(Aslında #'nconc
(mapcar #'jb-inq-obj-tree-liste
(sd-inq-obj-children obj)
)
)
)
)

 

[mguerra]

Teşekkür ederim, komut nasıl yaratıyorum?
Ya da makro nereye götüreceğim?


(Ben modelleme 17 versiyonum var)

 

[Kaji]

Bunun sadece yeterince çürük olması gerektiğine inanıyorum:

- yeni bir metin dosyası açın
- kopya ve metin makro temsil eder
- .lsp dosyasını uzatma
- Dosyayı osd'a yükleyin.

17'nin de daha iyi olduğu gerçeği, çünkü birçok yaşlı lisp, yanlış değilse, 18 yaşından itibaren sorunlar yaşamaya başladı.