[求助]：可不可以把属性块里的"提示"作为过滤条件对图块进行

userzhluserzhl

可不可以把属性块里的"提示"作为过滤条件对图块进行选择呢？

fl202

应该是可以的吧，如果不可以也没有关系，扩大搜索范围，然后进行选择集的处理，剔除不符合条件的即可。

userzhluserzhl

楼上，fl202您可不可以举个例子呢？

fl202

(setq ss (ssget "X" (list (0 . "INSERT"))))

(setq en (ssname ss 0))
(setq elist (entget en '("*"))) ；如果有扩展数据，一并取出。

(setq sname (cdr (assoc 2 elist))
      elist (tblsearch "BLOCK" sname))
(setq etbll (cons slist etbll)
      sname (cdr (assoc -2 slist))
      )
(while (setq etbll (cons (entget sname) etbll)
                         sname (entnext sname)
                         )
  )

有部分是抄书上的，没有写全，etbll就是所有的数据了，相信你根据这个数据剔除选择集中不符合条件的应该很简单了。

userzhluserzhl

;;利用属性块中的提示选择块
;;(setq FILTER (JW_ATT "test"))
;;(setq SS (ssget (list (cons 0 "INSERT") (cons 2 FILTER))))
(defun JW_ATT (str / BLK_NA FILTER)
;;By carrot1983 2009-05-18
(setq FILTER "")
(vlax-for BLK        (vla-get-blocks
                (vla-get-activedocument (vlax-get-acad-object))
                )
(vlax-for X        BLK
(if (and (= (vla-get-objectname X) "AcDbAttributeDefinition")
         (wcmatch        (vla-get-promptstring X)
                        str
         ) ;_支持模糊匹配
         (setq BLK_NA (vla-get-name BLK))
        )
        (setq FILTER (strcat "`" BLK_NA "," FILTER)) ;_`匿名块用到
)
)
)
(if (= FILTER "")
NIL
FILTER
)
)
;有很多这样的块，提示有“标高_1:10”、“标高_1:20”“标高_1:40”“标高_1:50”“标高_1:100”“标高_1:150”“标高_1:200”
;需要批量进行处理
;下面这个程序可以完成，要搜索图中所有的块，然后才进行判断，文件大一点的话太慢了。
;请教如何改成：只对所选的块进行判断？
(defun C:TT ( / edat edat1 en filter in_sc1 ins ins_e insc n n_in2 scal ss_bg promptstring)
(princ
    "\n把属性块里的(提示)作为过滤条件对图块进行选择 By carrot1983 REV2009-05-19"
  )
(setq ss (ssget '((0 . "INSERT"))))
(SETQ scal 50)
(if (/= nil (setq FILTER (JW_ATT (strcat "标高*"))))
(progn
(vl-cmdf "select" ss "")
(setq ss_bg (ssget "p" (list (cons 0 "INSERT") (cons 2 FILTER))))
(repeat (setq n (sslength ss_bg))
(setq edat1 (ssname ss_bg (setq n (1- n)))
edat (tblobjname "BLOCK" (cdr (assoc 2 (setq INS_e (entget edat1)))))
)
(while (and edat (setq en (entget edat)))
    (if (= "ATTDEF" (cdr (assoc 0 en)))
    (setq tag  (cdr (assoc 2 en))
     promptstring (cdr (assoc 3 en))
      )
    )
    (setq edat (entnext edat))
)
(setq IN_SC1 (atof (substr promptstring (+ (vl-string-position (ascii ":") promptstring) 2))));提取标高_1:后面的数据

(vl-cmdf "_SCALE" edat1 "" "_non" INS  (/ scal IN_SC1))
)
)
)
(princ)
)

甲子元

不是太明白，待高手回答