[LISP]如何建这样的图层?

neteasy

我想要一个这样的图层,在这个图层中的对象只有在打印时才可见,其它情况下不可见.

可以用LISP语言来实现吗?

alin

;; This routine is amended from a similar one found on web (www.cad-manager.com)
;; To test this routine, first you need to create a layer name "draft_only" in current drawing
;; Then add some entities on this layer.

(vl-load-com)

(defun DoThisAfterCommand (Caller CmdSet)
  (if (= (car Cmdset) "PLOT")
    (FreezeLayer "draft_only")
  )
  (princ)
)

(defun DoThisBeforeCommand (Caller CmdSet)
  (if (= (car Cmdset) "PLOT")
    (ThawLayer "draft_only")
  )
  (princ)
)

(setq MyReactor1
       (vlr-command-reactor
  nil
  '((:vlr-commandWillStart . DoThisBeforeCommand)
    (:vlr-CommandEnded . DoThisAfterCommand)
    (:vlr-CommandCancelled . DoThisAfterCommand)
   )
       )
)

(defun Clear_My_Reactors ()
  (if (and MyReactor1 (vlr-added-p MyReactor1))
    (vlr-remove MyReactor1)
  )
)

(defun Clear_All_Reactors (/ TMP)
  (vlr-remove-all :vlr-Command-reactor)
)

(defun FreezeLayer (layname / layobj)
  (setq layobj (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) layname))
  (vla-put-freeze layobj :vlax-true)
)
(defun ThawLayer (layname / layobj)
  (setq layobj (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) layname))
  (vla-put-freeze layobj :vlax-false)
)

neteasy

多谢多谢!

如果图层上的对象只是可见，但不能修改、删除和打印，这样的图层又如何建立？

maomao2004

图层锁定可以实现吧

wei209

是这样吗？

加的水印　　　＂可见但不能修改删除＂

neteasy

wei209发表于2006-1-14 16:00:00 是这样吗？ 加的水印　　　＂可见但不能修改删除＂ UploadFile/2006-1/2006114155858383.dwg,viewFile.asp?ID=...

我用2002打开后,怎么什么也没有啊?

wei209

不是吧,应该是这样啊!

neteasy

现在可以看到了，请教wei209兄，你是如何实现的呢？

另外我设置“不显示代理图形”就看不到，还有没有其它的办法？

maomao2004

哦，原来是水印，谢谢

wei209

是水印,VB编的一个加密程序.呵呵