[求助]：当选择集为空时程序无法正常运行

mhy007 · 发表于 2006-10-3 20:39:01

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

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

×

我想先选取“结构”图层上的圆形和直线进行编辑，再选取“结构”图层上除去圆形和直线的所有对象。根据很久前论坛上的一个帖子的方法写了几行。结果发现只有“结构”图层存在圆形和直线，程序才运行正常。如果“结构”图层不存在圆形或直线，都是显示<选择集：XXX>，程序就停止运行不下去了，这是由于选择集为空而引起的。因画图时“结构”图层不一定会有圆形或直线存在，如何保证即使选择集为空也让程序顺利运行至结束呢？恳请高手出招，不胜感激。
(defun c:xz()
  (setq tcyx (ssget "X" '((0 . "circle")(8 . "结构"))))
  ;省略对选择集tcyx进行相应的编辑操作
  (setq tczx (ssget "X" '((0 . "line")(8 . "结构"))))
  ;省略对选择集tczx进行相应的编辑操作
  (command ".select" tcyx tczx "")
  (setq tczxj (ssget "p"))
  (setq tcqb (ssget "X" '((8 . "结构"))))
  (command ".select" tcqb "r" tczxj "")
  (command ".scale" (ssget "p") "" "0,0" 2)
  (prin1)
)

qjcpj · 发表于 2006-10-3 21:03:06

添加判断语句if

mhy007 · 发表于 2006-10-3 21:29:04

谢楼上。但判断语句我也试过了，还是不行呀！
(if (=/ nil tczxj)......

qrs · 发表于 2006-10-3 21:59:16

[FONT=courier new]
(defun c:xz ()
(if (setq tcyx (ssget "X" '((0 . "circle") (8 . "结构"))))
;;对选择集tcyx进行相应的编辑操作
)
(if (setq tczx (ssget "X" '((0 . "line") (8 . "结构"))))
;;对选择集tczx进行相应的编辑操作
)
(if (setq tczxj (ssget "x" '((0 . "LINE,CIRCLE")(8 . "结构"))))
(progn
(setq tcqb (ssget "X" '((8 . "结构"))))
(command ".select" tcqb "r" tczxj "")
)
(setq tcqb (ssget "X" '((8 . "结构"))))
)
(command ".scale" (ssget "p") "" "0,0" 2)
(princ)
)
[/FONT]

mhy007 · 发表于 2006-10-4 09:45:21

最初由 qrs 发布
[B][CODE]

(if (setq tczx (ssget "X" '((0 . "line") (8... [/B]

不能这样呀！有时候是只有圆形存在，有时又只有直线存在．而不一定是圆形和直线同时存在或同时不存在．就行不通了．

qrs · 发表于 2006-10-4 16:20:48

不明白你说的意思了！加IF本身就是为了判断圆形或者直线的存在，圆形和直线同时存在或者同时不存在也应该不影响程序的运行。 “ 对选择集tcyx进行相应的编辑操作”的IF后面加progn了吗？

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

[求助] [求助]：当选择集为空时程序无法正常运行

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

相关帖子