强烈以行动支持师兄发起的活动:)
下面是几个实体颜色操作的函数
;|Function: fe-get-objcolor()
参数:

功能:
取得实体颜色,包括随层
|;
(defun fe-get-objcolor ( / en)
(setq en (car (entsel)))
(fe-get-color en)
)


;|Function: fe-get-color(ename)
参数:
ename: 对象名称
功能:
取得实体颜色,包括随层
|;
(defun fe-get-color (_ename / col dxflist)
(setq dxflist (entget _ename))
(or
(setq col (cdr (assoc 62 dxflist))) ;取得对象颜色
(setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 dxflist))))));如果颜色随层
)
col
);end fe-get-color

;|Function: fe-put-color(ename color)
参数:
ename: 对象名称
功能:
修改实体颜色
|;
(defun fe-put-color(_sname _color / dxflist)
(setq dxflist (entget _sname))
(if (assoc 62 dxflist)
(setq dxflist (subst (cons 62 _color) (assoc 62 dxflist) dxflist))
(setq dxflist (append dxflist (list (cons 62 _color))))
)
(entmod dxflist)
)

dxf常用操作

;-----------------------------------------
; function dxf
;-----------------------------------------
;返回dxf群码内组码号为code的点对内容
;参数：dxflist -- dxf组码列表
; code -- dxf组码号
;-----------------------------------------
(defun dxf (code dxflist)
(cdr (assoc code dxflist))
)
;--- end dxf--------


;-----------------------------------------
; function dxf_read
;-----------------------------------------
;返回dxf群码内组码号为code的点对内容
;参数：ename -- 一个对象的id
; code -- dxf组码号
;-----------------------------------------
(defun dxf_read (code ename)
(cdr (assoc code (entget ename)))
)
;--- end dxf_read--------




;-----------------------------------------
; function dxf_replace
;-----------------------------------------
;置换dxf群码内组码号为code的点对内容
;参数：ename-- 一个对象的id
; code -- dxf组码号
; newdata --新数值
;
;-----------------------------------------
(defun dxf_replace (code newdata ename / dxflist)
(setq dxflist (entget ename)
dxflist (subst (cons code newdata) (assoc code dxflist) dxflist))
(entmod dxflist)(entupd ename)
)
;--- end dxf_replace--------


;-----------------------------------------
; function dxf_replace2
;-----------------------------------------
;置换dxf群码内组号为code的点对序列
;参数：ename-- 一个对象的id
; code -- dxf组码号
; newcons --新点对
;-----------------------------------------
(defun dxf_replace2 (code newcons ename / dxflist)
(setq dxflist (entget ename)
dxflist (subst newcons (assoc code dxflist) dxflist))
(entmod dxflist)(entupd ename)
)
;--- end dxf_replace2--------


;-----------------------------------------
; function dxf_ss_replace
;-----------------------------------------
;置换选择集ss内所有对象的dxf群码内组码号为code的点对内容
;参数：ename-- 一个对象的id
; code -- dxf组码号
; newdata --新数值
;
;-----------------------------------------
(defun dxf_ss_replace (code newdata ss / i dxflist)
(setq i -1)
(repeat (sslength ss)
(setq ename (ssname ss (setq i (1+ i)))
dxflist (entget ename)
dxflist (subst (cons code newdata) (assoc code dxflist) dxflist))
(entmod dxflist)
)
)
;--- end dxf_replace--------

;|检测选择的文字是否为正整数
是－返回T
否－返回nil
参数：
_ename - (car (entsel))
|;
(defun fe-is-integer( _ename / str )
(setq str (cdr (assoc 1 (entget _ename))))
(if (wcmatch str "~*[~0-9]*")
T
nil
)
)

没你们那么在行，也帖一个来热闹一下。
功能：使程序中生成的图元组成一个选择集（适合程序中生成多个图元，且又需要选择这些图元)。

;|需要搭配使用:
;|(ksxz)
;|自定义的图元生成过程
;|(setq ss (jsxz))形成选择集
;|由于水平不行，还请高手帮我改下这个过程，让它也缩下水。
;|
;|By Dream.Fei QQ:7686599
;|
;;___开始选择___
(defun ksxz (/ olden el)
(setq el (ssget "L"))
(if (= el nil)
(vlax-ldata-put "xz" "olden" "")
(progn
(setq olden (ssname el 0))
(vlax-ldata-put "xz" "olden" olden)
)
)
)
;;____结束选择____
(defun jsxz (/ loop_id en ss)
(setq loop_id T)
(if (= (vlax-ldata-get "xz" "olden") "")
(progn
(setq en (entnext))
(setq ss (ssadd en))
)
(progn
(setq en (vlax-ldata-get "xz" "olden"))
(setq ss (ssadd))
)
)
(while loop_id
(setq en (entnext en))
(if (= en nil)
(setq loop_id nil)
(setq ss (ssadd en ss))
)
)
ss
)

希望在此贴的代码不要太长,否则就不叫浓缩了

不过师兄的作品多拿出来 一点嘛~~

我的目的是促进大家的热情参与,并不是为了表现自已

哦~
原来世外高人也~

顶

好东西当然要大家一起分享!!!!
谢谢楼主的无私奉献!!!