ccc230 发表于 2017-10-18 17:40:28

求高手改个选择显示代码

已有筛好的对象,不要代码里的选中步骤,直接显示已选中的对象.
(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)
)

fsafaffa 发表于 2017-10-19 10:01:07

路过,顶一下

琴剑江山_10184 发表于 2017-10-19 15:11:10

(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)
)

ccc230 发表于 2017-10-19 17:14:35

琴剑江山_10184我试了,很好呢,谢谢哈

fsafaffa 发表于 2017-10-19 18:53:59

隐藏后,如何全部显示呢

Andyhon 发表于 2017-10-20 17:32:26

command: Regen

ccc230 发表于 2017-10-21 16:41:07

本帖最后由 ccc230 于 2017-10-21 16:42 编辑

重生成图形命令 command: Regen

zmzk 发表于 2022-12-8 09:17:55

高手实在是高啊
页: [1]
查看完整版本: 求高手改个选择显示代码