求高手改个选择显示代码

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

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

路过，顶一下

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

(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

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

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

隐藏后，如何全部显示呢

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

command: Regen

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

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

重生成图形命令

command: Regen

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

高手实在是高啊

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

求高手改个选择显示代码

相关帖子

评分