[编程申请]：框选范围内的图块数量(图)

dhxf · 发表于 2005-9-18 00:11:09

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

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

×

看到全图的,希望有框选范围内的图块统计;

qjcpj · 发表于 2005-9-18 12:45:34

使用ssget函数很容易办到...

HuaiYu · 发表于 2005-9-18 14:10:09

(defun c:test ()
  (if (ssget '((0 . "insert")))
(progn
   (vl-load-com)
   (setq *AcadDocument* (vla-Get-ActiveDocument (vlax-get-Acad-Object)))
   (setq lst (GetLst))
   (if lst
(Display lst)
   )
)
  )
  (prin1)
)
;;;;;;;;;;;;
(defun GetLst (/ ss lst BlkName)
  (vl-load-com)
  (setq ss  (vla-Get-ActiveSelectionSet *AcadDocument*)
lst '()
  )
  (vlax-for en ss
(setq BlkName (vla-Get-Name en))
(if (assoc BlkName lst)
   (setq lst (subst (list BlkName (1+ (cadr (assoc BlkName lst)))) (assoc BlkName lst) lst))
   (setq lst (append lst (list (list BlkName 1))))
)
  )
  lst
)
;;;;;;;;;;;;;;
(defun Display (lst / old_cmdecho old_osmode pt)
  (while (not (setq pt (getpoint "\n Please Specify a TextOut Point: "))))
  (setq lst (cons (list "BlockName" "Number") lst))
  (vla-StartUndoMark *AcadDocument*)
  (setq old_cmdecho (getvar "cmdecho")
old_osmode  (getvar "osmode")
  )
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (foreach en lst
(command ".text" pt 2 0 (car en))
(command ".text"
      (polar pt 0 20)
      2
      0
      (if (numberp (cadr en))
         (itoa (cadr en))
         (cadr en)
      )
)
(setq pt (polar pt (* pi 1.5) 4))
  )
  (setvar "cmdecho" old_cmdecho)
  (setvar "osmode" old_osmode)
  (vla-EndUndoMark *AcadDocument*)
)

qjcpj · 发表于 2005-9-18 14:26:57

3楼：
(ssget '((0 . "insert")))
不能处理无名块，其余没细看。

snoopychen · 发表于 2005-9-18 16:29:21

假如有装express tool的话

输入bcount即可

dhxf · 发表于 2005-9-18 17:24:48

爱huaiyu 爱xdcad---

idchris · 发表于 2006-7-25 12:45:20

能该成这样吗!!!
那就超厉害了
加上能设定印出的比例吗

登录/注册后可看大图

mann_ygw · 发表于 2006-7-25 12:48:47

统计完后能生成指定路径的文件吗？用EXCEL打开。

hhc_1 · 发表于 2006-7-25 13:25:47

3楼的思路不错:遍历每个图块,如表中已有该图块,则将其数量加1,否则添加进表中,并将数量设为1.(vla-StartUndoMark *AcadDocument*)和(vla-EndUndoMark *AcadDocument*)分别相当于(command "undo" "begin")和(command "undo" "end"),不知是不是这样.

ysx810210 · 发表于 2006-7-27 08:32:26

http://www.xdcad.net/forum/showthread.php?s=&threadid=436917

idchris · 发表于 2006-8-21 23:01:26

如果能够显示图块和表格的话那真的是太强了

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

[编程申请]：框选范围内的图块数量(图)

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

相关帖子