[求助]：怎么列出冻结层

fengjianwei · 发表于 2006-11-14 14:51:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如提

水流知识 · 发表于 2006-11-14 15:02:55

只要把图层冻结的标志单击回开的状态就行了,

fengjianwei · 发表于 2006-11-14 15:09:12

lisp方式的还要把这些层弄成一个列表

kohi · 发表于 2006-11-15 02:41:36

[php]
列出冻结层
(defun c:test (/ ll)
  (vlax-for each
(vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (= (vla-get-freeze each) :vlax-true)
   (setq ll (append ll (list (vla-get-name each))))
)
  )
  ll
)
[/php]

fengjianwei · 发表于 2006-11-15 08:35:48

高手，还是VL简洁明了啊

橄榄滋味 · 发表于 2006-11-15 12:14:57

那么怎样列出所有的层呢

kohi · 发表于 2006-11-15 13:00:00

[PHP]
更简单呀，看来6楼没有好好看程序。去掉条件语句即可。
(defun c:test (/ ll)
  (vlax-for each
(vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(setq ll (append ll (list (vla-get-name each))))
  )
  ll
)
[/PHP]

橄榄滋味 · 发表于 2006-11-15 16:50:48

谢谢楼上，其实我对VL不太熟悉，我想再请教个问题：
1 如何用VL得到块中名称为“BB”的属性块实体
2 如何用VL提取块中名称为“BB”的属性块中标签为“GG”的属性值
3 如何用VL修改块中名称为“BB”的属性块中标签为“GG”的属性值

Dallas_whu · 发表于 2006-11-15 18:29:36

搜索一下“属性块”，这方面的很多例子！

kohi · 发表于 2006-11-16 04:17:53

[php]

1.提取名称为“BB”的属性块
  (setq blk (ssget "x" '((0 . "INSERT")(2 . "BB"))))
2. 提取名称为“BB”中标签为“GG”的属性值
(setq att (dxf 1 (last (assoc "GG" (getattributes (ssname blk 0)))))
3. 修改名称为“BB”中标签为“GG”的属性值:
(setq attobj (vlax-ename->vla-object (last (assoc "GG" (getattributes (ssname blk 0))))))
  (vla-put-textstring attobj "newvalue")

*相关的子程序：
(defun getattributes (ent / lst)
  (if (safearray-value
(setq lst (vlax-variant-value (vla-getattributes (vlax-ename->vla-object ent)))))
(mapcar '(lambda (x) (list (vla-get-tagstring x)(vla-get-textstring x)
         (vlax-vla-object->ename x)))(vlax-safearray->list lst))
  )
)
;
(defun dxf (code ename)(cdr (assoc code (entget ename))))
[/php]

橄榄滋味 · 发表于 2006-11-16 09:41:03

非常感谢楼上，佩服佩服。关键是那个相关函数太厉害了，比LISP的ENT等函数简单，所以提取属性值可以直接这样
(setq att (nth 1(assoc "GG" (getattributes (ssname blk 0)))))
另外我想请教更深一点的问题，还是上面的三个问题，只是不是用在当前图纸，而是用在远程图纸上。解释一下，打开AutoCAD，不用打开要操作的图纸，只是执行程序就可以将另一张图纸中的属性块BB中标签GG的值操作，我知道用VLA-OPEN打开，用VLA-CLOSE关闭，可是其余的呢？请楼上费心了

oyxx_1023 · 发表于 2006-11-16 09:56:09

要想不打开图纸而对图形进行操作，那就不是LSP能做到的咯。

橄榄滋味 · 发表于 2006-11-16 15:32:27

根据上面内容可以看出，
用(vlax-for each
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(setq ll (append ll (list (vla-get-name each))))
可以列出所有块的名称
用(safearray-value
(setq lst (vlax-variant-value (vla-getattributes (vlax-ename->vla-object ent)))))
(mapcar '(lambda (x) (list (vla-get-tagstring x)(vla-get-textstring x)
(vlax-vla-object->ename x)))(vlax-safearray->list lst))
可以列出所有某个块的标签和属性
麻烦10楼将这两个程序合并以下，列出所有块的块名，标签，属性值的列表，能分清层次最佳，谢了

怎么不理我呀，我在好多地方看到你，帮帮我。如果你没空合并这个程序，那么请问上面的each怎样才能作为vla-getattributes的参数？

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

[求助] [求助]：怎么列出冻结层

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子