From 738c9056469d426d6fee8b55aac298d90a43b30f Mon Sep 17 00:00:00 2001 From: VitalGG Date: Mon, 16 Dec 2024 15:35:15 +0800 Subject: [PATCH] =?UTF-8?q?=E5=85=B3=E6=8D=95=E6=8D=89?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- at-layout/divide-map.lsp | 5 +++++ at-layout/pkg.lsp | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/at-layout/divide-map.lsp b/at-layout/divide-map.lsp index c56dd8d..aa922e9 100644 --- a/at-layout/divide-map.lsp +++ b/at-layout/divide-map.lsp @@ -7,6 +7,8 @@ (or (member (@::get-config '@layout:divide-layout) (layout:list)) (vla-add *layouts* (@::get-config '@layout:divide-layout))) (setvar "ctab" (@::get-config '@layout:divide-layout)) + ;;去捕捉 + (std:osmode-off) (if(and (setq ss(@layout:ssgetx (@::get-config '@layout:divide-layout))) (setq box (pickset:getbox ss 0))) (progn @@ -31,6 +33,7 @@ (+ gap (* 0.5 width)) ))) + (std:osmode-on) ) (defun @layout:divide-cluster (/ clusters margin gap box width height ents pt-base) @@ -43,6 +46,7 @@ (or (member (@::get-config '@layout:divide-layout) (layout:list)) (vla-add *layouts* (@::get-config '@layout:divide-layout))) (setvar "ctab" (@::get-config '@layout:divide-layout)) + (std:osmode-off) (if(and (setq ss(@layout:ssgetx (@::get-config '@layout:divide-layout))) (setq box (pickset:getbox ss 0))) (progn @@ -67,5 +71,6 @@ (+ gap (* 0.5 width)) ))) + (std:osmode-on) ) diff --git a/at-layout/pkg.lsp b/at-layout/pkg.lsp index 355eb85..47bc65a 100755 --- a/at-layout/pkg.lsp +++ b/at-layout/pkg.lsp @@ -2,7 +2,7 @@ (:FULL-NAME . "@lisp布局") (:AUTHOR . "VitalGG") (:EMAIL . "vitalgg@gmail.com") - (:VERSION . "0.1.7") + (:VERSION . "0.1.8") (:LOCALE . "CHS") (:CATEGORY . "布局") (:REQUIRED . "base") -- Gitee