明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1564|回复: 2

[求助]LISP中如何定义数组及其下标?

[复制链接]
发表于 2006-3-30 16:12 | 显示全部楼层 |阅读模式
各位高手:
       我想建立一个数组用来存放用户选中选择集的对象名,数组的下标根据用户所选选择集的长度来定,请问我该如何做?另外,如果我想定义一个二维数组,用来存储每一个对象的始点座标、终点座标、圆心座标及半径等信息,那么我该如何定义呢,请前辈们给指点一下,小弟先谢了!
(defun c:vv()
  (setq ss1 (ssget))
  (setq sl1 (sslength ss1))
  (setq aa ())  ;;定义数组aa(此语句为个人想像,数组的长度也不知怎么设定.)
  (setq i -1)
  (while (< (setq i (1+ i)) sl1)
    ;;请问此处该如何把对象名存到数组aa()里去?
    (setq  aa(i) (ssname ss1 i))
  )
)
发表于 2006-3-30 16:50 | 显示全部楼层

可以认为lisp里面的表就是数组(但是不是),与c等不同的是没有指针操作而已。

可以把操作表里面的元素当成操作数组元素来看

(defun c:vv()
  (setq ss1 (ssget))
  (setq sl1 (sslength ss1))
  (setq aa '())  ;;不是()
  (setq i -1)
  (while (< (setq i (1+ i)) sl1)
        (setq  aa (cons (ssname ss1 i) aa)) ;不是aa(i)
  )
)

想要读取第n个元素(nth n aa),个人建议你多看一下那一系列的列表处理功能函数

 

 楼主| 发表于 2006-3-30 16:57 | 显示全部楼层
谢谢楼上前辈的指点!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-6-24 20:02 , Processed in 0.155576 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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