明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 789|回复: 5

请师傅帮忙处理表问题

[复制链接]
发表于 2016-6-12 19:12 | 显示全部楼层 |阅读模式
1明经币
  1. 先谢谢了!

  2. (defun c:tt ()
  3.   (setq v nil)
  4.     (setq  cc '(10.1 11.1 12.1   30.2 31.22  32.20   40 40.2  41)
  5. )
  6.   (while cc
  7.     (setq a (car cc))
  8.     (setq cc (cdr cc))
  9.     (if  (equal a (car cc) 1.6)
  10.       (progn
  11.       (setq v (append (list a) v  ))
  12.          )
  13.       (progn
  14.       (if (> (- (car cc) a ) 3)
  15. (setq v (list(append (list a)v)))

  16.   )
  17.     )
  18.   )
  19.     )

  20. )
  21. ;; 我的结果是  (40.2 40 (32.2 31.22 30.2 (12.1 11.1 10.1)))括号不对,还少了个数, 要不得
  22. ;;希望结果  ((10.1 11.1 12.1) (  30.2 31.22  32.20 )  (40 40.2  41))

发表于 2016-7-11 15:46 | 显示全部楼层
;;52.5 [功能] 对表分段
;;(xl_div lst nom)表分段. -> 返回 分段的表.   ------by 无痕.2004.1
; lst = 表,nom = 分段的子表元素个数(从1开始计).
;;示例 (xl_div '(1 2 3 4 5 6 7 8 9) 3) -> ((1 2 3) (4 5 6) (7 8 9))
(defun xl-div (lst x / lst2)
  (foreach n lst
    (if (and lst2 (/= x (length (car lst2))))
      (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))
      (setq lst2 (cons (list n) lst2))
    )
  )
  (reverse lst2)
)

点评

要送悬赏一个币不知道怎么送。只能这样+1了.  发表于 2018-5-24 14:15

评分

参与人数 1明经币 +1 收起 理由
434939575 + 1

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2016-7-15 20:58 | 显示全部楼层
lilq_78 发表于 2016-7-11 15:46
;;52.5 [功能] 对表分段
;;(xl_div lst nom)表分段. -> 返回 分段的表.   ------by 无痕.2004.1
;  ...

感谢朋友的帮助!
回复

使用道具 举报

 楼主| 发表于 2016-7-15 20:59 | 显示全部楼层
lilq_78 发表于 2016-7-11 15:46
;;52.5 [功能] 对表分段
;;(xl_div lst nom)表分段. -> 返回 分段的表.   ------by 无痕.2004.1
;  ...

多谢指点!

回复

使用道具 举报

发表于 2016-10-19 13:32 | 显示全部楼层
不错的程序,谢谢楼主分享。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 03:53 , Processed in 0.153504 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表