[求助]判断图层是否存在,如果不存在则建立图层的代码

yfywk · 发表于 2006-9-24 18:41:00

(if (=(tblobjname "LAYER" "-视口") nil)
(progn
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS") ;线型
'(62 . 3) ;颜色
'(70 . 0) ;图层状态
(cons 2 "-视口") ;图层名
)
)
)
)
这是一段判断图层是否存在,如果不存在则建立图层的代码。
那怎么将图层是否打印的控制添加到里面？

pleasehelp · 发表于 2006-9-26 22:52:00

建新图层，用command是不是更简单啊?

yfywk · 发表于 2006-9-26 23:01:00

我想用啊,但是会出现冲突,只要用command,就会与其他程序冲突,不能运行啊!

只有这个不冲突,但是就是不知道怎样控制图层打印

oyxx1023 · 发表于 2006-10-6 14:59:00

;;;autolisp方法
(defun getlayerlist ()
(setvar "cmdecho" 0)
(setq a (tblnext "layer" t))
(setq n 1)
(setq lli (list))
;(princ "图层列表:\n")
(while a
;(princ (cdr (nth 1 a)))
(setq lli (append lli (list (cdr (nth 1 a)))))
;(princ "\n")
(setq n (1+ n))
(setq a (tblnext "layer"))
)
;(princ lli)
(princ)
)
(princ)
;;;调用时
(getlayerlist)
(if (not (member "pdpc" lli))
(command "layer" "n" "pdpc" "s" "pdpc" "")
)

无痕 · 发表于 2006-10-8 01:33:00

yfywk发表于2006-9-24 18:41:00回复：（yfywk）判断图层是否存在,如果不存在则建立图层的代码 (if (=(tblobjname \"LAYER\" \"-视口\") nil)(progn(entmake (list'(0 . \"LAYER\")'(100 . \"AcDbSymbolTableRecord\")'(...

图层dxf组码

290	打印标志。如果设置为 0，则不打印此图层

userzhl · 发表于 2006-10-8 10:40:00

如果要判断好多个图层呢?

spring · 发表于 2006-10-8 11:47:00

那就循环啊

while

userzhl · 发表于 2006-10-8 18:52:00

不会，楼上可否改后贴出来？

看看我的：

;;; 程序功能：
;;; 1,判断指定层是否存在，如果不存在则建立并置为当前层,颜色为随层的指定色;
;;; 2,如果当前层不是指定层，且指定层被冻结则解冻指定层并置为当前层，颜色为随层的指定色;
;;; 3,如果当前层是指定层，则将指定层置为当前层，颜色为随层的指定色;
;;; 4,注意： W_Lname为“字符串”型，W_Color为“整数”型，取值1~255. (_By dwg001)
(Defun ZHL_MLA()
(defun Mla (W_Lname W_Color / W_layer)
(setq W_layer (tblsearch "layer" W_Lname))
(if (= nil W_layer)
    (command "_.layer" "m" W_Lname "c" W_Color "" "")
)
(if (/= (getvar "clayer") W_Lname)
    (command "_.layer" "t" W_Lname "s" W_Lname "c" W_Color "" "")
)
(if (= (getvar "clayer") W_Lname)
    (command "_.layer" "s" W_Lname "c" W_Color "" "")
)
(prin1)
)
;;; 如 (mla "ppp" 3)
(mla "1" 1)
(mla "2" 2)
(mla "3" 3)
(mla "4" 4)
(mla "5" 5)
(mla "6" 6)
(mla "8" 8)
(mla "9" 9)

和楼主发的一样功能，但哪个更好些呢？

spring · 发表于 2006-10-9 07:52:00

(defun Mla (W_Lname W_Color / W_layer)
(setq W_layer (tblsearch "layer" W_Lname))
(if (= nil W_layer)
    (command "_.layer" "m" W_Lname "c" W_Color "" "")
)
(if (/= (getvar "clayer") W_Lname)
    (command "_.layer" "t" W_Lname "s" W_Lname "c" W_Color "" "")
)
(if (= (getvar "clayer") W_Lname)
    (command "_.layer" "s" W_Lname "c" W_Color "" "")
)
(prin1)
)
;;; 如 (mla "ppp" 3)
(defun c:aa (/ laylist n lay)
(setq laylist '("1" "2" "3"))  ;图层列表
(setq n 0)
(while (setq lay (nth n laylist)) ;如果 lay 不为 nil 则进行循环
    (mla lay 1)    ;创建图层
    (setq n (1+ n))
)
)

对测试表达式进行求值，如果它不是 nil，则执行循环体中的表达式，重复这个过程，直到测试表达式的求值结果为 nil
(while testexpr [expr...])

while 函数在 testexpr 为 nil 之前不断运行。

参数

testexpr

包含测试条件的表达式。

expr

在 testexpr 为 nil 之前要求值的一个或多个表达式。

返回值

最后的 expr 表达式最新的值。

样例

下列代码调用了 10 次 some-func 函数，其参数 test 的取值从 1 到 10。最后它返回 11，因为这是它最后那个表达式的值：

(setq test 1)
(while (<= test 10)
(some-func test)
(setq test (1+ test))

)

userzhl · 发表于 2006-10-11 20:14:00

楼上，我试了怎么出错的。颜色

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