布局视口（半成品尝试）

尘缘一生

如图，倘没研究透彻




源码

自贡黄明儒

您也是老革命了，要弄就弄个成品。弄 个半成品，是怎么回事？

尘缘一生

自贡黄明儒 发表于 2023-11-14 10:20
您也是老革命了，要弄就弄个成品。弄 个半成品，是怎么回事？

我画图不用布局，所以，具体用布局的需要什么，不熟悉。


以下三个问题，是得到的需求：
1、布局批量改名
2、布局与布局、模型之间快速切换（可做个类似布局管理器）
3、布局、模型两种空间同时画图（此部分目前没有哪个插件能做到）

菜鸟初来乍到

感谢楼主分享

bai0379

bt-mlistbox 子函数？？？

尘缘一生

bai0379 发表于 2023-11-14 11:03
bt-mlistbox 子函数？？？

;;布局多选列表--(一级)--
(defun bt-mlistbox (/ lst dch des tmp rtn)
        (setq tmp (vl-filename-mktemp nil nil ".dcl"))
        (setq des (open tmp "W"))
        (write-line
                (strcat "listbox:dialog{label=\"布局多选列表>输出到模型空间\";:tile {}:list_box{key=\"list\";multiple_select=true;width=50;height=15;}:tile {}ok_cancel;}")
                des
        )
        (not (close des))
        (< 0 (setq dch (load_dialog tmp)))
        (new_dialog "listbox" dch)
        (start_list "list")
        (foreach itm (setq lst (layoutlist)) (add_list itm))
        (end_list)
        (setq rtn (set_tile "list" "0"))
        (action_tile "list" "(setq rtn $value)")
        (setq rtn
                (if (= 1 (start_dialog))
                        (mapcar '(lambda (x) (nth x lst)) (read (strcat "(" rtn ")")))
                )
        )
        (if (< 0 dch)
                (unload_dialog dch)
        )
        (if (and tmp (setq tmp (findfile tmp)))
                (vl-file-delete tmp)
        )
        rtn
)

wangsr

谢谢分享谢谢分享。

ferious

lml2023

事实说明，没啥用，你编的这个，视口用法看来你是真不熟悉