修改源码 请求 块统计

xman00

在版内找到一个关于块统计的，但还有别外的需求，请看官们修改一下源码，要求统计的块为当前层（其它层的就不统计了）

xman00

。00000000000000000

xman00

太nengqing了吧。观望的多，解答的无。

cheng5276

懒得看你的附件，下面这一句即可实现，有其他需求，稍改改就行
(sslength (ssget "a" (list '(0 . "insert") (assoc 2 (setq ent (entget (car(entsel))))) (assoc 8 ent))))

xman00

不知道怎么加，叹一个

tangxuefeng

看不到

zbz81

如何统计用PE合并的图形啊？？？QQ584985732

13826031454

1. (defun c:lsp_50()
   
2. (setvar "cmdecho" 0)
   
3. (setq os (getvar "osmode"))
   
4. (setvar "osmode" 0)
   
5. (setq pt1 (getpoint "\n左上角: "))
   
6. (setq ww (getdist pt1 "\n宽度 <50>: "))
   
7. (if (null ww) (setq ww 40.0))
   
8. (setq hh (getdist pt1 "\n每格高度 <8>: "))
   
9. (if (null hh) (setq hh 8.0))
   
10. (setq pt2 (polar pt1 0 ww))
    
11. (setq pt3 (polar pt2 (* pi 1.5) hh))
    
12. (setq pt4 (polar pt1 (* pi 1.5) hh))
    
13. (command "pline" pt1 pt2 pt3 pt4 "c")
    
14. (setq pt5 (polar pt1 0 (/ ww 2)))
    
15. (setq pt6 (polar pt5 (* pi 1.5) hh))
    
16. (command "line" pt5 pt6 "")
    
17. (command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 "块名称")
    
18. (command "text" "m" (inters pt5 pt3 pt2 pt6) (/ hh 2) 0 "数量")
    
19. (setq blk (tblnext "block" t))
    
20. (while blk
    
21. (setq blkn (assoc 2 blk))
    
22. (setq blk_key (substr (cdr blkn) 1 1))
    
23. (if (/= blk_key "*")
    
24. (progn
    
25. (setq ss (ssget "X" (list blkn)))
    
26. (if (null ss)
    
27. (setq ssn 0)
    
28. (setq ssn (sslength ss))              
    
29. )
    
30. (setq blknn (cdr blkn))
    
31. (setq pt1 pt4 pt5 pt6 pt2 pt3)
    
32. (setq pt4 (polar pt1 (* pi 1.5) hh))
    
33. (setq pt6 (polar pt5 (* pi 1.5) hh))
    
34. (setq pt3 (polar pt2 (* pi 1.5) hh))
    
35. (command "pline" pt2 pt3 pt4 pt1 "")
    
36. (command "line" pt5 pt6 "")
    
37. (command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 blknn)
    
38. (command "text" "m" (inters pt5 pt3 pt2 pt6) (/ hh 2) 0 (itoa ssn))
    
39. )
    
40. )
    
41. (setq blk (tblnext "block"))
    
42. )
    
43. (setvar "osmode" os)
    
44. (prin1)
    
45. )  

(defun c:lsp_50()<br /> (setvar "cmdecho" 0)<br /> (setq os (getvar "osmode")) <br /> (setvar "osmode" 0)<br /> (setq pt1 (getpoint "\n左上角: "))<br /> (setq ww (getdist pt1 "\n宽度 <50>: "))<br /> (if (null ww) (setq ww 40.0))<br /> (setq hh (getdist pt1 "\n每格高度 <8>: "))<br /> (if (null hh) (setq hh 8.0))<br /> (setq pt2 (polar pt1 0 ww))<br /> (setq pt3 (polar pt2 (* pi 1.5) hh))<br /> (setq pt4 (polar pt1 (* pi 1.5) hh))<br /> (command "pline" pt1 pt2 pt3 pt4 "c")<br /> (setq pt5 (polar pt1 0 (/ ww 2)))<br /> (setq pt6 (polar pt5 (* pi 1.5) hh))<br /> (command "line" pt5 pt6 "")<br /> (command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 "块名称")<br /> (command "text" "m" (inters pt5 pt3 pt2 pt6) (/ hh 2) 0 "数量")<br /> (setq blk (tblnext "block" t))<br /> (while blk<br /> (setq blkn (assoc 2 blk))<br /> (setq blk_key (substr (cdr blkn) 1 1))<br /> (if (/= blk_key "*")<br /> (progn<br /> (setq ss (ssget "X" (list blkn)))<br /> (if (null ss)<br /> (setq ssn 0)<br /> (setq ssn (sslength ss))              <br /> )<br /> (setq blknn (cdr blkn))<br /> (setq pt1 pt4 pt5 pt6 pt2 pt3)<br /> (setq pt4 (polar pt1 (* pi 1.5) hh))<br /> (setq pt6 (polar pt5 (* pi 1.5) hh))<br /> (setq pt3 (polar pt2 (* pi 1.5) hh))<br /> (command "pline" pt2 pt3 pt4 pt1 "")<br /> (command "line" pt5 pt6 "")<br /> (command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 blknn)<br /> (command "text" "m" (inters pt5 pt3 pt2 pt6) (/ hh 2) 0 (itoa ssn))<br /> )<br /> )<br /> (setq blk (tblnext "block"))<br /> )<br /> (setvar "osmode" os)<br /> (prin1)<br /> )  

用户3766035971

修改修改