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

谢谢leemac

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

可能是背景吗？

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

试试这个：
 
（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

李·麦克，
它似乎不是沿着选定的线排列，而是按照线的长度排列。
 
顶部图像：结果
下图：假装的结果
 
 
http://a%20target=https://lebim.cn/a/

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

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

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

那么试试这个。
 
（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（而（

michaeloureiro 发表于 2022-7-6 17:30:15

谢谢李的帮助，
它正在工作，但由于某种原因它没有工作，
我必须手动执行此操作，
 
再次感谢您抽出时间，

michaeloureiro 发表于 2022-7-6 17:33:53

也不起作用，物体在线条末端重叠。。。。

michaeloureiro 发表于 2022-7-6 17:35:58

为什么它只在第一次起作用？

michaeloureiro 发表于 2022-7-6 17:40:18

这是我买的
 
http://cadtips.cadalyst.com/2d-operations/modified-array-command
页: 1 [2]
查看完整版本: 加载错误