社区 › AutoLISP/Visual LISP 编程技术 › 亮显/选中指定颜色的实体（源码）

donghuidong2003 发表于 2015-6-1 18:17:00

亮显指定颜色，如果是还能选中，那就更好了
同时加上这个部分显示，隐藏图层，那修改图纸就无敌了
http://bbs.mjtd.com/thread-113902-1-1.html

胖他四叔 发表于 2015-6-2 13:03:25

回复一个看看

yf793826152 发表于 2015-6-2 22:07:37

好像很厉害的样子 我来看看

lengyan 发表于 2015-6-2 23:29:28

不错，方便多了

HHJJ9898 发表于 2015-10-2 11:04:41

太棒日期！！！！！！！！！！！！！！！！！！！！！！！！！！！

kele99kele 发表于 2015-10-2 22:47:02

回复看看，这个功能还是需要呢

winerfjy 发表于 2015-10-3 10:37:40

查看一下源码

winerfjy 发表于 2015-10-3 15:41:10

改了个不用对话框的
;选中状态对象   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:1111()
(setvar "cmdecho" 0)
(setq sl (entget (car (entsel))))
(setq co (cdr (assoc 62 sl)))
(setq SS(ssget "X" (list (cons 62 co))))
   (KX-sssetfirst SS)
(princ))

tangjunasd58 发表于 2015-10-4 10:58:16

没看过，文本对象（的）已被炸成线

freeok 发表于 2015-10-4 18:01:23

原来这东西藏了好久

查看完整版本: 亮显/选中指定颜色的实体（源码）