zxc001975cvb 发表于 2024-2-27 10:15:59

autolisp如何获得属性块自定义的属性信息

如何用autolisp代码获得属性块中自定义的属性信息，谢谢！

zxc001975cvb 发表于 2024-2-27 10:49:07

如下图块中的属性值：

王鹏_pBZlo 发表于 2024-3-15 10:14:47

(defun wp:getattlst(att dxfno / rtn attpar dxfi dxfv cdxfno)
        (setq rtn nil)
        (while (= "ATTRIB" (cdr (assoc 0 (setq attpar (entget (setq att (entnext att)))))))
           (cond ((= 'LIST (type dxfno))
                        (setq dxfi -1 dxfv nil)
                        (while (setq cdxfno (nth (setq dxfi (1+ dxfi)) dxfno))
                                (setq dxfv (append dxfv (list (cdr (assoc cdxfno attpar)))))
                        )(setq rtn (cons (cons (cdr (assoc 2 attpar)) dxfv) rtn))
                      )
                ((= 'INT (type dxfno)) (setq rtn (cons (cdr (assoc dxfno attpar)) rtn)))
           )
           )   (reverse rtn)
)

例: (wp:getattlst ent 1) 返回'("50.0" "1.0" "20.0" "M6" "4.00")
      (wp:getattlst ent '(1)) 返回'(("DN" "50.0") (" PN" "1.0") ("C" "20.0") ("M" "M6") ("N" "4.00"))

zxc001975cvb 发表于 2024-3-18 10:20:28

非常感谢，王鹏_pBZlo。

zxc001975cvb 发表于 2024-3-18 10:33:18

王鹏_pBZlo，不好意思问一下，ent是块名吗？
页: [1]
查看完整版本: autolisp如何获得属性块自定义的属性信息