[求助]怎样将块中特定图元改为另一图层

hdlyt11

也就是希望能自动将图块中图名含有hatch的，例如：wall-hatch，全部改为hatch层。

hdlyt11

或者选择图块，可以将不同图层的文本改为TEXT图层

Gu_xl

下面的是一个简单示例，选择你要改动的图块中的文字或hatch，即可自动转换到需要的图层

3. (defun c:tt()
4.   (princ "\n选择图块中的子图元：")
5.   (setq ent (car (nentsel)))
6.   (if ent
7.     (progn
8.   (setq ent (vlax-ename->vla-object ent))
9.   (cond ((= "AcDbText" (vla-get-ObjectName ent))
10.   (command "layer" "m" "Text" "")
11.   (vla-put-layer ent "Text")
12.   )
13. ((= "AcDbHatch" (vla-get-ObjectName ent))
14.   (command "layer" "m" "hatch" "")
15.   (vla-put-layer ent "hatch")
16.   )
17. )
18.   )
19.     )
20.   (command "regen")
21.   (princ)
22.   )

(defun c:tt()   (princ "\n选择图块中的子图元：")   (setq ent (car (nentsel)))   (if ent     (progn   (setq ent (vlax-ename->vla-object ent))   (cond ((= "AcDbText" (vla-get-ObjectName ent))   (command "layer" "m" "Text" "")   (vla-put-layer ent "Text")   ) ((= "AcDbHatch" (vla-get-ObjectName ent))   (command "layer" "m" "hatch" "")   (vla-put-layer ent "hatch")   ) )   )     )   (command "regen")   (princ)   )

Gu_xl

3. ;;;选中图块，自动将土块中全部文字和填充该层
4. (defun c:ttt()
5.   (setq ent (car (entsel)))
6.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
7. ent (vlax-ename->vla-object ent)
8.   )
9.   (if (or
10. (= "AcDbBlockReference" (vla-get-ObjectName ent))
11. (= "AcDbMInsertBlock" (vla-get-ObjectName ent))
12. )
13.     (progn
14.   (setq blkname (vla-get-name ent))
15.   (setq blkobj (vla-item (vla-get-Blocks doc) blkname))
16.   (vlax-for obj blkobj
17.     (cond ((= "AcDbText" (vla-get-ObjectName obj))
18.     (command "layer" "m" "Text" "")
19.     (vla-put-layer obj "Text")
20.    )
21.    ((= "AcDbHatch" (vla-get-ObjectName obj))
22.     (command "layer" "m" "hatch" "")
23.     (vla-put-layer obj "hatch")
24.    )
25.     ) ;_ cond
26.   ) ;_ foreach
27.   )
28.     )
29.   (command "regen")
30.   (princ)
31.   )

;;;选中图块，自动将土块中全部文字和填充该层 (defun c:ttt()   (setq ent (car (entsel)))   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) ent (vlax-ename->vla-object ent)   )   (if (or (= "AcDbBlockReference" (vla-get-ObjectName ent)) (= "AcDbMInsertBlock" (vla-get-ObjectName ent)) )     (progn   (setq blkname (vla-get-name ent))   (setq blkobj (vla-item (vla-get-Blocks doc) blkname))   (vlax-for obj blkobj     (cond ((= "AcDbText" (vla-get-ObjectName obj))     (command "layer" "m" "Text" "")     (vla-put-layer obj "Text")    )    ((= "AcDbHatch" (vla-get-ObjectName obj))     (command "layer" "m" "hatch" "")     (vla-put-layer obj "hatch")    )     ) ;_ cond   ) ;_ foreach   )     )   (command "regen")   (princ)   )

hdlyt11

超级爽，非常好，太精彩了，非常好用，哈哈哈

jialiang168

( setq ent ( vlax-ename- > vla-object ent ) )

vlax-ename- > vla-object ent

这个是什么函数，不能使用耶

yshf

在函中增加 “(vl-load-com)“，即
(defun c:tt()
   (vl-load-com)
   ......
)