亮显对象或选择集

自贡黄明儒 · 发表于 2014-2-14 13:30:57

本帖最后由自贡黄明儒于 2014-2-15 20:45 编辑

今天就写了这点代码，奉献给明经。
还是干活挣钱要紧。
如果觉得缺少了函数，不要发问，谢谢啊！

;; 亮显选择集或对象(夹点不显示) 函数
(defun ayEntSSHighLight (SSorEntName / oldGrips)
(setq oldGrips (getvar "Grips"))
(setvar "Grips" 0)
(cond ((= (type SSorEntName) 'PICKSET)
(sssetfirst nil SSorEntName)
)
((= (type SSorEntName) 'ENAME)
(sssetfirst nil (ssadd SSorEntName (ssadd)))
)
)
(setvar "Grips" oldGrips)
)

(defun HH:ayEntSSHighLight (SSorEntName / oldGrips)
  (defun EntHighLight (e / PTS)
(setq pts (HH:Ent4pt e T))
(grvecs (list 1
               (car pts)
               (cadr pts)
               1
               (cadr pts)
               (caddr pts)
               1
               (caddr pts)
               (cadddr pts)
               1
               (cadddr pts)
               (car pts)
         )
)
  )
  (cond       ((= (type SSorEntName) 'PICKSET)
      (repeat (setq n (sslength SSorEntName))
         (EntHighLight (ssname SSorEntName (setq n (1- n))))
      )
      )
      ((= (type SSorEntName) 'ENAME)
      (EntHighLight SSorEntName)
      )
  )
)
;; 亮显选择集或对象(夹点不显示) 函数

zzyong00 · 发表于 2014-10-11 22:34:18

回复看看隐藏了什么

zmzk · 发表于 2020-2-24 20:46:19

请问下，这函数怎么用啊？有实例么？？

FANGZHENG158 · 发表于 2014-2-14 13:47:14

学习一下

杜阳 · 发表于 2014-2-14 14:09:09

拜读了支持

sachindkini · 发表于 2014-2-14 17:23:39

dear sir,

cooollllllllllllllllllllll

hao3ren · 发表于 2014-2-14 18:08:59

黄总要学会不干活还能挣钱

sqqr · 发表于 2014-2-14 18:32:37

我来顶一个

天青色 · 发表于 2014-2-14 19:32:07

学习下，

自贡黄明儒 · 发表于 2014-2-14 19:57:29

hao3ren 发表于 2014-2-14 18:08
黄总要学会不干活还能挣钱

什么时候我给你打工呀？

zmx6189 · 发表于 2014-2-14 20:19:12

学习一下

峰峰兒 · 发表于 2014-2-14 20:31:05

提示: 作者被禁止或删除内容自动屏蔽

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

[源码] 亮显对象或选择集

本帖子中包含更多资源

点评

本帖被以下淘专辑推荐:

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2014-2-14 20:31:05 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡