有没有好办法对动态图块块名用ssget选择过滤？

LIULISHENG

我来支持哦

jzh56088

snddd2000 发表于 2013-12-21 13:48

新手请教，这代码怎么变成可编译的lsp文件呀？

jzh56088

新手请教下，这代码怎么变成可编译的lsp文件？

ucuc2003

  ;取得块名name
(setq en (car (entsel "\n选择块：")))
   (or
      (eq "TCH_BLOCK_INSERT" (cdr (assoc 0 (entget en))))
      (eq "INSERT" (cdr (assoc 0 (entget en))))
      (alert "没有选择块!")
    )
   (setq xobj (vlax-ename->vla-object en))
   (setq name (vlax-get-property xobj 'EffectiveName))

G〆h

;;;===========================================================
;;; 函数名: ssgetblock-X2
;;; 功能: 通过窗口选择方式选择指定名称列表中的图块
;;; 参数:
;;;   pt1 - 窗口选择第一点
;;;   pt2 - 窗口选择第二点  
;;;   blknamelst - 图块名称列表
;;; 返回值: 包含符合条件图块的选择集
;;; (setq pt1 (getpoint "\n指定第一角点: "))
;;  (setq pt2 (getcorner pt1 "\n指定第二角点: ")))
;;  (ssgetblock-X2 pt1 pt2 '("DESK" "COMPUTER"))
;;;===========================================================
(defun ssgetblock-X2 ( pt1 pt2 blknamelst / ss0 n count ent0 str BlkName0)
  (setq ss0 (ssget "X" '((0 . "INSERT"))))
  (setq        n     0
        count (sslength ss0)
        str   ""
  )
  (repeat count
    (setq ent0 (ssname ss0 n))
    (setq BlkName0 (vla-get-effectivename
                     (vlax-ename->vla-object ent0)
                   )
    )
    (if        (member BlkName0 blknamelst)
      (setq str (strcat str ",`" (cdr (assoc 2 (entget ent0)))))
    )
    (setq n (1+ n))
  )                                        ;end repeat
  (ssget "W" pt1 pt2  (list (cons 0 "INSERT") (cons 2 str)))
)

;;收集图中的所有此块名的dxf的2组码，作为ssget的过滤条件
(defun ssgetblock (blkname / ss0 n count ent0 str BlkName0)
  (setq ss0 (ssget "X" '((0 . "INSERT"))))
  (setq   n     0
                count (sslength ss0)
                str   ""
  )
  (repeat count
    (setq ent0 (ssname ss0 n))
    (setq BlkName0 (vla-get-effectivename
                     (vlax-ename->vla-object ent0)
                   )
    )
    (if        (= blkname BlkName0)
      (setq str (strcat str ",`" (cdr (assoc 2 (entget ent0)))))
    )
    (setq n (1+ n))
  )                                        ;end repeat
  (ssget (list (cons 0 "INSERT") (cons 2 str)))
)