亮显/选中指定颜色的实体（源码）

【KAIXIN】 · 发表于 2011-12-12 19:49

本帖最后由【KAIXIN】于 2012-6-7 10:02 编辑

;选中状态对象 SS为对象
;(KX-sssetfirst SS)
(defun KX-sssetfirst(SS)
(if SS (sssetfirst nil SS))
)
;亮选对象 SS为(car(entsel "\n选择参考实体: "))
;(KX-redraw3 S1)
(defun KX-redraw3(S1)
(IF S1 (redraw S1 3))
)
;选中状态对象
(defun c:XX()
(setvar "cmdecho" 0)
(setq co (acad_colordlg 7))
(setq SS(ssget "X" (list (cons 62 co))))
(KX-sssetfirst SS)
(princ))
;亮显指定颜色的实体
(defun c:XXX()
(setvar "cmdecho" 0)
(setq co (acad_colordlg 7))
(setq SS(ssget "X" (list (cons 62 co)))
X -1
)
(while (setq s1 (ssname ss (setq X (1+ X))))
(KX-redraw3 s1))
(princ)
)

vlisp2012 · 发表于 2012-4-23 19:55

根据自己的习惯，修改了一下，亮显后可以编辑
(defun c:KK (/ coa co ssco i one )
  (setq coa (getvar "CECOLOR"))
  (initdia)
  (command ".color")(setvar "cmdecho" 0)
  (setq co (getvar "CECOLOR"))
  (SETQ SSCO(SSGET "X" (LIST (CONS 62 (atoi co)))))
  (setvar "CECOLOR" coa)
(sssetfirst nil ssco)
  (setvar "cmdecho" 1) (princ))

yz1223 · 发表于 2022-3-22 19:43

很实用点个赞

823503103 · 发表于 2012-4-20 20:04

哈哈，看看高手。

hejiazhao · 发表于 2012-4-20 20:05

要是用在选择对象的时候就好了，看下

xiaxiang · 发表于 2012-4-20 20:07

老兄，不会连演示都不让看了吧

totoro · 发表于 2012-4-20 20:16

没看到东西,要如何回复~

yjr111 · 发表于 2012-4-20 21:24

怪不得明经浏览量直线上升了，有点神秘感才好，建议金牌会员以上的都可以有这种回复才能查看的权力

lz123456 · 发表于 2012-4-20 22:26

k大厉害~下来看下

578749467 · 发表于 2012-4-20 22:34

看看楼主的源码

CTC · 发表于 2012-4-20 22:36

功夫佬 · 发表于 2012-4-21 00:25

可以改善颜色

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

亮显/选中指定颜色的实体（源码）

本帖子中包含更多资源

点评

评分