数据动态修改同时集成更多菜单

bonny

guosheyang

wire:range  这个函数没有？

dcl1214

guosheyang 发表于 2023-3-26 00:00
wire:range  这个函数没有？

不好意思，马上补充

dcl1214

guosheyang 发表于 2023-3-26 00:00
wire:range  这个函数没有？

(defun wire:range (len / ss i)
                                        ;返回从数字0开始的一堆list数据，一堆数字
  (if (and len (= (type len) 'int))
    (progn
      (setq ss nil)
      (setq i 0)
      (while (< i len) (setq ss (cons i ss)) (setq i (1+ i)))
      (setq ss (reverse ss))
    )
  )
  ss
)

guosheyang

dcl1214 发表于 2023-3-26 00:14
(defun wire:range (len / ss i)
                                        ;返回从数字0开始的一堆list数据，一堆数字
  (if (and len (= ( ...

感谢！

xyp1964

1. (defun wire:range (len / lst)
   
2.   "返回从数字0开始的数字表"
   
3.   ;; (wire:range 10) → (0 1 2 3 4 5 6 7 8 9)
   
4.   (if (and len (= (type len) 'int) (> len 0))
   
5.     (while (> len 0) (setq lst (cons (setq len (1- len)) lst)))
   
6.   )
   
7.   lst
   
8. )

(defun wire:range (len / lst)<br />   "返回从数字0开始的数字表"<br />   ;; (wire:range 10) → (0 1 2 3 4 5 6 7 8 9)<br />   (if (and len (= (type len) 'int) (> len 0))<br />     (while (> len 0) (setq lst (cons (setq len (1- len)) lst)))<br />   )<br />   lst<br /> )

masterlong

;999公共函数
;;给定两个整数m和n，建立一个从m开始、长度为n的连续整数列表
;;函数未校验m、n的类型
(defun mntolist( m n / temp )
        (setq m (fix m))                        ;;防止某些时候，参数传递时，m为实数
        (if (> n 0)
                (progn
                        (setq temp (list m))
                        (repeat (1- n)
                                (setq temp (cons (setq m (1+ m)) temp))
                        )
                        (reverse temp)
                )
        )
)

菜鸟初来乍到

小白看不懂

xyp1964

masterlong 发表于 2023-3-26 11:46
;999公共函数
;;给定两个整数m和n，建立一个从m开始、长度为n的连续整数列表
;;函数未校验m、n的类型

1. (defun abc (m n / a tmp)
   
2.   ;; 给定两个整数m和n，建立一个从m开始、长度为n的连续整数列表
   
3.   ;; (abc 12 8) → (12 13 14 15 16 17 18 19)
   
4.   (setq a (+ m n))
   
5.   (repeat n(setq a(1- a)tmp(cons a tmp)))
   
6.   tmp
   
7. )

(defun abc (m n / a tmp)<br />   ;; 给定两个整数m和n，建立一个从m开始、长度为n的连续整数列表<br />   ;; (abc 12 8) → (12 13 14 15 16 17 18 19)<br />   (setq a (+ m n))<br />   (repeat n(setq a(1- a)tmp(cons a tmp)))<br />   tmp<br /> )