社区 › AutoLISP/Visual LISP 编程技术 › 数据动态修改同时集成更多菜单

dcl1214 发表于 2023-3-25 23:48:52

已有 4 人购买  本主题需向作者支付 3 个明经币 才能浏览 购买主题

bonny 发表于 2023-3-25 23:53:37

:victory::victory::victory::victory::victory::victory:

guosheyang 发表于 2023-3-26 00:00:17

wire:range这个函数没有？

dcl1214 发表于 2023-3-26 00:12:27

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

不好意思，马上补充

dcl1214 发表于 2023-3-26 00:14:23

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 发表于 2023-3-26 08:22:21

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

感谢！:handshake

xyp1964 发表于 2023-3-26 08:23:26

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

masterlong 发表于 2023-3-26 11:46:42

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

菜鸟初来乍到 发表于 2023-3-26 18:41:40

小白看不懂:'(

xyp1964 发表于 2023-3-26 23:36:25

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


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

查看完整版本: 数据动态修改同时集成更多菜单