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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用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是块名吗？

账号		自动登录	找回密码
密码			立即注册

[求助] autolisp如何获得属性块自定义的属性信息

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。