[求助]：怎样计算图内某块的数量

hequnming · 发表于 2003-6-7 12:29:05

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

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

×

怎样计算图内某块的数量，请高手指教！

e2002 · 发表于 2003-6-7 14:32:41

1. 不使用专门的程序 : qselect 命令或在绘图区域内右击鼠标,在弹出菜单中选择Quick Select ... 在对话框中按你的要求进行选择后可以看到有多少符合你对象被选中.
2. 不使用专门的程序 : select命令结合 'filter
3.使用ExpressTools中的Bcount程序或其他类似程序.

如果需要考虑嵌套,Qiufeng斑竹以前贴过这样的一个程序.

chenwei_zj · 发表于 2003-6-8 11:54:13

我这里有个统计图块的小LSP程序，很好用的！

加载后输入to的命令就可以了，我计算喷头数就用这个，非常管用。

jianqiang21c · 发表于 2003-6-8 13:58:40

最初由 chenwei_zj 发布
[B]我这里有个统计图块的小LSP程序，很好用的！

加载后输入to的命令就可以了，我计算喷头数就用这个，非常管用。 [/B]

楼上的姐姐，你的LSP没有加选择过滤哦，如果选中其它的非本块的物体就会进入死循环的

;查选区内的数
;cks.lsp
(defun c:cks ()
(setq a1 (entsel "\nselect a bolck:"))
(if a1
(progn
(setq a2 (car a1))
(setq a3 (entget a2))
(setq a4 (assoc 0 a3))
(setq a5 (cdr a4))
(if (= a5 "INSERT")
(progn
(setq a6 (assoc 2 a3))
(setq a7 (cdr a6))
(princ "\n选择要查所选块数的区域")
(setq a8 (ssget (list '(0 . "INSERT") a6)))
(setq a9 (sslength a8))
(princ "\n选区内的块")
(princ a7)
(princ "数目为:")
(princ a9)
(princ)
)
(princ "\n选择的物体不是块!!!")
)
)
(princ "\n没有物体被选择!!!")
)
(princ)
)

这个是师父刚学LISP时候写的一个简单的查块程序

chenwei_zj · 发表于 2003-6-8 18:27:58

呵呵，不会，偶还从来没有碰到过死循环，那小东东也是网上找来的

jianqiang21c · 发表于 2003-6-8 19:05:10

哦，是程序冲突造成的，我搞错了

yi.gao · 发表于 2003-6-9 10:30:58

可能有些朋友没注意过，原来的14下有个统计块数量的count.lsp程序，非常好用，只要输入count命令，窗选计算图块的图形范围，在F2文本窗口内自动出现所有图块名称以及统计的数量列表。这个程序在14以及2002下都可以加载使用，2004下还没试估计没问题。

lsjjm · 发表于 2003-6-9 11:27:27

一楼的, 我实在不明白, 你是求某一图形区域内的图块呢? 还是要某一图块的什么数量呢?

chenwei_zj · 发表于 2003-6-13 19:02:33

就是在选定的范围内特定的块的数量了：）

lingnemo · 发表于 2005-11-22 15:06:06

谢谢老大辛苦了

xyp1964 · 发表于 2005-11-22 16:17:15

[FONT=courier new](load "xyp_lib.vlx")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
;;;块统计并制表标注
(defun c:test47 ()
(CMDLA0)
(setvar "osmode" 0)
(if (null ww)
(setq ww 50.0)
)
(if (null hh)
(setq hh 8.0)
)
(setq pt1 (getpoint "\n左上角: ")
ww (UDIST 1 "" "\n宽度" ww nil)
hh (UDIST 1 "" "\n每格高度" hh nil)
pt2 (polar pt1 0 ww)
pt3 (polar pt2 (* pi 1.5) hh)
pt4 (polar pt1 (* pi 1.5) hh)
)
(command "pline" pt1 pt2 pt3 pt4 "c")
(setq pt5 (polar pt1 0 (/ ww 2))
pt6 (polar pt5 (* pi 1.5) hh)
)
(command "line" pt5 pt6 "")
(command "text"
"m"
(inters pt1 pt6 pt4 pt5)
(/ hh 2)
0
"图块名称"
)
(command "text"
"m"
(inters pt5 pt3 pt2 pt6)
(/ hh 2)
0
"数量"
)
(setq blk (tblnext "block" t))
(while blk
(setq blkn (assoc 2 blk)
blk_key (substr (cdr blkn) 1 1)
)
(if (/= blk_key "*")
(progn
(setq ss (ssget "X" (list blkn)))
(if (null ss)
(setq ssn 0)
(setq ssn (sslength ss))
)
(setq blknn (cdr blkn)
pt1 pt4
pt5 pt6
pt2 pt3
pt4 (polar pt1 (* pi 1.5) hh)
pt6 (polar pt5 (* pi 1.5) hh)
pt3 (polar pt2 (* pi 1.5) hh)
)
(command "pline" pt2 pt3 pt4 pt1 "")
(command "line" pt5 pt6 "")
(command "text"
"m"
(inters pt1 pt6 pt4 pt5)
(/ hh 2)
0
blknn
)
(command "text"
"m"
(inters pt5 pt3 pt2 pt6)
(/ hh 2)
0
(itoa ssn)
)
)
)
(setq blk (tblnext "block"))
)
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib.vlx") 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib") 
■2·在每个程序内增加(load"xyp_lib") 
■3·在command下，输入(load"xyp_lib") 
■4·在菜单.mnl中增加(load"xyp_lib") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
;;;块统计并制表标注 
(defun c:test47        () 
  (CMDLA0) 
  (setvar "osmode" 0) 
  (if (null ww) 
    (setq ww 50.0) 
  ) 
  (if (null hh) 
    (setq hh 8.0) 
  ) 
  (setq        pt1 (getpoint "\n左上角: ") 
        ww  (UDIST 1 "" "\n宽度" ww nil) 
        hh  (UDIST 1 "" "\n每格高度" hh nil) 
        pt2 (polar pt1 0 ww) 
        pt3 (polar pt2 (* pi 1.5) hh) 
        pt4 (polar pt1 (* pi 1.5) hh) 
  ) 
  (command "pline" pt1 pt2 pt3 pt4 "c") 
  (setq        pt5 (polar pt1 0 (/ ww 2)) 
        pt6 (polar pt5 (* pi 1.5) hh) 
  ) 
  (command "line" pt5 pt6 "") 
  (command "text" 
           "m" 
           (inters pt1 pt6 pt4 pt5) 
           (/ hh 2) 
           0 
           "图块名称" 
  ) 
  (command "text" 
           "m" 
           (inters pt5 pt3 pt2 pt6) 
           (/ hh 2) 
           0 
           "数量" 
  ) 
  (setq blk (tblnext "block" t)) 
  (while blk 
    (setq blkn          (assoc 2 blk) 
          blk_key (substr (cdr blkn) 1 1) 
    ) 
    (if        (/= blk_key "*") 
      (progn 
        (setq ss (ssget "X" (list blkn))) 
        (if (null ss) 
          (setq ssn 0) 
          (setq ssn (sslength ss)) 
        ) 
        (setq blknn (cdr blkn) 
              pt1   pt4 
              pt5   pt6 
              pt2   pt3 
              pt4   (polar pt1 (* pi 1.5) hh) 
              pt6   (polar pt5 (* pi 1.5) hh) 
              pt3   (polar pt2 (* pi 1.5) hh) 
        ) 
        (command "pline" pt2 pt3 pt4 pt1 "") 
        (command "line" pt5 pt6 "") 
        (command "text" 
                 "m" 
                 (inters pt1 pt6 pt4 pt5) 
                 (/ hh 2) 
                 0 
                 blknn 
        ) 
        (command "text" 
                 "m" 
                 (inters pt5 pt3 pt2 pt6) 
                 (/ hh 2) 
                 0 
                 (itoa ssn) 
        ) 
      ) 
    ) 
    (setq blk (tblnext "block")) 
  ) 
  (CMDLA1) 
)[/FONT]

ysx810210 · 发表于 2005-11-25 16:38:39

试试这个吧，用过后你肯定会觉得比count.lsp还好，它可是还能统计无名块的。

sz721 · 发表于 2006-5-22 22:05:55

感谢分享

lin51050 · 发表于 2006-5-23 21:26:53

谢谢了，我先试下

jiangxxf · 发表于 2006-9-5 12:24:08

xiexie

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

[求助] [求助]：怎样计算图内某块的数量

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

相关帖子