块中套块的实体修改其中的图元属性的实现

梦断江南

就是发完贴（用lisp格式选项），显示程序段还是和其他文本一样，没有行号，底色等。但是第二天又正常了，是不是有人帮我改过？

牢固

发完后要刷新下才行！

wowan1314

好像块内有属性字时候有点问题！！！

XDSoft

wowan1314 发表于 2013-4-29 18:04

                               
登录/注册后可看大图

好像块内有属性字时候有点问题！！！

没明白，什么情况？测试的哪个朋友的代码有问题？把你的图贴上来吧。

wowan1314

XDSoft 发表于 2013-4-29 18:17

                               
登录/注册后可看大图

没明白，什么情况？测试的哪个朋友的代码有问题？把你的图贴上来吧。

就是有属性块内！ 有属性文字的情况下所有的代码都不理想！！

怎么传DWG文件??

XDSoft

wowan1314 发表于 2013-4-29 18:28

                               
登录/注册后可看大图

就是有属性块内！ 有属性文字的情况下所有的代码都不理想！！

怎么传DWG文件??

你把上面代码测试的图片截取下贴论坛，看看你的图属性变成啥样了。

wowan1314

XDSoft 发表于 2013-4-29 18:37

                               
登录/注册后可看大图

你把上面代码测试的图片截取下贴论坛，看看你的图属性变成啥样了。

以院长的程序为例：图中仅改变了线条颜色！ 而文字颜色没改变！

其中文字为属性字。所以对于有属性块内的属性字要单独处理下！

XDSoft

wowan1314 发表于 2013-4-29 19:15

                               
登录/注册后可看大图

以院长的程序为例：图中仅改变了线条颜色！ 而文字颜色没改变！

院长来看看。

wowan1314

测试发现。

仅“处处问题鸟”的纯LISP代码能处理属性字（但最外层的属性字没处理）！

其他VLA方法的代码都没处理属性字！

Highflybird

5#楼的代码跟我以前写的很相似。
这里我贴出一个简化版本的。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:changecolorSimple.LSP 
下载次数:34  文件大小:1.49 KB 
下载权限: 不限 以上  [免费赚D豆]

[pcode=lisp,true];;;=====================================================
;;;功能：修改实体，特别适用于于块及其嵌套块            
;;;输入：Obj -- 实体 ，DoFunc -- 要修改的函数           
;;;输出：无.                                            
;;;=====================================================
(defun NestedModify (obj DoFunc / name blks)
  (DoFunc obj)                                                ; 要加出错处理，因为有的可能被锁定
  (setq name (vla-get-objectname obj))
  (if (or (= name "AcDbBlockReference") (= name "AcDbMInsertBlock"))
    (progn
      (foreach Att (vlax-invoke Obj 'GetAttributes)        ; 这一行用于处理属性
        (DoFunc Att)                        
      )
      (setq name (vla-get-name obj))                        ; 取得块名
      (vlax-for        n (vla-item *BLK name)
        (NestedModify n DoFunc)                                ; 递归进去，用于处理嵌套
      )
    )
  )
)

;;;=====================================================
;;;测试程序                                             
;;;=====================================================
(defun C:Test (/ *BLK ent obj i sel)
  (defun DoFunc (obj)                                       
    (vla-put-color obj Acred)                                ; 这里Dofunc仅是改变颜色，可自定义
  )
  (setq *BLK (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
  (if (setq sel (ssget '((0 . "INSERT"))))
    (repeat (setq i (sslength sel))
      (setq ent (ssname sel (setq i (1- i))))
      (setq obj (vlax-ename->vla-object ent))
      (NestedModify obj DoFunc)                                ; 修改块内实体
    )
    (princ "\n你没有选择物体!")
  )
  (princ)
)

(vl-load-com)
(princ "\n测试命令是：Test")
(princ)
[/pcode]

我这里给出的是一个通用函数，就是说，你不仅仅可以更改颜色，你甚至还可以用来查找替换之类的。
或者统计数量等等。

Lisphk

Highflybird 发表于 2013-4-30 12:26

                               
登录/注册后可看大图

5#楼的代码跟我以前写的很相似。
这里我贴出一个简化版本的。

大侠，能支持XREF吗？

dnbcgrass

Highflybird 的可改属性及实体，Free-Lancer的第一个也能改实体，:lol

zutn

方法听好，没找个合适的工具。

lzj511

高手论剑,坐板凳学习!

tanjurun

还不是我我想要的结果，