[求助]打开或者关闭图层、设置输出打印格式

sf117

我想写一个小的lisp程序，功能是关闭所有图层、打开所有图层或者打开某一指定的图层！可惜我是新手，一点头绪都没有，请各位大侠给个思路，应该用那些函数，以及怎么用！

还有我想写一个输出打印的小程序，格式是：

请各位大侠指点迷经啊，先跪谢拉！！！

sf117

请斑竹、大侠帮忙啊！

怎么没人理我啊？

是不是太简单拉？

 

Dallas_whu

给你一个自己搞的！第二个问题不知道什么意思，解释一下！

2. ;;;打开所有关闭的图层
3. (DEFUN C:LAO (/ ACADDOCUMENT ACADOBJECT LAYERSOBJ)
4.   (VL-LOAD-COM)
5.   (SETQ ACADOBJECT (VLAX-GET-ACAD-OBJECT))
6.   (SETQ ACADDOCUMENT (VLAX-GET-PROPERTY ACADOBJECT 'ACTIVEDOCUMENT))
7.   (SETQ LAYERSOBJ  (VLA-GET-LAYERS ACADDOCUMENT ))
8.   (VLAX-FOR LAY LAYERSOBJ
9.          (VLA-PUT-LAYERON  LAY  :VLAX-TRUE)
10.   )
11.   (PRINC)
12. )
13. ;;;关闭所有图层
14. (DEFUN C:LAF (/ ACADDOCUMENT ACADOBJECT LAYERSOBJ)
15.   (VL-LOAD-COM)
16.   (SETQ ACADOBJECT (VLAX-GET-ACAD-OBJECT))
17.   (SETQ ACADDOCUMENT (VLAX-GET-PROPERTY ACADOBJECT 'ACTIVEDOCUMENT))
18.   (SETQ LAYERSOBJ  (VLA-GET-LAYERS ACADDOCUMENT ))
19.   (VLAX-FOR LAY LAYERSOBJ
20.          (VLA-PUT-LAYERON  LAY  :VLAX-false)
21.   )
22.   (PRINC)
23. )
25. ;;;关闭选取实体所在层
26. (DEFUN C:LF (/      ACADDOCUMENT         ACADOBJECT     ENAME
27.          INDEX     LAYER         LAYERLST     LAYERSOBJ
28.          SS         VL_ENAME
29.         )
30.   (VL-LOAD-COM)
31.   (DEFUN *$MYERROR$* (MSG)
32.     (SETQ *ERROR* &OLDERR&)
33.     (PRINC)
34.   )
35.   (SETQ &OLDERR& *ERROR*)
36.   (SETQ *ERROR* *$MYERROR$*)
37.   (SETQ ACADOBJECT (VLAX-GET-ACAD-OBJECT))
38.   (SETQ ACADDOCUMENT (VLAX-GET-PROPERTY ACADOBJECT 'ACTIVEDOCUMENT))
39.   (SETQ LAYERSOBJ (VLA-GET-LAYERS ACADDOCUMENT))
40.   (PRINC "\n请选择欲关闭的图层上的对象:")
41.   (SETQ SS (SSGET))
42.   (SETQ LIST_LAYER NIL)
43.   (SETQ INDEX -1)
44.   (WHILE (SETQ ENAME (SSNAME SS (SETQ INDEX (1+ INDEX))))
45.     (SETQ VL_ENAME (VLAX-ENAME->VLA-OBJECT ENAME))
46.     (SETQ LAYER (VLA-GET-LAYER VL_ENAME))
47.     (IF    (NOT (MEMBER LAYER LIST_LAYER))
48.       (SETQ LIST_LAYER (CONS LAYER LIST_LAYER))
49.     )
50.   )
51.   (FOREACH LAYER LIST_LAYER
52.     (VLA-PUT-LAYERON (VLA-ITEM LAYERSOBJ LAYER) :VLAX-FALSE)
53.   )
54.   (SETQ *ERROR* &OLDERR&)
55.   (PRINC)
56. )
58. ;;;将选定对象所在图层保留，其它图层关闭
59. (DEFUN C:LO (/ LAY       ACADDOCUMENT           ACADOBJECT
60.            ENAME       INDEX       LAYER       LAYERLST
61.            LAYERSOBJ   SS           VL_ENAME
62.           )
63.   (VL-LOAD-COM)
64.   (DEFUN *$MYERROR$* (MSG)
65.     (SETQ *ERROR* &OLDERR&)
66.     (PRINC)
67.     )
68.   (SETQ &OLDERR& *ERROR*)
69.   (SETQ *ERROR* *$MYERROR$*)
70.   (SETQ ACADOBJECT (VLAX-GET-ACAD-OBJECT))
71.   (SETQ ACADDOCUMENT (VLAX-GET-PROPERTY ACADOBJECT 'ACTIVEDOCUMENT))
72.   (SETQ LAYERSOBJ  (VLA-GET-LAYERS ACADDOCUMENT))
73.   (PRINC "\n请选择欲保留的图层上的对象:")
74.   (SETQ SS (SSGET))
75.   (SETQ LIST_LAYER NIL)
76.   (SETQ INDEX -1)
77.   (WHILE (SETQ ENAME (SSNAME SS (SETQ INDEX (1+ INDEX))))
78.     (SETQ VL_ENAME (VLAX-ENAME->VLA-OBJECT ENAME))
79.     (SETQ LAYER (VLA-GET-LAYER VL_ENAME))
80.     (IF    (NOT (MEMBER LAYER LIST_LAYER))
81.       (SETQ LIST_LAYER (CONS LAYER LIST_LAYER))
82.     )
83.   )
84.   (VLAX-FOR LAY LAYERSOBJ
85.     (VLA-PUT-LAYERON LAY :VLAX-FALSE)
86.     )
87.   (FOREACH LAYER LIST_LAYER
88.     (VLA-PUT-LAYERON (VLA-ITEM LAYERSOBJ LAYER) :VLAX-TRUE)
89.   )
90.   (SETQ *ERROR* &OLDERR&)
91.   (PRINC)
92.   )

复制代码

sf117

非常感谢Dallas_whu ！

你的程序对我非常有用！再次谢谢！

 

我的第2个问题其实就是想写一个打印图纸的LISP

但是有格式要求，就是图形打印在一个矩形框里，然后矩形框下面是制图人，上面是标题，制图人是由用户来输入的，标题是确定的！