[求助]：图层的问题 !!

su69 · 发表于 2006-3-9 17:03:07

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

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

×

请问,如何实现把这两句变成一个程序 ? 并且当空选择的时候
执行1 当有选择的时候执行2
我想如果能实现, 将是一个很方便的工具, 一个命令两个功能
请高手们看看 ,怎样实现 ?

1------------(defun c:1() (command "layer" "m" "1" "c" "red" "1" ""))
2------------(defun c:11() (setq ss1 (ssget)) (command "change" s1 "" "p" "la" "1" ""))

Underway · 发表于 2006-3-9 17:45:23

(defun c:11()
(if (setq ss1 (ssget))
(command "change" s1 "" "p" "la" "1" "")
(command "layer" "m" "1" "c" "red" "1" "")
)
)

ljpnb · 发表于 2006-3-9 20:07:24

可能这样会更好些
[php]
(defun c:11 ()
  (if (setq ss (ssget))
(progn
   (if (= (tblobjname "layer" "1") nil)
(command "layer" "N" "1" "c" "red" "1" "")
   )
   (command "change" ss "" "p" "la" "1" "")
)
  )
(princ)
)[/php]

su69 · 发表于 2006-3-10 10:03:02

好象是不能满足要求啊 !
条件一不满足,当是空选择的时候没能生成图层一, 并把它设置成为当前层

超然A · 发表于 2006-3-21 19:29:31

我也试一下

doubao · 发表于 2006-3-21 20:46:34

楼主和2楼的程序中都有
(command "change" s1 "" "p" "la" "1" "")

其中的 s1 应该是 ss1 才对。因为前面用的是(setq ss1 (ssget))

改后：
[php]
(defun c:1 ()
  (command "layer" "m" "1" "c" "red" "1" "")
  (if (setq ss1 (ssget))
(command "change" ss1 "" "p" "la" "1" "")
  )
)
[/php]

xyp1964 · 发表于 2006-3-21 20:50:20

[FONT=courier new](defun c:test ()
(if (setq ss1 (ssget))
(progn (command "layer" "m" "1" "c" "red" "1" "")
(command "change" ss1 "" "p" "la" "1" "")
)
(command "layer" "m" "1" "c" "red" "1" "")
)
(princ)
)[/FONT]

doubao · 发表于 2006-3-21 20:58:10

楼上的程序很完整规范，值得学习

雨箭风刀 · 发表于 2006-3-23 01:22:23

[php]
(defun c:test ()
(command "layer" "m" "1" "c" "red" "1" "")
(and (setq ss1 (ssget))  ;;用 if 也行
         (command "change" ss1 "" "p" "la" "1" "")
)
  (princ)
)
[/php]

winabcd · 发表于 2006-3-23 08:23:05

(defun c:test ()
(if (= (tblobjname "layer" "1") nil)
(command "layer" "m" "1" "c" "red" "1" "")
   )
(if (setq ss1 (ssget))
         (command "change" ss1 "" "p" "la" "1" "")
)
  (princ)
)

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

[求助] [求助]：图层的问题 !!

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

相关帖子

浏览过的版块