【炫翔】——亮显/选中指定颜色的实体（源码）

炫翔

[pcode=lisp,true];选中状态对象   SS为对象
;(xx-sssetfirst SS)
(defun xx-sssetfirst(SS)
(if SS (sssetfirst nil SS))
)
;亮选对象   SS为(car(entsel "\n选择参考实体: "))
;(xx-redraw3 S1)
(defun xx-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))))
   (xx-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))))
  (xx-redraw3 s1))
(princ)
)[/pcode]

米克

怎么你发的都有点问题呢？？？收费上面就说收费嘛  发的函数不能用 有什么意思呢~~~~

Free-Lancer

1. (defun c:tt (/ col)
   
2.   (if (and (setq col (acad_colordlg 3))
   
3.     (ssget (list (cons 62 col)))
   
4.       )
   
5.     (vla-highlight
   
6.       (vla-get-activeselectionset
   
7. (vla-get-activedocument (vlax-get-acad-object))
   
8.       ) ;_ 此处可能有Bug
   
9.       :vlax-true
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

(defun c:tt (/ col)<br />   (if (and (setq col (acad_colordlg 3))<br />     (ssget (list (cons 62 col)))<br />       )<br />     (vla-highlight<br />       (vla-get-activeselectionset<br /> (vla-get-activedocument (vlax-get-acad-object))<br />       ) ;_ 此处可能有Bug<br />       :vlax-true<br />     )<br />   )<br />   (princ)<br /> )

该亮显只可以用 Regen 或 Highlight :vlax-false 取消，redraw 不可以

ngc

学习开心的代码，:)

350738140

希望在不知道颜色序号的情况下，点选图元，获取图元颜色序号。

yxianfo

前面的程序没有提示选择对象，而后面的程序是选取不了对象。
有试用的吗，是我的问题？

bloodtempt

回帖支持！！！