谁能帮我解读这段程序？

gucci218 · 发表于 2006-6-4 18:14:25

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

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

×

(Defun C:SCS (/ objectColor colorSublist colorList)
(SetQ modelSpace (VLA-Get-ModelSpace
(VLA-Get-ActiveDocument
(VLAX-Get-ACAD-Object)
)
)
)
(VLAX-For obj modelSpace
(SetQ objectColor (VlA-get-Color obj))
(If (SetQ colorSublist (Assoc objectColor colorList)) ；；；从这开始看不懂了，colorlist是什么？
(SetQ colorList (Subst (Cons objectColor
(1+ (Cdr colorSublist))
)
colorSublist
colorList
)
)
(SetQ colorList (Cons (Cons objectColor 1) colorList))
)
)
(If colorList
(Progn (SetQ colorList (VL-Sort colorList
'(Lambda (lst1 lst2) (< (car lst1) (car lst2)))
)
)
(PrinC "\n颜色表 = ") (PrinC colorList)
(Foreach subList colorList
(princ "\n在 ") (PrinC (SetQ count (Cdr subList)))
(PrinC " 个对象中找到了颜色 ")
(PrinC (Car subList))
)
)
)
(PrinC)
)

(Defun C:SCS (/ objectColor colorSublist colorList) 
       (SetQ modelSpace (VLA-Get-ModelSpace 
                             (VLA-Get-ActiveDocument 
                                  (VLAX-Get-ACAD-Object) 
                             ) 
                        ) 
      ) 
      (VLAX-For obj modelSpace 
                (SetQ objectColor (VlA-get-Color obj)) 
                (If (SetQ colorSublist (Assoc objectColor colorList))   ；；；从这开始看不懂了，colorlist是什么？ 
                    (SetQ colorList (Subst (Cons objectColor 
                                                 (1+ (Cdr colorSublist)) 
                                           ) 
                                           colorSublist 
                                           colorList 
                                    ) 
                    ) 
                    (SetQ colorList (Cons (Cons objectColor 1) colorList)) 
                ) 
       ) 
       (If colorList 
           (Progn (SetQ colorList (VL-Sort colorList 
                                      '(Lambda (lst1 lst2) (< (car lst1) (car lst2))) 
                                  ) 
                  ) 
                  (PrinC "\n颜色表 = ") (PrinC colorList) 
                  (Foreach subList colorList 
                           (princ "\n在 ") (PrinC (SetQ count (Cdr subList))) 
                           (PrinC " 个对象中找到了颜色 ") 
                           (PrinC (Car subList)) 
                  ) 
           ) 
       ) 
       (PrinC) 
)

littlecong · 发表于 2006-6-5 12:06:38

看样子好像是把当前文档里用到的颜色全部打印出来

gucci218 · 发表于 2006-6-6 21:58:05

不是，执行结果应该是统计不同颜色的对象个数，书中的代码，看不懂了，特此请教。

my_autocad · 发表于 2006-6-6 22:35:02

哪段看不懂，哪句看不懂？查看vlsp的帮助文件先

gucci218 · 发表于 2006-6-7 08:09:42

my_cad不愿回答或回答不了，就不要发这种无聊贴，我在帮助文件中能找到答案，还发帖问啥？谁不知道看帮助文件呀，用你说，有骗现金的嫌疑。。。。。。

草根 · 发表于 2006-6-7 09:40:09

(SetQ colorList (Cons (Cons objectColor 1) colorList))

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

谁能帮我解读这段程序？

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

相关帖子