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

userzhl · 发表于 2009-5-19 20:03:00

;;利用属性块中的提示选择块
;;(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)
)

userzhl · 发表于 2009-5-20 07:18:00

版主，可否出手相助一下？

mmmmmm · 发表于 2009-5-20 10:08:00

本帖最后由作者于 2009-5-20 11:33:23 编辑

因为需要从不同的提示字符串中提取数据，所以浏览块定义时需要同时保存图块名称和提示比例到数据表。
然后再顺次对数据表中相应的图块进行缩放。程序为TT1
或者直接对全图进行搜索，过滤符合要求的属性和比例，再对图块进行缩放。程序为TT2.
没有测试图，所以不保证没有问题。

(Defun c:TT1 (/ DATA II OS SN SS STR)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(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 (setq str (vla-get-promptstring X))
"标高*"
)
)
(setq data (cons (cons (vla-get-name BLK)
(read (vl-string-subst
""
"标高_1:"
str
)
)
)
data
)
)
)
)
)
(foreach blk data
(if (setq ii -1
ss (ssget "_x"
(list (cons 0 "insert") (cons 2 (car blk)))
)
)
(repeat (sslength ss)
(setq sn (ssname ss (setq ii (1+ ii))))
(command "_.Scale"
sn
""
(cdr (assoc 10 (entget sn)))
(/ 50.0 (cdr blk))
)
)
)
)
(setvar "osmode" os)
(princ)
)
(Defun C:TT2 (/ II OS SCALE SN SS)
(setq ss (ssget "_x" '((0 . "insert") (66 . 1)))
ii -1
os (getvar "osmode")
)
(setvar "osmode" 0)
(repeat (sslength ss)
(setq sn (ssname ss (setq ii (1+ ii)))
Scale nil
)
(foreach att (vlax-safearray->list
(vlax-variant-value
(vla-GetAttributes (vlax-ename->vla-object sn))
)
)
(if (and (null Scale)
(wcmatch (vla-get-promptstring att) "标高*")
)
(setq Scale (read (vl-string-subst
""
"标高_1:"
(vla-get-promptstring att)
)
)
)
)
)
(if Scale
(command "_.Scale"
sn
""
(cdr (assoc 10 (entget sn)))
(/ 50.0 Scale)
)
)
)
(setvar "osmode" os)
(princ)
)

(Defun c:TT1 (/ DATA II OS SN SS STR)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (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 (setq str (vla-get-promptstring X))
   "标高*"
        )
   )
 (setq data (cons (cons (vla-get-name BLK)
          (read (vl-string-subst
           ""
           "标高_1:"
           str
         )
          )
    )
    data
     )
 )
      )
    )
  )
  (foreach blk data
    (if (setq ii -1
       ss (ssget "_x"
   (list (cons 0 "insert") (cons 2 (car blk)))
   )
 )
      (repeat (sslength ss)
 (setq sn (ssname ss (setq ii (1+ ii))))
 (command "_.Scale"
   sn
   ""
   (cdr (assoc 10 (entget sn)))
   (/ 50.0 (cdr blk))
 )
      )
    )
  )
  (setvar "osmode" os)
  (princ)
)

(Defun C:TT2 (/ II OS SCALE SN SS)
  (setq ss (ssget "_x" '((0 . "insert") (66 . 1)))
 ii -1
 os (getvar "osmode")
  )
  (setvar "osmode" 0)
  (repeat (sslength ss)
    (setq sn (ssname ss (setq ii (1+ ii)))
   Scale nil
    )
    (foreach att (vlax-safearray->list
      (vlax-variant-value
        (vla-GetAttributes (vlax-ename->vla-object sn))
      )
    )
      (if (and (null Scale)
        (wcmatch (vla-get-promptstring att) "标高*")
   )
 (setq Scale (read (vl-string-subst
       ""
       "标高_1:"
       (vla-get-promptstring att)
     )
      )
 )
      )
    )
    (if Scale
      (command "_.Scale"
        sn
        ""
        (cdr (assoc 10 (entget sn)))
        (/ 50.0 Scale)
      )
    )
  )
  (setvar "osmode" os)
  (princ)
)

userzhl · 发表于 2009-5-20 10:45:00

命令: tt2 ; 错误: 参数类型错误: VLA 对象集合: (#<VLA-OBJECT IAcadAttributeReference 06bbb944>)

mmmmmm · 发表于 2009-5-20 11:41:00

需要把vlax-for改成foreach，已修改

userzhl · 发表于 2009-5-20 11:51:00

命令: tt2 ; 错误: ActiveX 服务器返回错误: 未知名称: PromptString

userzhl · 发表于 2009-5-20 13:14:00

没人帮忙？

mmmmmm · 发表于 2009-5-20 19:41:00

我想错了，ATTRIB的提示属性是不存在的，所以TT2将无法使用。只能用TT1的方法。

userzhl · 发表于 2009-5-22 07:30:00

TT1也用不了。图中有符合条件的块，但执行后没反映。

userzhl · 发表于 2009-5-22 15:05:00

没有理？

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

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

本帖子中包含更多资源