xhpei1 发表于 2004-9-20 22:29:00

如何枚举图纸中所有块名称

各位高手：使用(ssget "X" (list (cons 0 "BLOCK")))无法得到图中所有块名称，敬请指点。

lockmyeye 发表于 2004-9-20 23:00:00

(SETQ block_data (TBLNEXT "block" T))


(WHILE block_data


       (PRINT (CDR (ASSOC '2 block_data)))


               (SETQ block_data (TBLNEXT "block"))


)

xhpei1 发表于 2004-9-21 00:59:00

非常感谢! 以后请多赐教和指点。
页: [1]
查看完整版本: 如何枚举图纸中所有块名称