[求助]：请问怎样在lisp中实现数组的功能

laoxie_1983 · 发表于 2005-11-10 08:15:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问各位高手在lisp中有数组吗？我找了很多材料都没找到

marcoyuwen · 发表于 2005-11-10 08:36:46

lisp中没有数组，可以用表list实现。

舟自横 · 发表于 2005-11-10 10:27:52

(VLAX-MAKE-SAFEARRAY TYPE '(L-BOUND . U-BOUND)...)建立安全数组
例将(1 2 3)转化为安全数组
(SETQ X (vlax-make-safearray vlax-vbinteger (cons 0 2)))注意上边界2 和下边界0一定要和表的数量相对应比如表有5项( 1 2 3 4 5)那么就要(cons 0 4),,,0-4刚好5项或者也可以1-6随自己选
vlax-vbinteger 数组类型你可以自己选具体参考VLISP的帮助关于数据类型的参考
然后
(vlax-safearray-fill x (list 1 2 3))就将表(LIST 1 2 3)转化为整型数组了....;;;其实就是将列表与数组类型对号入座...

似水无痕 · 发表于 2005-11-10 10:58:56

我也是刚刚才学习lisp，前段时间在编涵洞程序时自己编了一个“简单数组提取的程序”放在了自己的函数库里，有点简单，希望高手指教，同时也和楼主分享！

[FONT=courier new];;;**********************************;;;
;;;-----------简单数组提取-----------;;;
;;;**********************************;;;
(defun point (number)
(cond ((= number 1) point1)
((= number 2) point2)
((= number 3) point3)
((= number 4) point4)
((= number 5) point5)
((= number 6) point6)
((= number 7) point7)
((= number 8) point8)
((= number 9) point9)
((= number 10) point10)
((= number 11) point11)
((= number 12) point12)
((= number 13) point13)
((= number 14) point14)
((= number 15) point15)
((= number 16) point16)
((= number 17) point17)
((= number 18) point18)
((= number 19) point19)
((= number 20) point20)
((= number 21) point21)
((= number 22) point22)
((= number 23) point23)
((= number 24) point24)
((= number 25) point25)
((= number 26) point26)
((= number 27) point27)
((= number 28) point28)
((= number 29) point29)
((= number 30) point30)
((= number 31) point31)
((= number 32) point32)
((= number 33) point33)
((= number 34) point34)
((= number 35) point35)
((= number 36) point36)
((= number 37) point37)
((= number 38) point38)
((= number 39) point39)
((= number 40) point40)
)
)[/FONT]

[FONT=courier new];;;**********************************;;; 
;;;-----------简单数组提取-----------;;; 
;;;**********************************;;; 
(defun point (number) 
  (cond        ((= number 1) point1) 
        ((= number 2) point2) 
        ((= number 3) point3) 
        ((= number 4) point4) 
        ((= number 5) point5) 
        ((= number 6) point6) 
        ((= number 7) point7) 
        ((= number 8) point8) 
        ((= number 9) point9) 
        ((= number 10) point10) 
        ((= number 11) point11) 
        ((= number 12) point12) 
        ((= number 13) point13) 
        ((= number 14) point14) 
        ((= number 15) point15) 
        ((= number 16) point16) 
        ((= number 17) point17) 
        ((= number 18) point18) 
        ((= number 19) point19) 
        ((= number 20) point20) 
        ((= number 21) point21) 
        ((= number 22) point22) 
        ((= number 23) point23) 
        ((= number 24) point24) 
        ((= number 25) point25) 
        ((= number 26) point26) 
        ((= number 27) point27) 
        ((= number 28) point28) 
        ((= number 29) point29) 
        ((= number 30) point30) 
        ((= number 31) point31) 
        ((= number 32) point32) 
        ((= number 33) point33) 
        ((= number 34) point34) 
        ((= number 35) point35) 
        ((= number 36) point36) 
        ((= number 37) point37) 
        ((= number 38) point38) 
        ((= number 39) point39) 
        ((= number 40) point40) 
  ) 
)[/FONT]

在主程里先计算好各点，然后在进行编辑时直接输入(point n)调用。（其中n可以通过循环进行赋值）
再转过两个明经的帖子给楼主：
http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&ID=5817
http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&ID=1878

wkai · 发表于 2005-11-10 11:03:04

如果你要学习LISP的话，请忘记数组吧！
在LISP中，" 表" 是远比数组灵活有效的组织数据的方式。
LISP是围绕"表"这一概念而展开的语言，表在LISP中无所不在，甚至LISP程序本身就是一个表。
基于"表"，LISP是宏观和微观统一的优美语言！

xyp1964 · 发表于 2005-11-10 11:44:45

最初由 wkai 发布
[B]如果你要学习LISP的话，请忘记数组吧！
在LISP中，" 表" 是远比数组灵活有效的组织数据的方式。
LISP是围绕"表"这一概念而展开的语言，表在LISP中无所不在，甚至LISP程序本身就是一个表。
基于"表"，LISP是宏观... [/B]

绝对精辟！
偶回家要好好再研究一下。

laoxie_1983 · 发表于 2005-11-10 14:17:46

我想做一个提取pl线的坐标的程序．然后让它根据一定的条件排序，由于是初学所以很多都不会，如果有数组的话就方便多了！

WHGF · 发表于 2005-11-10 15:47:11

数组在LISP中使用显得不太方便，谁有好例子，提供给大家学习？

xyp1964 · 发表于 2005-11-10 15:47:19

最初由 laoxie_1983 发布
[B]我想做一个提取pl线的坐标的程序．然后让它根据一定的条件排序，由于是初学所以很多都不会，如果有数组的话就方便多了！ [/B]

(xyp-get-Vertexes 实体名模式)

[FONT=courier new]
(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]
|;
(defun c:test (/ ptn)
(if (setq ss (ssget '((0 . "*POLYLINE"))))
(setq ptn (xyp-get-Vertexes (ssname ss 0) t))
)
ptn
)[/FONT]

eachy · 发表于 2005-11-10 16:21:45

最初由 laoxie_1983 发布
[B]我想做一个提取pl线的坐标的程序．然后让它根据一定的条件排序，由于是初学所以很多都不会，如果有数组的话就方便多了！ [/B]

查 vl-sort 函数

wkai · 发表于 2005-11-10 18:14:31

获得一条多段线的所有顶点。

(princ "\n选择一条多段线:")
(setq e (entget(car(entsel))))
(print(vl-remove-if-not '(lambda(x)(=(car x)10)) e))

cy956 · 发表于 2005-11-10 20:20:46

最初由似水无痕发布
[B]我也是刚刚才学习lisp，前段时间在编涵洞程序时自己编了一个“简单数组提取的程序”放在了自己的函数库里，有点简单，希望高手指教，同时也和楼主分享！
[CODE];;;*****************************... [/B]

用eval，read搜索或看帮助，你的函数可以在几行内写出。

狂刀 · 发表于 2005-11-10 20:32:44

现在求这个我多半愿意使用下面的代码，支持轻/重多义线。

(repeat (setq n (fix(vlax-curve-getendparam e)))
(setq pts (cons (vlax-curve-getpointatparam e (setq n (1- n))) pts))
)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：请问怎样在lisp中实现数组的功能

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子