|
|
发表于 2010-11-10 19:11:58
|
显示全部楼层
来自: 中国台湾
试试一个不完全方案,单改图层颜色
4 A# d" ?% g- a2 C2 V因为有部分Hatch等无效( j& P% f, D" {, a- J+ H
如果您稍懂程序的话直接套用...... G0 g, t( h) W+ q+ X* I% V# E* i1 r5 ]& f
(defun table (s / d r)' d1 c$ M. L: J1 o/ ~+ T
(while (setq d (tblnext s (null d))), H! U' a7 k. g- d) j0 n
(setq r (cons (cdr (assoc 2 d)) r))& {- A% h2 L; P) p
)
# b+ h5 B8 E* F: B: {2 ?5 \)* L' ^0 G* u9 y) N
* H( I, a0 |# ~/ W7 D
(mapcar
- H9 ~9 ?' E8 y9 B; ^2 \: {6 z$ } (function
2 H& R$ {( }9 i0 W) W5 u2 C (lambda (x)
! y5 _6 n8 `6 u' i1 r9 [ (command "layer" "color" 7 x "")! @& j1 w$ M% y2 e. N
) )7 @( P* ?* o& m/ g
(table "Layer")
$ S7 Z) j; k& F$ |5 C6 i% y ) |
评分
-
查看全部评分
|