JRM 发表于 2022-7-6 08:14:34

块提取

你好
 
寻找一些可以帮助从一个块中提取属性信息和多行文本的代码，以便将其插入到另一个块中。我已经能够在一个街区同时做一个或另一个，但不能同时做两个。
 
 
谢谢
杰西

pBe 发表于 2022-7-6 08:29:09

示例
(defun c:sample(/ a e txtlst atbtlst)
   (if (setq txtlst nil
               a      (ssget "_:S:E" '((0 . "INSERT"))))
         (progn
               (setq e (vlax-ename->vla-object (ssname a 0)))
               (vlax-for
                        itm
                        (vla-item
                              (vla-get-blocks
                                    (vla-get-ActiveDocument
                                          (vlax-get-acad-object)))
                              (vla-get-effectivename e))
                     (if (wcmatch
                                 (vla-get-ObjectName itm)
                                 "AcDb*Text")
                           (setq txtlst
                                        (cons (vla-get-TextString
                                                    itm)
                                              txtlst))))
               (setq atbtlst
                            (mapcar
                                  (function
                                        (lambda (j)
                                              (vla-get-textstring
                                                    j)))
                                  (vlax-invoke
                                        e
                                        'GetAttributes)))
               )
         )
   (foreach
            itm(list '("TEXT" txtlst) '("ATTRIB" atbtlst))
         (if (eval (cadr itm))
               (progn (print (car itm))
                        (foreach
                               str(eval (cadr itm))
                              (princ (strcat "\n\t\t" str)))
                        )
               )
         )
   (princ)
   )

Lee Mac 发表于 2022-7-6 08:48:08

你的代码格式化pBe是怎么回事？你在使用标签吗？

pBe 发表于 2022-7-6 08:55:58

我想是的。在vlide上，当我点击“格式选择”时，它会这样做。在压痕没有那么宽之前。尝试恢复到默认值，但仍然没有乐趣。

JRM 发表于 2022-7-6 09:06:25

很好，非常感谢。
 
杰西

pBe 发表于 2022-7-6 09:17:45

 
不客气Jess
很高兴我能帮忙
 
干杯
页: [1]
查看完整版本: 块提取