块交换-需要帮助。

amarcon · 发表于 2022-7-6 08:10:47

我在寻求帮助。我收集了大量AutoLISP例程，这些例程或多或少都是简单的工具，用于自动化许多日常绘图任务。我现在真的需要一个来操作块，然而，我从来没有掌握过处理列表。（我更喜欢直接的AutoLISP，因为我们有一个克隆座位，不做vLISP）

基本上，我会有一个需要翻转的项目。这意味着所有当前的“近面”块必须成为“远面”块，反之亦然。块的比例始终为1:1，没有属性，也没有动态。。。一个简单的替代品。。。（一张图片能说出千言万语，因此附上一张示例图）

例子：
一个图形中可能会出现多次。
块变为块
16NF------>16FF
20NF------>20FF
24NF------>24FF

在同一图纸中：
块变为块
16FF------>16NF
20FF------>20NF
24FF------>24NF

我对日常生活的看法是：
-创建所有现有块的列表（名称及其插入点）
-单步列表交换块名
-在插入点重新插入新块

然而，有了正确的机制，我可以扩展它以满足我的需求。非常感谢

根据要求添加了示例的ACAD2000版本。谢谢
实例图纸
示例2000。图纸

Tharwat · 发表于 2022-7-6 08:16:34

这能满足你的需要吗？

copy

(defun c:TesT (/ ss i sset e)
 ;;; Tharwat 10 Nov. 2011 ;;;
 (defun SwapBlock (block e ename)
 (if (tblsearch "BLOCK" block)
   (progn
     (entmake (list '(0 . "INSERT")
                    (cons 2 block)
                    (assoc 10 e)
                    (assoc 41 e)
                    (assoc 42 e)
                    (assoc 43 e)
                    (assoc 50 e)
              )
     )
     (entdel ename)
   )
 )
)
 (if (setq ss (ssget "_x" '((0 . "INSERT"))))
   (repeat (setq i (sslength ss))
     (setq sset (ssname ss (setq i (1- i))))
     (setq e (entget sset))
     (cond ((eq (cdr (assoc 2 e)) "16FF")
            (SwapBlock "16NF" e sset)
           )
           ((eq (cdr (assoc 2 e)) "20FF")
            (SwapBlock "20NF" e sset)
           )
           ((eq (cdr (assoc 2 e)) "24FF")
            (SwapBlock "24NF" e sset)
           )
     )
   )
   (princ)
 )
 (princ)
)