打断对象（提供4种方法）

marting · 发表于 2021-1-16 17:40:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 marting 于 2021-1-16 17:47 编辑

This is a bundled function for Breaking Objects.
After writing the BreakAll function the rest was easy.
The following functions are a result.

c:BreakAll -    Break all objects selected
c:BreakwObjects - Break many objects with a single object
c:BreakObject - Break a single object with many objects
c:BreakWith -    Break selected objects with other selected objects
c:BreakTouching - Break objects touching the single Break object
c:BreakSelected - Break selected objects with any  objects that touch it
c:MyBreak - Dialog with buttons to run three of the routines
c:BreakRemove - Break selected object with any objects that touch it & remove
                     every other new segment, start with selected object
Note: Color in picture not by lisp, but added for clairity.

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:BreakObjects23.LSP
下载次数:34 文件大小:41.75 KB
下载权限: 不限以上 [免费赚D豆]

下面是增加的UI界面：

微信截图_20210116173937.png

DOSLIB版本：

;;; Require doslib
;;; Variable glb::BRK_des is global.
(defun C:BRK (/ lstPair)
(setq lstPair
(list (cons "Break all objects selected" "BreakAll")
(cons "Break many objects with a single object"
"BreakwObjects"
)
(cons "Break a single object with many objects"
"BreakObject"
)
(cons "Break a single object with many objects" "BreakWith")
(cons "Break objects touching the single Break object"
"BreakTouching"
)
(cons "Break selected objects with any objects that touch it"
"BreakSelected"
)
)
)
(setq glb::BRK_des
(apply 'dos_listbox
(vl-remove
nil
(append (list "List of commands for breaking"
"Select command"
(mapcar 'car lstPair)
)
(list glb::BRK_des)
)
)
)
)
(eval
(read (strcat "(C:" (cdr (assoc glb::BRK_des lstPair)) ")"))
)
(princ)
)

;;; Require doslib 
;;; Variable glb::BRK_des is global. 
(defun C:BRK (/ lstPair) 
  (setq        lstPair 
         (list (cons "Break all objects selected" "BreakAll") 
               (cons "Break many objects with a single object" 
                     "BreakwObjects" 
               ) 
               (cons "Break a single object with many objects" 
                     "BreakObject" 
               ) 
               (cons "Break a single object with many objects" "BreakWith") 
               (cons "Break objects touching the single Break object" 
                     "BreakTouching" 
               ) 
               (cons "Break selected objects with any  objects that touch it" 
                     "BreakSelected" 
               ) 
         ) 
  ) 
  (setq        glb::BRK_des 
         (apply        'dos_listbox 
                (vl-remove 
                  nil 
                  (append (list        "List of commands for breaking" 
                                "Select command" 
                                (mapcar 'car lstPair) 
                          ) 
                          (list glb::BRK_des) 
                  ) 
                ) 
         ) 
  ) 
  (eval 
    (read (strcat "(C:" (cdr (assoc glb::BRK_des lstPair)) ")")) 
  ) 
  (princ) 
)

XDRX API 版本：

;;; Require XDRX API
;;; Variable glb::BRK_des is global.
(defun C:BRK (/ lstPair)
(setq lstPair
(list (cons "Break all objects selected" "BreakAll")
(cons "Break many objects with a single object"
"BreakwObjects"
)
(cons "Break a single object with many objects"
"BreakObject"
)
(cons "Break a single object with many objects" "BreakWith")
(cons "Break objects touching the single Break object"
"BreakTouching"
)
(cons "Break selected objects with any objects that touch it"
"BreakSelected"
)
)
)
(setq glb::BRK_des
(apply 'xdrx_ui_listbox
(vl-remove
nil
(append (list "List of commands for breaking"
"Select command"
(mapcar 'car lstPair)
)
(list glb::BRK_des)
)
)
)
)
(eval
(read (strcat "(C:" (cdr (assoc glb::BRK_des lstPair)) ")"))
)
(princ)
)

;;; Require XDRX API 
;;; Variable glb::BRK_des is global. 
(defun C:BRK (/ lstPair) 
  (setq        lstPair 
         (list (cons "Break all objects selected" "BreakAll") 
               (cons "Break many objects with a single object" 
                     "BreakwObjects" 
               ) 
               (cons "Break a single object with many objects" 
                     "BreakObject" 
               ) 
               (cons "Break a single object with many objects" "BreakWith") 
               (cons "Break objects touching the single Break object" 
                     "BreakTouching" 
               ) 
               (cons "Break selected objects with any  objects that touch it" 
                     "BreakSelected" 
               ) 
         ) 
  ) 
  (setq        glb::BRK_des 
         (apply        'xdrx_ui_listbox 
                (vl-remove 
                  nil 
                  (append (list        "List of commands for breaking" 
                                "Select command" 
                                (mapcar 'car lstPair) 
                          ) 
                          (list glb::BRK_des) 
                  ) 
                ) 
         ) 
  ) 
  (eval 
    (read (strcat "(C:" (cdr (assoc glb::BRK_des lstPair)) ")")) 
  ) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[每日一码] 打断对象（提供4种方法）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。