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

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

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

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

回复一个看看

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

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

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

不错，方便多了

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

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

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

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

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

查看一下源码

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

改了个不用对话框的

;选中状态对象 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

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

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

原来这东西藏了好久

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

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

本帖子中包含更多资源