基于多段线分割块

nosscc · 发表于 2022-7-5 16:18:21

谢谢你，比格尔！我想我现在明白你的密码了

这真是个绝妙的主意，我会花时间去做的

nosscc · 发表于 2022-7-5 16:20:56

嗨，比格尔，

我可以再次使用（vla GetBoundingBox obj‘minpoint’maxpoint）方法来选择多段线内的文本，无需使用Alan H的代码
然后我使用txt2att lisp（粘贴在上面）将它们转换为块属性。这是成功的，他们仍然处于相同的地位
现在我的问题是，我们如何将这些属性转化为块？

如果我手动操作，我选择属性并使用命令“block”，然后输入块名，单击ok，ok。
在lisp中，我读到一些线程使用“insert”，但它的输入是文本值，我不知道它的标记会发生什么
其他一些线程建议使用“entmake”并定义块插入点，用属性插入点定义属性。。听起来工作量很大
我们有更简单的方法吗？

Roy_043 · 发表于 2022-7-5 16:24:08

如果我看看这个例子。我对预期的结果感到惊讶。为什么要创建6个相同的块定义？为什么多个属性标记具有相同的名称（这很糟糕）？为什么随机插入点？

Roy_043 · 发表于 2022-7-5 16:25:45

可以对属于现有块的属性进行排序。请参阅下面的代码。所以我之前的建议似乎是可行的。
遗憾的是，现有块也有一个随机插入点。但是（删除现有属性后）可以建立左下角。该点可用于计算新块的插入点。

copy

(defun KGA_List_Divide_3 (lst / ret)
 (repeat (/ (length lst) 3)
   (setq ret (cons (list (car lst) (cadr lst) (caddr lst)) ret))
   (setq lst (cdddr lst))
 )
 (reverse ret)
)
; (SortedAttValueList (car (entsel))) =>
; (
;   (("DESC1" "AA") ("TETHERSOR" "10-10-00-00") ("TETHERQTY" "15"))
;   (("DESC2" "BA") ("DFNENCLSOR" "07-07-01-09") ("DFNENCLNO" "1")) 
;   (("DESC3" "CA") ("SPLICESOR" "02-02-04-06") ("NOOFSPLICE" "10")) 
;   (("DESC4" "AB") ("SPLITSOR" "07-02-05-04") ("SPLITRQTY" "1")) 
;   (("DESC5" "AC") ("LFNOTDRSOR" "55-06-06-06") ("LFNQTY" "1")) 
;   (("DESC6" "DB") ("FIBERSOR" "22-04-03-05") ("FIBERQTY" "2"))
; )
(defun SortedAttValueList (enm / obj)
 (setq obj (vlax-ename->vla-object enm))
 (vl-sort
   (mapcar
     '(lambda (sub)
       (mapcar 'cdr (vl-sort sub '(lambda (a b) (< (car a) (car b)))))
     )
     (KGA_List_Divide_3
       (mapcar
         '(lambda (att / tag)
           (setq tag (strcase (vla-get-tagstring att)))
           (list
             (cond
               ((wcmatch tag "DESC*") 0)
               ((wcmatch tag "*SOR")  1)
               (T                     2)
             )
             tag
             (vla-get-textstring att)
           )
         )
         (vlax-invoke obj 'getattributes)
       )
     )
   )
   '(lambda (a b) (< (caar a) (caar b)))
 )
)