重新编号块atributte ta

Kevin v/d Berg · 发表于 2022-7-6 08:36:31

嘿，我的名字叫凯文，我需要一个Autolisp程序来帮我计算大量的块数，其中有一个用来计算数字的atribute
例如：

以下x或y坐标

1234从左到右
5678

或
369
258
147
我需要这个程序来重新排列我的基础计划的属性值

互联网上有很多程序，但它们中的大多数都很好，它们都是快速输入正确的数字，最后我还是不得不把它放在al manualie中

Tharwat · 发表于 2022-7-6 08:40:09

欢迎来到论坛kevin

你说的重排是什么意思？是否要用其他值替换这些值，或调整其位置？

你的解释越清晰，就会让人们尽可能地付出。

Kevin v/d Berg · 发表于 2022-7-6 08:44:36

我遇到的是，我有大量的区块，其中包括一个心房
指示te柱的数量

我正在尝试创建或获取som帮助，以获取lisp来重新编号ooder中特定atrubute标记的值，从而更正mij foundation plan中的数字

这是一个例子
RK_PR_1。图纸
测验图纸

ReMark · 发表于 2022-7-6 08:47:31

有点像“查找并替换”对吗？

Kevin v/d Berg · 发表于 2022-7-6 08:50:08

是的，但下列x或y条件

Tharwat · 发表于 2022-7-6 08:55:11

试试这个。。。。凯文

copy


(defun c:TesT (/ blks i sn n st e)
;;; Tharwat 05. Dec. 2011 ;;;
 (if
   (setq blks (ssget '((0 . "INSERT") (66 . 1))))
   (repeat
     (setq i (sslength blks))
     (setq sn (ssname blks (setq i (1- i))))
     (setq n (entnext sn))
     (while
       (not
         (eq
           (cdr
             (assoc 0 (setq e (entget n)))) "SEQEND"))
       (if (eq (cdr (assoc 0 e)) "ATTRIB")
         (progn (setq st (cdr (assoc 1 e)))
                (entmod
                  (subst
                    (cons 1 (vl-list->string (reverse (vl-sort (vl-string->list st) '>))))
                    (assoc 1 e) e)
                )
         )
       )
       (setq n (entnext n))
     )
   )
 )
 (princ)
)