[自动LIS]排序代码

jan_ek · 发表于 2022-7-5 22:55:30

你好
与以这种方式获得的AutoLISP一样，排序列表。（见附件）。

Lee Mac · 发表于 2022-7-5 22:59:46

查看此线程：

http://www.theswamp.org/index.php?topic=41463

jan_ek · 发表于 2022-7-5 23:03:54

非常感谢你。

jan_ek · 发表于 2022-7-5 23:05:50

; ----- 表达式周围出错-----
（VL-STRING-ELT A I）
;
; 错误：参数类型错误；在[VL-STRING-ELT]处应为

对于列表（附加）
函数eea-str\u int\u sort2

???
lista。txt文件

irneb · 发表于 2022-7-5 23:10:24

该列表似乎包含符号名而不是字符串。此外，您还没有包括其余的代码。

从这个错误来看，I变量似乎不包含整数。请参阅vl string elt的帮助。

你使用了其他线程中的任何特定defun吗？还是你在其中改变了什么？

jan_ek · 发表于 2022-7-5 23:12:09

你好
我也有同样的问题

copy

(defun c:trewq ( / )
(eea-str_int_sort2 (list "DN1""DN10""DN11""DN12""DN13""DN14""DN15""DN16""DN17""DN2""DN3""DN4""DN5""DN6""DN7""DN8""DN9)t)
)
(VL-STRING-ELT A I)
;bad argument type <3> ; expected <INTEGER> at [VL-STRING-ELT]

但如果列表如下所示：

copy

(eea-str_int_sort2 (list  "DN1x""DN10""DN11""DN12""DN13""DN14""DN15""DN16""DN17""DN2""DN3""DN4""DN5""DN6""DN7""DN8""DN9")t )

没关系。
我做错什么了吗？。你在哪里工作。请帮忙。

irneb · 发表于 2022-7-5 23:15:53

首先，你的列表不正确，它没有结束：。。。“DN9）…应该是…”DN9“。。。

其次，我认为你发现了Evgeniy代码的问题。如果我在他的代码上运行它：
但是使用Lee的文件端口2似乎是可行的：

copy

Command: (_filesort2 (list "DN1""DN10""DN11""DN12""DN13""DN14""DN15""DN16""DN17""DN2""DN3""DN4""DN5""DN6""DN7""DN8""DN9") t)
("DN1" "DN2" "DN3" "DN4" "DN5" "DN6" "DN7" "DN8" "DN9" "DN10" "DN11" "DN12" "DN13" "DN14" "DN15" "DN16" "DN17")

jan_ek · 发表于 2022-7-5 23:19:11

首先是我的错误。
第二，感谢您的快速回复。

Lee Mac · 发表于 2022-7-5 23:21:23

这是我对Evgeniy函数的修改版本，它应该可以在您的示例中成功执行：

copy


([color=BLUE]defun[/color] eea-lm-str_int_sort ( l f )
   ([color=BLUE]mapcar[/color] ([color=BLUE]function[/color] ([color=BLUE]lambda[/color] ( a ) ([color=BLUE]nth[/color] a l)))
       ([color=BLUE]vl-sort-i[/color] ([color=BLUE]if[/color] f ([color=BLUE]mapcar[/color] '[color=BLUE]strcase[/color] l) l)
           ([color=BLUE]function[/color]
               ([color=BLUE]lambda[/color] ( a b [color=BLUE]/[/color] i )
                   ([color=BLUE]setq[/color] i ([color=BLUE]vl-string-mismatch[/color] a b))
                   ([color=BLUE]cond[/color]
                       (   ([color=BLUE]zerop[/color] i)
                           ([color=BLUE]if[/color] ([color=BLUE]and[/color] ([color=BLUE]<[/color] 47 ([color=BLUE]ascii[/color] a) 58) ([color=BLUE]<[/color] 47 ([color=BLUE]ascii[/color] b) 58))
                              ([color=BLUE]<[/color] ([color=BLUE]atoi[/color] a) ([color=BLUE]atoi[/color] b))
                              ([color=BLUE]<[/color] a b)
                           )
                       )
                       (   ([color=BLUE]=[/color] i ([color=BLUE]strlen[/color] a)))
                       (   ([color=BLUE]=[/color] i ([color=BLUE]strlen[/color] b)) [color=BLUE]nil[/color])
                       (   ([color=BLUE]and[/color]
                               ([color=BLUE]<[/color] 47 ([color=BLUE]vl-string-elt[/color] a i) 58)
                               ([color=BLUE]<[/color] 47 ([color=BLUE]vl-string-elt[/color] b i) 58)
                           )
                           ([color=BLUE]<[/color] ([color=BLUE]atoi[/color] ([color=BLUE]substr[/color] a ([color=BLUE]1+[/color] i))) ([color=BLUE]atoi[/color] ([color=BLUE]substr[/color] b ([color=BLUE]1+[/color] i))))
                       )
                       (   ([color=BLUE]<[/color] 47 ([color=BLUE]vl-string-elt[/color] a ([color=BLUE]1-[/color] i)) 58)
                           ([color=BLUE]<[/color] ([color=BLUE]atoi[/color] ([color=BLUE]substr[/color] a i)) ([color=BLUE]atoi[/color] ([color=BLUE]substr[/color] b i)))
                       )
                       (   ([color=BLUE]<[/color] a b))
                   )
                )
           )
       )
   )
)

我想对位置2列表排序

jan_ek · 发表于 2022-7-5 23:24:06

类似这样：

copy

_$ (eea-lm-str_int_sort '("DN1" "DN10" "DN11" "DN12" "DN13" "DN14" "DN15" "DN16" "DN17" "DN2" "DN3" "DN4" "DN5" "DN6" "DN7" "DN8" "DN9") t)
("DN1" "DN2" "DN3" "DN4" "DN5" "DN6" "DN7" "DN8" "DN9" "DN10" "DN11" "DN12" "DN13" "DN14" "DN15" "DN16" "DN17")

[编程交流] [自动LIS]排序代码

发表回复

精选推荐