麻烦有时间的朋友帮我看看
 

麻烦有时间的朋友帮我看看
www.dimcax.com
麻烦有时间的朋友帮我看看
(defun pratt (en type pcnt)
(setq ed (entget en))
(if (= type (dxf 0 ed))
(if (or (/= "attdef" (dxf 0 ed)) ; variable attribute: attrib
(/= 0 (logand 2 (dxf 70 ed)))) ; const: attdef & const flag
(progn
(set pcnt (1+ (eval pcnt)))
(print (dxf 10 ed))
(prin1 (dxf 2 ed))
(princ ": ")
(prin1 (dxf 1 ed)))))
)
;==================================================================
; c:cattl - list constant attributes in block definition:
;
; list all the attributes of a user-selected block, both constant
; and variable:
(defun c:ttt (/ nam b en constcnt)
(if (not bnam) (setq bnam ""))
(setq nam (dxf 2 (entget (ssname (ssget) 0)))
constcnt 0)
(if (/= "" nam) (setq bnam nam))
(if (setq b (tblsearch "block" bnam))
(if (setq en (dxf -2 b))
(progn
(pratt en "attdef" 'constcnt)
(while (setq en (entnext en))
(pratt en "attdef" 'constcnt)))
(prompt (strcat "\nno entities in block " bnam)))
(prompt (strcat "\nblock " bnam " not found.")))
(prompt (strcat "\nblock " bnam " has " (itoa constcnt) " constant attributes."))
(princ)
)
请句一下，为什么我的块中有几个attdef的属性定义在里面，怎么会说找到零个
block _dimzb1 has 0 constant attributes.，麻烦大家帮我看看
d
c:cattl - list constant attributes in block definition
程序是找固定屬性的
要努力学习,不进则退
网络u盘：
也就是说特定中的属性!
d