帮忙解释系带有颜色的字体

eachy

fkyourmather 发表于 2013-6-20 21:01
(if (vl-position n l1)
      nil
      (setq l1 (cons n l1)

我来解释解释看能不能说明白

n --- 是一个字符串(strcat "fy" lyr)，（read n） 后就是一个变量名称 fyxxx

(vl-position n l1) -> 检测 l1 中是否有字符串 n，没有的话就将 n 加入表 l1
ll 是图层名称的列表（没有"fy"前缀)

程序最后 (mapcar 'read l1) -> 将字符串转换为变量名称表 (fyx fyxx ....)
(mapcar '(lambda (x) (set x nil)) (mapcar 'read l1))
==>
(mapcar '(lambda (x) (setq x nil)) '(fyx fyxx ....))

fkyourmather

eachy 发表于 2013-6-20 21:32
我来解释解释看能不能说明白

n --- 是一个字符串(strcat "fy" lyr)，（read n） 后就是一个变量名称 f ...

真的很清晰！
(mapcar '(lambda (x) (set x nil)) (mapcar 'read l1))这句是否是就是空表与〈lyx〉合并

fkyourmather

fkyourmather 发表于 2013-6-20 23:59
真的很清晰！
(mapcar '(lambda (x) (set x nil)) (mapcar 'read l1))这句是否是就是空表与〈lyx〉合并

(setq tl (mapcar '(lambda (x) (lyrlen (eval (read x)))) l1))这句话呢没有明白什么意思

st788796

l1 楼上已经说了，是一个字符串表，read后就是变量名表，再eval后就是值表，即将选择集按图层分成的一个个实体子表，lyrlen是对实体表求总长度

fkyourmather

eachy 发表于 2013-6-20 21:32
我来解释解释看能不能说明白

n --- 是一个字符串(strcat "fy" lyr)，（read n） 后就是一个变量名称 f ...

(setq tl (mapcar '(lambda (x) (lyrlen (eval (read x)))) l1))这句话呢没有明白什么意思

eachy

fkyourmather 发表于 2013-6-21 12:16
(setq tl (mapcar '(lambda (x) (lyrlen (eval (read x)))) l1))这句话呢没有明白什么意思

l1 = ("fy0" "fy1" "fyxxx" ....)
(read x) =>fy0 fy1 fyxxx ...
(eval (read x)) => (fy0ent1 fy0ent2 ...) (fy1ent1 fy1ent2 ...) (fyxxxent1 fyxxxent2 ....) ....
lyrlen 就是对实体表操作了如 (fy0ent1 fy0ent2 ...)
mapcar 就是逐一操作