【已解决】求自动修改块属性

csharp · 发表于 2017-3-3 21:33:23

本帖最后由 csharp 于 2017-3-3 21:44 编辑

jxwlkj 发表于 2017-3-3 20:12

(defun c:tt (/ ss _getatt a4 al lst getposition)
(defun _getatt (l tag)
(car (vl-remove-if-not
(function (lambda (x) (= (xdrx_getpropertyvalue x "tag") tag)))
l
)
)
)
(defun getposition (b p str / p1 v l atts)
(setq p1 (xdrx_getpropertyvalue b "position")
v (mapcar '- p1 (mapcar '+ '(4.5 5.0 0) p))
l (mapcar 'fix (mapcar '/ v '(36.0 50.0 1.)))
atts (xdrx_getpropertyvalue b "attributeentities")
)
(list (xdrx_getpropertyvalue (_getatt atts "WIRENO") "textstring")
(_getatt atts "XREF")
(strcat "/"
str
"."
(itoa (1+ (car l)))
(chr (+ 65 (cadr l)))
)
)
)
(if (and (setq ss (ssget '((0 . "INSERT") (2 . "HA1S1"))))
(setq a4 (ssget "x" '((0 . "INSERT") (2 . "A4"))))
)
(progn
(setq al (xdrx_pickset->ents ss)
lst (mapcar
'(lambda (x / p2 atts no l)
(mapcar 'set '(p2 atts box) (xdrx_getpropertyvalue x "position" "attributeentities" "boundingbox"))
(setq no (last (xdrx_string_split
(xdrx_getpropertyvalue (_getatt atts "4") "textstring")
"-"
)
)
)
(setq l (vl-remove-if-not
(function (lambda (a)
(xdrx_point_isinside (xdrx_getpropertyvalue a "position") box)
)
)
al
)
)
(if l
(progn
(foreach i l (setq al (vl-remove i al)))
(mapcar '(lambda (a) (getposition a p2 no)) l)
)
nil
)
)
(xdrx_pickset->ents a4)
)
lst (xd::list:groupbyindex (apply 'append lst) 0)
)
(mapcar '(lambda (x)
(if (= (length x) 2)
(progn
(xdrx_setpropertyvalue (caar x) "textstring" (cadadr x))
(xdrx_setpropertyvalue (caadr x) "textstring" (cadar x))
)
)
)
(mapcar 'cdr lst)
)
)
)
(princ)
)

(defun c:tt (/ ss _getatt a4 al lst getposition) 
  (defun _getatt (l tag) 
    (car (vl-remove-if-not 
           (function (lambda (x) (= (xdrx_getpropertyvalue x "tag") tag))) 
           l 
         ) 
    ) 
  ) 
  (defun getposition (b p str / p1 v l atts) 
    (setq p1   (xdrx_getpropertyvalue b "position") 
          v    (mapcar '- p1 (mapcar '+ '(4.5 5.0 0) p)) 
          l    (mapcar 'fix (mapcar '/ v '(36.0 50.0 1.))) 
          atts (xdrx_getpropertyvalue b "attributeentities") 
    ) 
    (list (xdrx_getpropertyvalue (_getatt atts "WIRENO") "textstring") 
          (_getatt atts "XREF") 
          (strcat "/" 
                  str 
                  "." 
                  (itoa (1+ (car l))) 
                  (chr (+ 65 (cadr l))) 
          ) 
    ) 
  ) 
  (if (and (setq ss (ssget '((0 . "INSERT") (2 . "HA1S1")))) 
           (setq a4 (ssget "x" '((0 . "INSERT") (2 . "A4")))) 
      ) 
    (progn 
      (setq al        (xdrx_pickset->ents ss) 
            lst        (mapcar 
                  '(lambda (x / p2 atts no l) 
                     (mapcar 'set '(p2 atts box) (xdrx_getpropertyvalue x "position" "attributeentities" "boundingbox")) 
                     (setq no (last (xdrx_string_split 
                                      (xdrx_getpropertyvalue (_getatt atts "4") "textstring") 
                                      "-" 
                                    ) 
                              ) 
                     ) 
                     (setq l (vl-remove-if-not 
                               (function (lambda (a) 
                                           (xdrx_point_isinside (xdrx_getpropertyvalue a "position") box) 
                                         ) 
                               ) 
                               al 
                             ) 
                     ) 
                     (if l 
                       (progn 
                         (foreach i l (setq al (vl-remove i al))) 
                         (mapcar '(lambda (a) (getposition a p2 no)) l) 
                       ) 
                       nil 
                     ) 
                   ) 
                  (xdrx_pickset->ents a4) 
                ) 
            lst        (xd::list:groupbyindex (apply 'append lst) 0) 
      ) 
      (mapcar '(lambda (x) 
                 (if (= (length x) 2) 
                   (progn 
                     (xdrx_setpropertyvalue (caar x) "textstring" (cadadr x)) 
                     (xdrx_setpropertyvalue (caadr x) "textstring" (cadar x)) 
                   ) 
                 ) 
               ) 
              (mapcar 'cdr lst) 
      ) 
    ) 
  ) 
  (princ) 
)

jxwlkj · 发表于 2017-3-3 21:54:24

csharp 发表于 2017-3-3 21:33

感谢csharp,可以用。非常感谢。大量的两两对应一次搞定，剩下的用手动选择也很快就处理完成。顺便也学到了不少东西。真希望自己可以快点成长起来也可以帮助到有需要的人。

marting · 发表于 2017-3-3 21:55:49

jxwlkj 发表于 2017-3-3 21:54

屏幕录像你试试这个，把结果录个传上来看看。

http://bbs.xdcad.net/thread-703998-1-1.html

jxwlkj · 发表于 2017-3-3 22:59:17

花了些时间，终于弄好了GIF了。现在传效果出来，录像5_转.gif

先用自动的处理，因为DWG里图框太多，只选择了部分代表性的录制。
可以看到第4张图的下面那些接线，是要连接到第5张图的上面部分。所以需要进行标注引用。
自动的因为没有框选所有的图框，也就是在框选范围内没有两两对应的标号就没有生成引用。
然后有多个相同的标号的。用手动的来选择。就可以再次生成引用。
再次感谢csharp。

newer · 发表于 2017-3-3 23:03:43

jxwlkj 发表于 2017-3-3 22:59

动画做的很不错，也看出来了插件能节省很多时间。

jxwlkj · 发表于 2017-3-3 23:14:18

newer 发表于 2017-3-3 23:03

是啊，以前用手工太慢了，要记下每根线的位置，要到哪张图去，再一根线一根线的去对，修改。现在可算是节约了很多的时间。这一切都归功于论坛和csharp的无私帮助。感谢。

aisong220 · 发表于 2019-7-12 11:43:40

{:1_12:厉害

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

[已解决] 【已解决】求自动修改块属性

评分