创建属性自动编号

Alistair · 发表于 2022-7-5 17:40:42

你好

我对AutoLISP比较陌生，但了解其原理。

我正在尝试为已经在另一个程序中绘制并导入为DXF的单个树自动生成一个数字。

我希望自动编号是一个属性，这样我可以将编号和X&Y数据导出到。CSV文件，然后我可以在其他地方使用。

我无法确定自动生成器是否会生成一个逻辑数字序列，或者这些数字是否只是随机出现在树状结构中。在这种情况下，我还可以使用自动生成的编号创建一个新块，并按我想要的顺序定位这些块。

任何帮助都将不胜感激。

干杯，阿利斯泰尔。

Lee Mac · 发表于 2022-7-5 17:45:31

嗨，阿利斯泰尔，

一个程序可以用来对你的树进行编号，可能是从左到右或从上到下（反之亦然）等等。所有块的标记名是否都相同？

李

Alistair · 发表于 2022-7-5 17:54:17

是的，所有树的标记名都是相同的。

我发现通常我会以顺时针或逆时针的方式对树进行编号。

谢谢你的帮助。

Lee Mac · 发表于 2022-7-5 17:55:53

嗨，阿利斯泰尔，

请尝试这个函数，它将以升序递增按Y坐标排序的属性数，因为我不太确定你说的顺时针是什么意思？围绕中心块顺时针旋转？

根据需要更改标记名称（顶部）。

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:AttNum [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] *error* MakeVariant Itemp MakeSelectionSet
                   DOC OBJ OBJECTLIST SS TAG UFLAG[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [i][color=#990099];; Lee Mac  ~  15.04.10[/color][/i]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tag [b][color=#a52a2a]"TAG1"[/color][/b][b][color=RED])[/color][/b] 
 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] *error* [b][color=RED]([/color][/b]msg[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] uFlag
     [b][color=RED]([/color][/b][b][color=BLUE]vla-EndUndoMark[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] msg[b][color=RED])[/color][/b] [b][color=#a52a2a]"*BREAK,*CANCEL*,*EXIT*"[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\n** Error: "[/color][/b] msg [b][color=#a52a2a]" **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] MakeVariant [b][color=RED]([/color][/b]data datatype[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]vlax-make-variant[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray-fill[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]vlax-make-safearray[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eval[/color][/b] datatype[b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]length[/color][/b] data[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
       data
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Itemp [b][color=RED]([/color][/b]collection item [b][color=BLUE]/[/color][/b] result[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-error-p[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] result
                [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b] [b][color=Blue]vla-item[/color][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] collection item[b][color=RED])[/color][/b]
                [b][color=RED])[/color][/b]
              [b][color=RED])[/color][/b]
            [b][color=RED])[/color][/b]
        [b][color=RED])[/color][/b]
     result
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] MakeSelectionSet [b][color=RED]([/color][/b]ref [b][color=BLUE]/[/color][/b] SelSets SelSet[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] SelSet
         [b][color=RED]([/color][/b]itemp
           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] SelSets
             [b][color=RED]([/color][/b][b][color=BLUE]vla-get-SelectionSets[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b]
               [b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
           [b][color=RED])[/color][/b]
           ref
         [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     
     [b][color=RED]([/color][/b][b][color=BLUE]vla-delete[/color][/b] SelSet[b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]vla-add[/color][/b] SelSets ref[b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *start
   [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
     [b][color=RED]([/color][/b]*start[b][color=RED])[/color][/b] [b][color=RED]([/color][/b] [b][color=#009900]1[/color][/b] [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *start
   [b][color=RED]([/color][/b][b][color=BLUE]1-[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
       [b][color=RED]([/color][/b]  [b][color=RED]([/color][/b][b][color=BLUE]getint[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\nSpecify Starting Number <"[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] *start[b][color=RED])[/color][/b] [b][color=#a52a2a]"> : "[/color][/b]
            [b][color=RED])[/color][/b]
          [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]*start[b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]     
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]zerop[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Count[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss
           [b][color=RED]([/color][/b][b][color=BLUE]vla-get-PickFirstSelectionSet[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] doc
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b]
               [b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
           [b][color=RED])[/color][/b]
         [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b]MakeSelectionSet [b][color=#a52a2a]"Tree_SS"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vla-SelectOnScreen[/color][/b] ss
       [b][color=RED]([/color][/b]MakeVariant [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] [b][color=#009900]66[/color][/b][b][color=RED])[/color][/b] [b][color=Blue]vlax-vbInteger[/color][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]MakeVariant [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#a52a2a]"INSERT"[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b] [b][color=Blue]vlax-vbVariant[/color][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]zerop[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Count[/color][/b] ss[b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] UFlag
       [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vla-StartUndoMark[/color][/b] doc[b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vlax-for[/color][/b] obj ss
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ObjectList
         [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] obj
             [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray->list[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-property[/color][/b] obj [b][color=DARKRED]'[/color][/b]InsertionPoint[b][color=RED])[/color][/b]
               [b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
           [b][color=RED])[/color][/b]
           ObjectList
         [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vla-delete[/color][/b] ss[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] block [b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] attribute [b][color=RED])[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] tag [b][color=RED]([/color][/b][b][color=BLUE]vla-get-TagString[/color][/b] attribute[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                   [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b] [b][color=Blue]vla-put-TextString[/color][color=RED])[/color][/b]
                     [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] attribute [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *start [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] *start[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                   [b][color=RED])[/color][/b]
                 [b][color=RED])[/color][/b]
               [b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vlax-invoke[/color][/b] block [b][color=DARKRED]'[/color][/b]GetAttributes[b][color=RED])[/color][/b]
           [b][color=RED])[/color][/b]
         [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b] car[b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vl-sort[/color][/b] ObjectList
           [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] point1 point2 [b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]<[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] point1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] point2[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
           [b][color=RED])[/color][/b]
         [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] UFlag
       [b][color=RED]([/color][/b][b][color=BLUE]vla-EndUndoMark[/color][/b] doc[b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Alistair · 发表于 2022-7-5 18:02:45

你好，李，

非常感谢你的帮助；但是，没有显示数字。

这可能是我没有在块属性中设置的吗？

非常感谢

阿利斯泰尔

Lee Mac · 发表于 2022-7-5 18:05:58

代码顶部的标记名是否正确？

Alistair · 发表于 2022-7-5 18:12:09

非常感谢你的帮助，李，它正在工作。

随着我的进步，我可能需要帮助，并尝试自动化更多的绘图过程。

非常感谢，

阿利斯泰尔

Lee Mac · 发表于 2022-7-5 18:15:03

根据PM的要求：

copy


(defun c:AttNum (/ tag dxf ent eLst)
 (setq dxf (lambda (c l) (cdr (assoc c l))))
 (setq tag "TAG1") ;; Tag to be Updated
 (setq *start (cond (*start) ( 1 ))
       *start (1- (cond (  (getint (strcat "\nSpecify Starting Number <"
                                     (itoa *start) "> : ")))
                        (*start))))
 (while
   (progn
     (setq ent (car (entsel (strcat "\nSelect Block Number "
                              (itoa (setq *start (1+ *start))) " <Exit> : "))))
     (cond (  (eq 'ENAME (type ent))
              (if (and (eq "INSERT" (dxf 0 (entget ent)))
                       (= 1 (dxf 66 (entget ent))))
                (while (not (eq "SEQEND" (dxf 0 (setq eLst (entget (setq ent (entnext ent)))))))
                  (if (eq tag (dxf 2 elst))
                    (entupd
                      (dxf -1
                        (entmod
                          (subst
                            (cons 1 (itoa *start)) (assoc 1 eLst) eLst)))) t))
                (princ "\n** Must be an Attributed Block **"))))))
 (princ))