求高手改个选择显示代码
已有筛好的对象,不要代码里的选中步骤,直接显示已选中的对象.(defun c:hredraw ( / YH_DOWHAT YH_INDEX YH_SELECTION YH_SELECTION1)
(setq YH_selection (ssget))
(initget "H R")
(setq YH_dowhat (GETKWORD "\n隐藏选择对象<H>;保留选择对象<R>"))
(if (or (= YH_dowhat "R") (= YH_dowhat "r"))
(progn
(setq YH_selection1 (ssget "X"))
(setq YH_index 0)
(repeat (sslength YH_selection)
(setq YH_selection1 (ssdel (ssname YH_selection YH_index) YH_selection1))
(setq YH_index (1+ YH_index))
)
(setq YH_selection YH_selection1)
)
)
(setq YH_index 0)
(repeat (sslength YH_selection)
(redraw (ssname YH_selection YH_index) 2)
(setq YH_index (1+ YH_index))
)
(princ)
)
路过,顶一下 (defun c:cc (/ YH_INDEX YH_SELECTION YH_SELECTION1)
(setq YH_selection (ssget))
(setq YH_selection1 (ssget "X"))
(setq YH_index 0)
(repeat (sslength YH_selection)
(setq YH_selection1
(ssdel (ssname YH_selection YH_index) YH_selection1)
)
(setq YH_index (1+ YH_index))
)
(setq YH_selection YH_selection1)
(setq YH_index 0)
(repeat (sslength YH_selection)
(redraw (ssname YH_selection YH_index) 2)
(setq YH_index (1+ YH_index))
)
(princ)
) 琴剑江山_10184我试了,很好呢,谢谢哈 隐藏后,如何全部显示呢 command: Regen 本帖最后由 ccc230 于 2017-10-21 16:42 编辑
重生成图形命令 command: Regen
高手实在是高啊
页:
[1]