关于图层统计各层图元数量的程序问题

qq229918602 · 发表于 2012-6-2 00:03

本帖最后由 qq229918602 于 2012-6-2 00:04 编辑

(defun C:TJ()
  (setq blk (tblnext "layer" T))
(while blk
(setq blkn (assoc 2 blk))
(setq blk_key (substr (cdr blkn) 1 1))
  (if (/= blk_key "*")
(progn
  (setq ss5 (ssget "x" (list (cons 8 blk_key))))
  (setq a1(sslength ss5))
  (setq text1 (list blk_key"层" " " a1"个物体"))
  (princ "\n")
  (princ text1))
)
  (setq blk (tblnext "layer"))
  )
  (prin1)
  )

附上程序，当程序运行第三个层时就出错了，“错误: 参数类型错误: lselsetp nil”，不知道什么意思，请求老师帮我修改一下程序，实现输出各层的图元数量，感谢万分！

ZZXXQQ · 发表于 2012-6-2 10:02

要判断层中是否有物体。

(defun C:TJ()
(setq blk (tblnext "layer" T))
(while blk
(setq blkn (assoc 2 blk))
(setq blk_key (substr (cdr blkn) 1 1))
(if (/= blk_key "*")
(if (setq ss5 (ssget "X" (list (cons 8 blk_key)))) (progn
(setq a1 (sslength ss5))
(setq text1 (list blk_key "层" " " a1 "个物体"))
(princ "\n")
(princ text1)
))
)
(setq blk (tblnext "layer"))
)
(prin1)
)

qq229918602 · 发表于 2012-6-3 21:47

本帖最后由 qq229918602 于 2012-6-4 20:59 编辑

ZZXXQQ 发表于 2012-6-2 10:02
要判断层中是否有物体。

版主，不知道为什么修改后的程序能运行。不过重复计算两个层，我运行后得出的数据为：
命令: tj
(T 层 58 个物体)
(B 层 24 个物体)
(T 层 58 个物体)
(T 层 58 个物体)
(B 层 24 个物体)
(T 层 58 个物体)
(T 层 58 个物体)
(B 层 24 个物体)

但是我的图是有其他层的啊。。。求解。。

ZZXXQQ · 发表于 2012-6-3 22:25

压缩

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

再压缩

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

qq229918602 · 发表于 2012-6-3 22:43

ZZXXQQ 发表于 2012-6-3 22:25
压缩
[/post]
再压缩

恐怖如斯啊、、、、、好好研究一下思路。感谢感谢。。

Aries · 发表于 2020-9-7 17:13

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

关于图层统计各层图元数量的程序问题

相关帖子

本帖子中包含更多资源