[求助]：如何利用lisp来实现图层的打印和非打印？

andyhua5240

如何利用lisp来实现图层的打印和非打印？
如何利用-layer命令中的p选项来实现上述功能？
当然图层名的确认采用拾取图层上的对象来获取？
谢谢！

fools

[php]
;;Usage: (LayerPlotTurnOff "0" T) 强制设为不打印
;;       (LayerPlotTurnOff "0" nil) 在打印与非打印之间切换
(DEFUN LayerPlotTurnOff        (layname bit / layer)
  (IF (AND (SETQ layer (TBLOBJNAME "LAYER" layname))
           (SETQ layer (ENTGET layer))
      )
    (IF        bit
      (ENTMOD (SUBST (CONS 290 0) (ASSOC 290 layer) layer))
      (ENTMOD (SUBST (CONS 290 (1- (CDR (ASSOC 290 layer))))
                     (ASSOC 290 layer)
                     layer
              )
      )
    )
  )
)

(DEFUN c:test (/ a)
  (IF (SETQ a (ENTSEL "\n选择物体:"))
    (LayerPlotTurnOff (CDR (ASSOC 8 (ENTGET (CAR a)))) nil)
  )
  (PRINC)
)
[/php]

秋枫

偶觉得用Command函数不是更简单么，一句就行了。

2. [FONT=courier new]
   
3. ;;;        用法：
   
4. ;;;        (layerplotTurnoff "0,layer1,layer2" 't)
   
5. ;;;        (layerplotTurnoff "0,layer2" nil)
   
6. 
   
7. (defun LayerPlotTurnOff (layname bit)
   
8.   (vl-cmdf "_.-layer" "p" (if bit "p" "n") layname "")
   
9. )
   
10. [/FONT]

[FONT=courier new]<br /> ;;;        用法：<br /> ;;;        (layerplotTurnoff "0,layer1,layer2" 't)<br /> ;;;        (layerplotTurnoff "0,layer2" nil)<br /> <br /> (defun LayerPlotTurnOff (layname bit)<br />   (vl-cmdf "_.-layer" "p" (if bit "p" "n") layname "")<br /> )<br /> [/FONT]

雨箭风刀

[php]
;| 图层设置,可打印属性----by lxx
参数: layname = 图层名
      key  =  T,可打印; nil不可打印.
测试:
(layplotk "0" nil)
(layplotk "dim" T)
|;
(defun layplotk (layname key)
  (vla-put-plottable (vlax-ename->vla-object(tblobjname "layer" layname)) (if key :vlax-true :vlax-false))
)
[/php]