一个关于:vlax-false问题

mcxiangxin

（setq layer_ob "0"） ，我想用(vla-get-Freeze layer_ob)判断＂0＂层是否是冻结状态，如果是冻结，就将其解冻，否则就它冻结．  但是程序在运行确老是错误，我知道应该是 (if (= (vla-get-Freeze layer_ob) 　:vlax-false)  这句错了，但不知道怎么改？请高手指点！

 (if (= (vla-get-Freeze layer_ob) :vlax-false)    
     (vla-put-Freeze layer_ob -1)
     (vla-put-Freeze layer_ob 0)
      )

Andyhon

Check here:
http://forums.augi.com/archive/index.php/t-8848.html

Andyhon

Check here:
http://forums.augi.com/archive/index.php/t-8848.html

danxingpen

在冻结图层时候,先判断该图层是否当前层,,,,,,

caoyin

(vla-get-Freeze
  (vla-item
    (vla-get-layers
     (vla-get-activedocument (vlax-get-acad-object))
    )
    layer_ob
  )
)

mcxiangxin

我是想请教,我这段代码为什么判断不出来layer_ob图层是"冻结"还是"解冻"的状态?

 (if (= (vla-get-Freeze layer_ob) :vlax-false)    
     (vla-put-Freeze layer_ob -1)
     (vla-put-Freeze layer_ob 0)
      )

caoyin

你的语法不对，我5楼已经说明了

layer_ob 不应是字符串，而是vla图层集合的索引数据

mcxiangxin

我还是不怎么不明白,请求caoyin大哥帮忙写个完整的.我的目的是要判断"dim"尺寸层的状态.如果该层是冻结状态,就将该层解冻,如果是未冻结状态,就将该层冻结.先谢了.拜托

Andyhon

请自行判断图层状态,此段代码 Freeze "DIM"

(vla-put-freeze
  (vla-item (vla-get-layers
              (vla-get-activedocument (vlax-get-acad-object))
            )
            "Dim"
  )
  :vlax-true
)
;; or
(vla-put-freeze
  (vlax-ename->vla-object (tblobjname "layer" "Dim"))
  :vlax-true
)