加载错误

michaeloureiro · 发表于 2022-7-6 17:11:51

谢谢leemac

michaeloureiro · 发表于 2022-7-6 17:15:11

可能是背景吗？

Lee Mac · 发表于 2022-7-6 17:17:39

试试这个：

[code]（defun c:MARRAY（/ss p1 p2 space dis ang counter）（defun*error*（msg）（setvar“cmdecho”1）（if（=msg“”）（princ“\n函数完成”）（princ“Error or Esc pressed…”）；_结束if（princ））；_end defun（setvar“cmdecho”0）（setq ss（ssget））（if（and（setq p1（getpoint“\nray from point：”）（setq p2（getpoint p1“\n to point：”）（>（setq space（getint”\n空格数：”）0））；_end and（progn（setq dis（距离p1 p2）ang（角度p1 p2）计数器1）；_结束setq（而（

michaeloureiro · 发表于 2022-7-6 17:19:55

李·麦克，
它似乎不是沿着选定的线排列，而是按照线的长度排列。

顶部图像：结果
下图：假装的结果

登录/注册后可看大图

Lee Mac · 发表于 2022-7-6 17:22:18

好的，这就是LISP之前要做的，所以我假设它是你想要的。

Lee Mac · 发表于 2022-7-6 17:26:02

那么试试这个。

[code]（defun c:MARRAY（/ss p1 p2 space dis ang counter spc）（defun*error*（msg）（setvar“cmdecho”1）（if（=msg“”）（princ“\n函数完成”）（princ“Error or Esc pressed…”）；_结束if（princ））；_end defun（setvar“cmdecho”0）（setq ss（ssget））（if（and（setq p1（getpoint“\nray from point：”）（setq p2（getpoint p1“\n to point：”）（>（setq space（getint”\n空格数：”）0））；_结束和（progn（setq dis（距离p1 p2）ang（角度p1 p2）计数器1 spc（/dis空间））；_结束setq（而（