[讨论]：如何在vl中不调用command命令修改层的定义和状态？

梦断江南 · 发表于 2002-11-27 13:55:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何在vl中不调用command：layer命令修改层的定义和状态？如锁定，开关等

lijiao · 发表于 2002-11-27 14:59:44

看帮助文挡。

e2002 · 发表于 2002-11-27 17:27:11

最初由梦断江南发布
[B]如何在vl中不调用command：layer命令修改层的定义和状态？如锁定，开关等 [/B]

这样的问题似乎不是江南兄问的啊?

梦断江南 · 发表于 2002-11-27 20:00:41

呵呵，活跃一下气氛嘛. 大家要回答到点子上啊！

hqd9639 · 发表于 2002-11-28 14:43:41

请教江南兄一个类似的问题：
如下示例

[font=courier new]
(defun C:lay ()
(setq layname (getstring "请输入层名："))
(setq laylst (tblsearch "LAYER" layname))
(if laylst
(progn
(setq laykg (cdr (assoc 62 laylst)))
(if (< laykg 0)
(progn
;(prompt "层已关闭,请要打开图层吗?(Y/N):")
(initget "Y N")
(setq yn (getkword "层已关闭,请要打开图层吗?(Y/N)<N>: "))
(if (= yn "Y")
(progn
(setq laykg (abs laykg))
(setq laykglst (cons 62 laykg))
(setq laylst (subst laykglst (assoc 62 laylst) laylst))
;到此处，层数据已改变
;原想用(entmake laylst)重新构建层,不过行不通,如何更新层?
)
)
)
)
)
)
(princ)
)
[/font]

[font=courier new] 
(defun C:lay () 
   (setq layname (getstring "请输入层名：")) 
   (setq laylst (tblsearch "LAYER" layname)) 
   (if laylst 
       (progn 
          (setq laykg (cdr (assoc 62 laylst))) 
          (if (< laykg 0) 
              (progn 
                   ;(prompt "层已关闭,请要打开图层吗?(Y/N):") 
                   (initget "Y N") 
                   (setq yn (getkword "层已关闭,请要打开图层吗?(Y/N)<N>: ")) 
                   (if (= yn "Y") 
                       (progn 
                          (setq laykg (abs laykg)) 
                          (setq laykglst (cons 62 laykg)) 
                          (setq laylst (subst laykglst (assoc 62 laylst) laylst)) 
                          ;到此处，层数据已改变 
                 ;原想用(entmake laylst)重新构建层,不过行不通,如何更新层? 
                      ) 
                  ) 
              ) 
          ) 
      ) 
   ) 
   (princ) 
) 
[/font]

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

[讨论]：如何在vl中不调用command命令修改层的定义和状态？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [讨论]：如何在vl中不调用command命令修改层的定义和状态？