需要帮助提取属性

Archiman86 · 发表于 2022-7-6 11:40:52

大家好，

我目前正在编写一个Lisp，需要一些帮助。在这里的情况下，我有3个不同的模板，从一个客户是不同的图纸尺寸。每种尺寸的图纸空间中都有不同的图形边框（属性块）。我想做的是根据使用的图形模板在Lisp中做出决定。我想出的最好办法是“弄清楚”图纸中的标题栏。为此，我提出了在绘图中列出块或列出属性值的方法。然而，我一直无法找到任何地方如何找到这些信息，以便我可以根据这些信息做出决定。如有任何建议，我们将不胜感激。

Lee Mac · 发表于 2022-7-6 11:46:36

这将检索图形中所有属性插入的列表：

copy


(defun c:blklist (/ ss i bname bnameLst)
 (if (setq ss (ssget "X" (list (cons 0 "INSERT")(cons 66 1)
               (if (getvar "CTAB")
                 (cons 410 (getvar "CTAB"))
                 (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
   (setq i (sslength ss))
   (while (not (minusp (setq i (1- i))))
     (setq bname (cdr (assoc 2 (entget (ssname ss i))))
       bnameLst (cons bname bnameLst))))
   (princ "\n<!> No Attributed Blocks Found. <!>"))
 (princ))

（未经测试，书写速度快！）

Archiman86 · 发表于 2022-7-6 11:48:19

这应该行得通，我很感激。有没有办法从属性中提取值。假设标题栏中有一个属性，用于指定它是“D”大小、“E”大小还是“a”大小的图形。其中，属性标记为“大小”，标题栏中的值分别为“D”、“E”或“A”。是否有方法提取该值，以便根据该值确定大小、比例等。

Lee Mac · 发表于 2022-7-6 11:53:32

这将生成属性值为Size的所有块的关联列表：

copy


(defun c:AttLst (/ ss eLst bEnt aEnt aEntLst aVal blkLst)
 (vl-load-com)
 (if (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 66 1)
               (if (getvar "CTAB")
                 (cons 410 (getvar "CTAB"))
                 (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
     (setq eLst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
     (foreach e eLst
   (setq bEnt (cdr (assoc 2 (entget e)))
         aEnt (entnext e))
   (while (= "ATTRIB" (cdr (assoc 0 (setq aEntLst (entget aEnt)))))
     (if (= (cdr (assoc 2 aEntLst)) "SIZE")
       (progn
         (setq aVal (cdr (assoc 1 aEntLst))
           blkLst (cons (cons bEnt aVal) blkLst))))
     (setq aEnt (entnext aEnt)))))
   (princ "\n<!> No Attributed Blocks Found <!>"))
 (alert (vl-princ-to-string blkLst))
 (princ))

Archiman86 · 发表于 2022-7-6 11:53:47

太棒了！再次感谢。如果有一天你觉得无聊，并且你不介意帮忙，我会非常感谢你解释一下这到底是怎么回事。我的意思是，完成我试图完成的任务很好，但仅供将来参考，以便我理解它，也便于我学习。

Lee Mac · 发表于 2022-7-6 11:58:59

没问题，你想让我逐行检查吗？

Archiman86 · 发表于 2022-7-6 12:00:56

如果你不介意的话。我对AutoLisp有点陌生。我理解它的工作原理，但贯穿整个过程将非常有益。

提前谢谢。

Lee Mac · 发表于 2022-7-6 12:05:44

毫无疑问，我很乐意帮助任何想更好地理解LISP的人：

copy


(defun c:AttLst    (/ ss eLst bEnt aEnt aEntLst aVal blkLst) ; [b][color=Red]Define the function, localise the variables[/color][/b]
 
 (vl-load-com) ; [b][color=Red]Load the Visual LISP console [i](allows vl-... commands)[/i][/color][/b]
 
 (if ; [b][color=Red]If there exists a selection set such that:[/color][/b]
   (setq ss (ssget "X" ; [b][color=Red][i]"X" [/i]meaning search [i]entire database[/i] for entities with:[/color][/b]
             (list (cons 0 "INSERT") ; [b][color=Red]type: INSERT [i](Blocks, XRefs)[/i][/color][/b]
               (cons 66 1) ; [b][color=Red]Attributed[/color][/b]
               (if    (getvar "CTAB") ; [b][color=Red]If there is a variable [i]"CTAB"[/i] (newer releases - determines Model Space/Paper Space[/color][/b]
                 (cons 410 (getvar "CTAB")) ; [b][color=Red]Then filter by the CTAB variable[/color][/b]
                 (cons 67 (- 1 (getvar "TILEMODE"))) ; [b][color=Red]Otherwise use TILEMODE variable to filter.[/color][/b]
               ) ; [b][color=Red]end if[/color][/b]
             ) ;[b][color=Red] end list [Filter List][/color][/b]
          ) ;[b][color=Red] end Selection set aquirement [ssget][/color][/b]
     ) ; [b][color=Red]end Variable Setting [selection set stored in variable "ss"][/color][/b]
   (progn ; [b][color=Red]Wrap the following code for use in the IF statement:[/color][/b]
     (setq eLst ; [b][color=Red]Store the following list of entity names to variable "eLst"[/color][/b]
        (vl-remove-if 'listp ; [b][color=Red]Remove from the list if the item is a List[/color][/b]
          (mapcar 'cadr ; [b][color=Red]Produce a list of entity names (and possible coord values) from[/color][/b]
              (ssnamex ss) ;[b][color=Red] Information provided by "ssnamex" about the Selection Set[/color][/b]
              ) ; [b][color=Red]end Mapcar[/color][/b]
          ) ;[b][color=Red] end vl-remove-if[/color][/b]
       ) ; [b][color=Red]end variable setting[/color][/b]
     (foreach e eLst ; [b][color=Red]For Each item (e) in the eLst (entity name list):[/color][/b]
   (setq bEnt (cdr (assoc 2 (entget e))) ; [b][color=Red]Retrieve the Block Name [store to "bEnt"][/color][/b]
         aEnt (entnext e) ; [b][color=Red]Retrieve the Attribute Entity Name [store to aEnt][/color][/b]
   ) ; [b][color=Red]end Variable setting[/color][/b]
   (while (= "ATTRIB" (cdr (assoc 0 (setq aEntLst (entget aEnt))))) ; [b][color=Red]While the Entity Type is "ATTRIB"[ute][/color][/b]
     (if (= (cdr (assoc 2 aEntLst)) "SIZE") ; [b][color=Red]If the ATTRIBute name is "SIZE"[/color][/b]
       (progn ; [b][color=Red]wrap the following for use with the IF[/color][/b]
         (setq aVal   (cdr (assoc 1 aEntLst)) ; [b][color=Red]Store the ATTRIBute value [to aVal][/color][/b]
           blkLst (cons
                (cons bEnt aVal) ; [b][color=Red]Create an Associative list (dotted pair) of Block Name and Att. Value.[/color][/b]
                blkLst) ; [b][color=Red]Connect this to the main list[/color][/b]
         ) ; [b][color=Red]End Variable Setting[/color][/b]
       ) ; [b][color=Red]end Progn (code wrapper)[/color][/b]
     ) ;[b] [color=Red]end IF[/color][/b]
     (setq aEnt (entnext aEnt)) ; [b][color=Red]Move onto next Attribute in Block[/color][/b]
   ) ; [b][color=Red]End While[/color][/b]
     ) ; [b][color=Red]End Foreach[/color][/b]
   ) ; [color=Red][b]End Progn[/b][/color]
   (princ "\n<!> No Attributed Blocks Found <!>") ;[b][color=Red] If No Selection Set, then No Attributed Blocks Found in Drawing.[/color][/b]
 ) ; [b][color=Red]End IF[/color][/b]
 (alert (vl-princ-to-string blkLst)) ;[b][color=Red] Convert the Associative List to a String and Alert it in a Dialog Box to view result.[/color][/b]
 (princ) ; [b][color=Red]Exit Cleanly[/color][color=Red] - [suppress last function return][/color][/b]
) ; [b][color=Red]End Function[/color][/b]