解释下列带颜色函数具体意思，以及意图，

fkyourmather · 发表于 2013-6-20 18:19:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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)
   )
)
  )

Free-Lancer · 发表于 2013-6-20 18:24:39

这个有个帖子都解释过的很详细啊来自: Android客户端

fkyourmather · 发表于 2013-6-20 19:10:22

Free-Lancer 发表于 2013-6-20 18:24
这个有个帖子都解释过的很详细啊

(set (read n) (cons e (eval (read n))))
(if (vl-position n l1)
   nil
   (setq l1 (cons n l1)
   ll (cons lyr ll)
这个函数没有看明白？跟上次那个不一样，上次的贴是我发的

Free-Lancer · 发表于 2013-6-20 19:16:32

l1收集变量名，最后用来释放前面Set的变量来自: Android客户端

Free-Lancer · 发表于 2013-6-20 19:20:13

这个lyr是中文时有bug,可以用vl-string->list转换为数字组合来自: Android客户端

fkyourmather · 发表于 2013-6-20 19:29:30

Free-Lancer 发表于 2013-6-20 19:16
l1收集变量名，最后用来释放前面Set的变量

还是没有太懂

fkyourmather · 发表于 2013-6-20 19:30:14

Free-Lancer 发表于 2013-6-20 19:20
这个lyr是中文时有bug,可以用vl-string->list转换为数字组合

嗯vl 函数在学习中，vl-string-list，举个列子我就懂了

Free-Lancer · 发表于 2013-6-20 20:36:44

(vl-string->list "晓东CAD空间")来自: Android客户端

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

[求助] 解释下列带颜色函数具体意思，以及意图，

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评