#|
|# (in-package :EXAMPLES) (use-package :OLI) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Logical Table (sd-create-logical-table "Workplanes" :columns '(:name) :columnNames '("Name") :types '(:string)) ;; Display Table (sd-create-display-table "WORKPLANES" :tableTitle "Workplanes" :logicalTable "Workplanes" :columns '(:name) :applyColumns '(:name) :applyAction :default) ;; Dialog (sd-defdialog 'CURRENT_WP2 :variables '((WPS :initial-value (let ((tree (jb-inq-obj-tree-list (sd-pathname-to-obj "/")))) (sd-remove-logical-table-row "Workplanes" :row :all) (dolist (i (remove-if #'(lambda (obj) (not (equal (sel_item-type obj) *sd-workplane-seltype*))) tree)) (sd-insert-logical-table-row "Workplanes" :contents (list (sd-inq-obj-pathname i) ))))) (WP :value-type :string :show-input-tool (sd-show-display-table "WORKPLANES" :position '("CURRENT_WP2-OPTIONS-OPT-CONT-WP-TB" :leftCenter -10 0)) :hide-input-tool (sd-hide-display-table "WORKPLANES"))) :start-variable 'wp :local-functions '((doit () (sd-call-cmds (current_wp wp)))) :ok-action '(doit)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun jb-inq-obj-tree-list (obj) (cons obj (apply #'nconc (mapcar #'jb-inq-obj-tree-list (sd-inq-obj-children obj))))) ;;