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

重新编号块atributte ta

嘿，我的名字叫凯文，我需要一个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

试试这个。。。。凯文
 

(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)
)

Kevin v/d Berg 发表于 2022-7-6 08:57:45

不幸的是，它所做的唯一事情就是选择并注意更多
 
 
maby the block和mij exampel会帮你理解我的意思

Tharwat 发表于 2022-7-6 08:59:50

 
这些图形中没有您已上载的属性块。再次检查图形。

ReMark 发表于 2022-7-6 09:03:21

测验dwg块确实具有属性PNUM和SCH。PNUM对于每个块都不同，但SCH对于每个块都相同。其余七个属性没有值。
 
RK_PR_1。dwg用于测试中使用的块。就我所能确定的而言，它真的没有任何价值。
 
你提到的X和Y坐标在哪里？

Tharwat 发表于 2022-7-6 09:06:20

机密属性：大声笑：
页: [1] 2
查看完整版本: 重新编号块atributte ta