哪位高手帮忙做个统计图中块数量的lisp？

kighton · 发表于 2008-4-28 20:15:00

本帖最后由作者于 2008-4-28 21:13:40 编辑

图中有好几种块block，各有若干数量。

能否分别统计出其中块的数量来呢？要可以框选的。

先谢谢。。

wwwliuyu · 发表于 2008-4-28 22:23:00

(prompt (STRCAT "共有图块" (ITOA(SSLENGTH(SSGET '((0 . "INSERT")))))"个"))

Andyhon · 发表于 2008-4-29 08:49:00

http://www.mjtd.com/Blog/user1/46/archives/2005/57.asp

danxingpen · 发表于 2008-4-29 08:58:00

(defun blktotal(/ adwg blks blkname ss total)
(setq blks(vlax-get (vlax-get (vlax-get-acad-object) "Activedocument") "blocks"))
(vlax-for x blks
    (cond
      ((eq -1 (vlax-get x "islayout")));布局-----
      (t
       (setq blkname(vlax-get x "name"))
       (cond
   ((setq ss(ssget "x" (list '(0 . "INSERT")(cons 2 blkname))))
      (setq total(cons (cons blkname (sslength ss)) total))
      )
   (t);没有实例存在------------------------
       )
      )
    )
)
return total
)

young7707 · 发表于 2008-6-21 11:41:00

哈哈哈

三楼的连接能解决问题

贱人 · 发表于 2008-6-21 22:44:00

命令 jj

leous · 发表于 2010-6-29 10:54:00

命令 jj

这个命令如何使用啊？

ljttjl · 发表于 2010-6-29 11:09:00

或http://ljttjl.ys168.com 20090610目录下载图块数量分类统计程序

liminnet · 发表于 2010-6-29 11:17:00

提示: 作者被禁止或删除内容自动屏蔽

liminnet · 发表于 2010-6-29 11:37:00

提示: 作者被禁止或删除内容自动屏蔽

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

哪位高手帮忙做个统计图中块数量的lisp？

本帖子中包含更多资源

本帖子中包含更多资源

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-6-29 11:17:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-6-29 11:37:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡