求教！有没有函数可以直接去掉括号、返回表内数据

xiaocainiao

tryhi 发表于 2024-9-4 16:51
目的是啥？

海哥、我重新编辑了一下问题、目的就是想实现类似于VL-LIST*的效果、将一个组合表拆分成单个表

tryhi

xiaocainiao 发表于 2024-9-4 17:19
海哥、我重新编辑了一下问题、目的就是想实现类似于VL-LIST*的效果、将一个组合表拆分成单个表

首先list做不了，其次，vl-list*能做为什么要用list

xiaocainiao

tryhi 发表于 2024-9-4 17:26
首先list做不了，其次，vl-list*能做为什么要用list

好吧、谢谢！我就是看到VL-LIST*有这种功能、所以想看看有没有其他函数也能实现这种效果、这样在其他场景也能用了、VL-LIST*必须要有多个表才能去除最后一个表的括号、单个表还不行、所以就来论坛请教一下

hubeiwdlue

VL-LIST*就是加强版的cons。开括号，可能让一个变量变成多个变量，lisp的返回机制应该不支持这种吧。

tryhi

xiaocainiao 发表于 2024-9-4 17:40
好吧、谢谢！我就是看到VL-LIST*有这种功能、所以想看看有没有其他函数也能实现这种效果、这样在其他场景 ...

可能你对lsp的机制有误解，不存在去括号的说法和用法，vl-list*也不是去括号，就是一个加强版cons对表追加，js语言倒是有这种操作

xiaocainiao

hubeiwdlue 发表于 2024-9-4 18:23
VL-LIST*就是加强版的cons。开括号，可能让一个变量变成多个变量，lisp的返回机制应该不支持这种吧。

谢谢！刚刚又仔细看了一下VL-LIST*函数的说明、这回弄懂了他的用法

xiaocainiao

tryhi 发表于 2024-9-4 19:41
可能你对lsp的机制有误解，不存在去括号的说法和用法，vl-list*也不是去括号，就是一个加强版cons对表追 ...

明白了、谢谢海哥、我的LISP是东拼西凑学习的、基础不太好、这回懂了VL-LIST*的用法了

Bao_lai

你自己觉得说明白问题没，建议：原始数据 -> 目标数据，这样大家就很清楚你要干嘛。
比喻下面的这样：
(3*5 6*2 7*3) ->(3 3 3 3 3 6 6 7 7 7)
((1 2 2)  (2 5 1 4) (3 5)) -> (1 2 2 2 5 1 4 3 5)
(1 2 3 5 6 9 8 7 ) -> ((1 2 3) (5 6 9) (8 7 nil))

xiaocainiao

Bao_lai 发表于 2024-9-4 21:02
你自己觉得说明白问题没，建议：原始数据 -> 目标数据，这样大家就很清楚你要干嘛。
比喻下面的这样：
(3 ...

谢谢提醒、下次注意、其实我最开始就类似这样问的、不过很多朋友不知道我用在哪、所以就重新编辑了问题

xyp1964

1. (defun MkPline (pts mode)
   
2.   (entmakex (append (list '(0 . "LWPOLYLINE")
   
3.             '(100 . "AcDbEntity")
   
4.             '(100 . "AcDbPolyline")
   
5.             (cons 90 (length pts))
   
6.             (cons 70 (if mode 1 0))
   
7.       )
   
8.       (mapcar '(lambda (x) (cons 10 x)) pts)
   
9.     )
   
10.   )
    
11. )

(defun MkPline (pts mode)<br />   (entmakex (append (list '(0 . "LWPOLYLINE")<br />             '(100 . "AcDbEntity")<br />             '(100 . "AcDbPolyline")<br />             (cons 90 (length pts))<br />             (cons 70 (if mode 1 0))<br />       )<br />       (mapcar '(lambda (x) (cons 10 x)) pts)<br />     )<br />   )<br /> )