各位帮我改一个图块统计程序，谢谢

sbdnnl · 发表于 2007-12-4 11:22:00

各位帮我改一个程序，谢谢

我希望通过窗选来统计，不希望它统计整张图的块。

程序如下：

(defun c:ttt()
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq pt1 (getpoint "\n左上角: "))
   (setq ww (getdist pt1 "\n宽度 <50>: "))
   (if (null ww) (setq ww 40.0))
   (setq hh (getdist pt1 "\n每格高度 <8>: "))
   (if (null hh) (setq hh 8.0))
   (setq pt2 (polar pt1 0 ww))
   (setq pt3 (polar pt2 (* pi 1.5) hh))
   (setq pt4 (polar pt1 (* pi 1.5) hh))
   (command "pline" pt1 pt2 pt3 pt4 "c")
   (setq pt5 (polar pt1 0 (/ ww 2)))
   (setq 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))
      (setq 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))
            (setq pt1 pt4 pt5 pt6 pt2 pt3)
            (setq pt4 (polar pt1 (* pi 1.5) hh))
            (setq pt6 (polar pt5 (* pi 1.5) hh))
            (setq 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"))
   )
   (setvar "osmode" os)
   (prin1)
)

sbdnnl · 发表于 2007-12-4 18:40:00

没有那位大哥帮改一下吗？

jdhszh · 发表于 2007-12-5 20:47:00

不希望它统计整张图的块,就不要这一行(setq blk (tblnext "block" t))

改成别的

carrot1983 · 发表于 2007-12-5 20:57:00

不知道楼主想干嘛，给个块统计的

;;;块数量carrot1983,2007.12.05
;;-------------------------------------
(defun c:tt (/ DATA ELST LASTLST NAME NLST SS)
;;ss->elst选择集->图元表
(defun ss->elst (ss / elst)
(setq i 0)
(repeat (sslength ss)
(setq elst (cons (ssname ss i) elst)
i (1+ i)
)
)
(reverse elst)
)
;;;统计表中相同元素的个数
(defun lstsameitmnum (lst / a len x return)
(while lst
(setq a (car lst))
(setq len (length lst))
(setq lst (vl-remove-if '(lambda (x) (= a x)) lst))
;;第一个是(- len(length lst))个
(setq return (cons (list a (- len (length lst))) return))
)
return
)
(if (setq ss (ssget '((0 . "INSERT"))))
(progn
(setq elst (ss->elst ss))
(foreach e elst
(setq data (entget e))
(setq name (cdr (assoc 2 data)))
(setq nlst (cons name nlst))
)
(setq lastlst (lstsameitmnum nlst))
(princ "\n>>>块数量统计如下（块名，数量）:\t")
(prin1 lastlst)
)
(princ "\n请重新选择")
)
(princ)
)

ZZXXQQ · 发表于 2007-12-5 22:36:00

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

sbdnnl · 发表于 2007-12-7 22:43:00

谢谢你们，问题搞定

BPE · 发表于 2007-12-10 11:50:00

可以统计整张图一种圆孔大小和数量吗?

dj8008 · 发表于 2008-1-23 10:51:00

可以自动生成表格吗？

dj8008 · 发表于 2008-1-23 10:56:00

生成的统计数是否可以根据图纸中的变化而更改～

cxlzcn · 发表于 2008-4-2 14:24:00

我也碰到这个问题

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