freeok 发表于 2013-11-29 10:59:58

Z版的程序: 求一句注释。。谢谢

Z版的程序:   

(setq r (cdr(assoc 40 ent)));;;;;;;;;从关联表中搜索一个元素,如果找到则返回该关联表条目;求取圆的分类参数半径
   (if (setq rl (assoc r cl));;;;;;;;;;;cl表中是否含有某一半径,返回此值给 r1
    (setq cl (subst (list r (cons (caadr rl) (1+ (cdadr rl)))) rl cl))---这句谁帮下,太长了,不会解了!
页: [1]
查看完整版本: Z版的程序: 求一句注释。。谢谢