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

fkyourmather

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

(defun c:tt (/ ss l1)
  (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))) ;_(8 . "1,2,3")))可以根据需要增加图层过滤
    (vl-catch-all-apply
      '(lambda (/ sl i e el lyr n ll tl)
  (setq sl (sslength ss)
        i  -1
  )
  (repeat sl
    (setq e   (ssname ss (setq i (1+ i)))
   el  (entget e)
   lyr (cdr (assoc 8 el))
   n   (strcat "Fy" lyr)
    )
    (set (read n) (cons e (eval (read n))))
    (if (vl-position n l1)
      nil
      (setq l1 (cons n l1)
     ll (cons lyr ll)
      )
    )

QiaoCheng

比如
(setq e (car (entsel)))  => <图元名: 7e40b9b8>
(setq el (entget e))    => 图元列表
(setq lyr (cdr (assoc 8 el)))  => 图层名 如 "0"
(setq n   (strcat "Fy" lyr))   => "Fy0"
(set (read n) (cons e (eval (read n))))  => (<图元名: 7e40b9b8>)

不知道您看明白没，有结果再看函数帮助就很容易理解了

Free-Lancer

建议你看看 eachy 那个自由定制刷子

ll_j

(set (read n) (cons e (eval (read n))))
这句话比较难理解，用了三个不太常用的函数：read、eval、set，帮助文件分别解释如下：
read——返回从一个字符串中获得的第一个表或第一个原子；
eval——返回 AutoLISP 表达式的求值结果；
set——将一个被引起来的符号名的值设置成一个表达式的值。
很是拗口。
结合本例通俗点解释，read就是把字符串n（图层名加前缀FY组成）变成“符号”，也就是变成变量名，eval是对这个变量名求值，set和setq功能类似，都是赋值，所不同的是，set可以对需要求值才得出的变量名进行赋值。
完整的一句意义是这样的：（假定0层）将图层“0”的实体名加入名为FY0的表中。直接理解为，将实体名e加入对FY0求值的表中构成一个新表，然后再将新表赋予FY0变量中（有点递归的意思）。
实话说，就特例而言，这句话的构成还是比较巧妙的，可以将所有同层的实体名都放置在一个FY前缀加实体名的变量中，但实际上，对Lisp语言特点而言，这种又是很拙的方法，因为Lisp的表结构不需要对每一个图层的表进行命名，一个动态的表可以包容一切。

wowan1314

(setq n   (strcat "Fy" lyr))   => "Fy0"
(read n)=>FY0
(CONS E (READ N))=>(图元名 . FY0)
(SET (READ N) (CONS E (READ N)))=>(SETQ FY0  (图元名 . FY0))

SET 会计算两个参数   而SETQ只计算第二个参数。----setq 设置“静态的变量”，set设置“动态的变量”
  至于eval这个东西我测试不加也可以啊！ 不晓得加了是出于什么考虑
这是我个人的理解。

ll_j

wowan1314 发表于 2013-6-5 14:33
(setq n   (strcat "Fy" lyr))   => "Fy0"
(read n)=>FY0
(CONS E (READ N))=>(图元名 . FY0)

eval不加是不行的，你再增加一个实体就看出不同了。

wowan1314

ll_j 发表于 2013-6-5 14:37
eval不加是不行的，你再增加一个实体就看出不同了。

加不加区别很大呀！ 还在理解中。

wowan1314

(READ N)=>FY0
(CONS E (READ N))=>(图元名 . FY0)这个READ出的FY0在CONS眼里是个是常量
(CONS E (EVAL (READ N)))=>（cons e FY0）;这个FY0是个变量
=> FY0为nil 结果就是（图元名），FY0有值，结果就是（图元名...）图元名表。

ll_j

wowan1314 发表于 2013-6-5 15:14
(READ N)=>FY0
(CONS E (READ N))=>(图元名 . FY0)这个READ出的FY0在CONS眼里是个是常量
(CONS E (EVAL ( ...

不加eval，FY0就是一个变量名，加了才是一个表。

fkyourmather

QiaoCheng 发表于 2013-6-5 12:59
比如
(setq e (car (entsel)))  =>
(setq el (entget e))    => 图元列表

(set (read n) (cons e (eval (read n))))  => (<图元名: 7e40b9b8>)
这句话没有明白

Free-Lancer

fkyourmather 发表于 2013-6-5 17:34
(set (read n) (cons e (eval (read n))))  => ()
这句话没有明白

(read n) -> 将字串转换为变量名
(eval (read n)) -> 变量的值，即表

例如： 字串n为 "fy0" => (read n) => 返回变量名称 fy0
(eval (read n))  <=> (eval (read "fy0")) <=> (eval fy0) => 返回变量 fy0 的表
(cons e (eval (read n))) => (cons e (eval fy0)) => (cons e fy0) 将 e 加入 fy0 表

这样做可以生成动态变量，并给变量赋值。图层名称前面加前缀是保证变量名为字串，因为图层可能为纯数字格式。

QiaoCheng

fkyourmather 发表于 2013-6-5 17:34
(set (read n) (cons e (eval (read n))))  => ()
这句话没有明白

ll_j元老已经解释的很清楚了
看地板和9楼
其实还有个方法，我也是这样遇到不懂得代码就在CAD自带的编辑器里逐步调试下
看下得到的是什么，再看函数帮助，比人家解释印象更深点

Free-Lancer

ll_j 发表于 2013-6-5 14:31
(set (read n) (cons e (eval (read n))))
这句话比较难理解，用了三个不太常用的函数：read、eval、set， ...

这也是一种特定应用，常规写法直接构造一个表，子表关键字为图层名称，然后遍历时用 assoc + subst 替换子表

不过用 set + eval 代码更好看些:)

BTW：l1 为了是收集变量，最后进行释放，不然会留下很多垃圾的！

fkyourmather

QiaoCheng 发表于 2013-6-5 17:41
ll_j元老已经解释的很清楚了
看地板和9楼
其实还有个方法，我也是这样遇到不懂得代码就在CAD自带的编辑 ...

  (set (read n) (cons e (eval (read n))))
    (if (vl-position n l1)
      nil
      (setq l1 (cons n l1)
     ll (cons lyr ll)
解释下没有看明白

fkyourmather

Free-Lancer 发表于 2013-6-5 17:39
(read n) -> 将字串转换为变量名
(eval (read n)) -> 变量的值，即表

    (if (vl-position n l1)
      nil
      (setq l1 (cons n l1)
     ll (cons lyr ll)
这句我真得很难懂唉