（新人贴）统计块的数量并绘制成表格

pw_design

新人发帖 统计块的数量并绘制成表格  各位大佬看看我的源码  可以的话请给出建议！谢谢

2. (defun c:tt()
   
3.   (acad-activex-base)
   
4.   (setq old_err *error*)
   
5.   (setq os (getvar "osmode"))
   
6.   (setvar "osmode" 0)
   
7.   (setq blkobj (vla-get-blocks dwgobj))
   
8.   (setq blklist nil blknum_list nil)
   
9.   (setq pt1 (getpoint "\n表格左上角点"))
   
10.   (setq pt2 (polar pt1 0 60))
    
11.   (setq pt3 (polar pt2 (* pi 1.5) 10))
    
12.   (setq pt4 (polar pt3 pi 60))
    
13.   (setq ww (distance pt1 pt2))
    
14.   (setq hh (distance pt1 pt4))
    
15.   (command "pline" pt1 pt2 pt3 pt4 "c")
    
16.   (setq pa (polar pt1 0 (/ ww 2)))
    
17.   (setq pb (polar pa (* pi 1.5) hh))
    
18.   (command "line" pa pb "")
    
19.   (command "text" "m" (inters pt1 pb pt4 pa) (/ hh 2) "0" "图块名称")
    
20.   (command "text" "m" (inters pa pt3 pb pt2) (/ hh 2) "0" "数量")
    
21.   (vlax-for sobj blkobj
    
22.     (setq blkn (vla-get-name sobj))
    
23.     (if (/= (substr blkn 1 1) "*")
    
24.       (progn
    
25.   (setq ss (ssget "X" (list '(0 . "insert") (cons 2 blkn))))
    
26.   (if ss
    
27.     (setq nns (sslength ss))
    
28.     )
    
29.   (setq pt1 pt4 pt2 pt3 pa pb)
    
30.   (setq pt3 (polar pt2 (* pi 1.5) hh))
    
31.   (setq pt4 (polar pt1 (* pi 1.5) hh))
    
32.   (setq pb (polar pa (* pi 1.5) hh))
    
33.   (command "pline" pt1 pt2 pt3 pt4 "c")
    
34.   (command "line" pa pb "")
    
35.   (command "text" "m" (inters pt1 pb pt4 pa) (/ hh 2) "0" blkn)
    
36.   (command "text" "m" (inters pa pt3 pb pt2) (/ hh 2) "0" (rtos nns))
    
37.   )
    
38.       )
    
39.     )
    
40.   (acad-activex-exit)
    
41.   (setvar "osmode" os)
    
42.   (prin1)
    
43.   )
    
44. 
    
45. (defun acad-activex-base()
    
46.   (vl-load-com)
    
47.   (setq acadobj (vlax-get-acad-object))
    
48.   (setq dwgobj (vla-get-ActiveDocument acadobj))
    
49.   (setq mspace (vla-get-ModelSpace dwgobj))
    
50.   )
    
51. 
    
52. (defun acad-activex-exit()
    
53.   (vlax-release-object acadobj)
    
54.   )
    
55. 
    
56. (defun *error*(st)
    
57.   (if (and (/= st "Function cancelled")
    
58.      (/= st "quit / exit abort"))
    
59.     (princ (strcat "错误！" st))
    
60.     )
    
61.   (setq *error* old_err)
    
62.   (setvar "osmode" os)
    
63.   )
    

(defun c:tt()<br />   (acad-activex-base)<br />   (setq old_err *error*)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq blkobj (vla-get-blocks dwgobj))<br />   (setq blklist nil blknum_list nil)<br />   (setq pt1 (getpoint "\n表格左上角点"))<br />   (setq pt2 (polar pt1 0 60))<br />   (setq pt3 (polar pt2 (* pi 1.5) 10))<br />   (setq pt4 (polar pt3 pi 60))<br />   (setq ww (distance pt1 pt2))<br />   (setq hh (distance pt1 pt4))<br />   (command "pline" pt1 pt2 pt3 pt4 "c")<br />   (setq pa (polar pt1 0 (/ ww 2)))<br />   (setq pb (polar pa (* pi 1.5) hh))<br />   (command "line" pa pb "")<br />   (command "text" "m" (inters pt1 pb pt4 pa) (/ hh 2) "0" "图块名称")<br />   (command "text" "m" (inters pa pt3 pb pt2) (/ hh 2) "0" "数量")<br />   (vlax-for sobj blkobj<br />     (setq blkn (vla-get-name sobj))<br />     (if (/= (substr blkn 1 1) "*")<br />       (progn<br />   (setq ss (ssget "X" (list '(0 . "insert") (cons 2 blkn))))<br />   (if ss<br />     (setq nns (sslength ss))<br />     )<br />   (setq pt1 pt4 pt2 pt3 pa pb)<br />   (setq pt3 (polar pt2 (* pi 1.5) hh))<br />   (setq pt4 (polar pt1 (* pi 1.5) hh))<br />   (setq pb (polar pa (* pi 1.5) hh))<br />   (command "pline" pt1 pt2 pt3 pt4 "c")<br />   (command "line" pa pb "")<br />   (command "text" "m" (inters pt1 pb pt4 pa) (/ hh 2) "0" blkn)<br />   (command "text" "m" (inters pa pt3 pb pt2) (/ hh 2) "0" (rtos nns))<br />   )<br />       )<br />     )<br />   (acad-activex-exit)<br />   (setvar "osmode" os)<br />   (prin1)<br />   )<br /> <br /> (defun acad-activex-base()<br />   (vl-load-com)<br />   (setq acadobj (vlax-get-acad-object))<br />   (setq dwgobj (vla-get-ActiveDocument acadobj))<br />   (setq mspace (vla-get-ModelSpace dwgobj))<br />   )<br /> <br /> (defun acad-activex-exit()<br />   (vlax-release-object acadobj)<br />   )<br /> <br /> (defun *error*(st)<br />   (if (and (/= st "Function cancelled")<br />      (/= st "quit / exit abort"))<br />     (princ (strcat "错误！" st))<br />     )<br />   (setq *error* old_err)<br />   (setvar "osmode" os)<br />   )<br />

自贡黄明儒

dbvbd 发表于 2022-5-10 13:18
能给选择区域内的块统计吗

能。看这里http://bbs.xdcad.net/forum.php?m ... &extra=page%3D1

雨的节奏

鼓励一下，顺便看下我有多少币

烟盒迷唇

有问题啊，NNS的值是nil

dbvbd

能给选择区域内的块统计吗