我有一个很大的要求！！

TheNewGuy · 发表于 2022-7-6 14:34:25

我有一个大的lisp程序的大要求。它需要在一个大圆内计算并绘制一系列或圆形阵列。然后为每个阵列中的每个圆绘制5个点，然后将这些点转移到表格中：oThis适用于我们的EDM机器，将为操作员节省大量时间。我本来希望学习lisp并自己做这件事，但我们需要它从现在起不到3年。所以有人想救我的尾巴吗？只要问问你是否需要更多信息。提前谢谢。

Lee Mac · 发表于 2022-7-6 14:38:38

这些圆是如何排列的？

你能张贴一张图表/图纸（2004年格式）来说明需要实现的目标吗

谢谢

李

TheNewGuy · 发表于 2022-7-6 14:42:35

对不起，我忘了发附件。干得好。。。
-编辑_这是2007格式
edm程序帮助。图纸

TheNewGuy · 发表于 2022-7-6 14:46:06

这是一张2004年格式的图纸。。。。。再次感谢！
edm计划帮助-2004。图纸

Lee Mac · 发表于 2022-7-6 14:50:10

试试这个。

几个音符-

[列表]

圆之间的间距最小，因此圆的间距均匀，因此圆之间的间距可能大于规定的间距。
[/列表]

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:cCut  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] doc spc cEnt tNum tmp1 tmp2
                 tmp3 tmp4 bsRad cCen cNum cAng i[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] doc [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-Acad-Object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       spc [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]zerop[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-activespace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-mspace[/color][/b] doc[b][color=RED])[/color][/b] :vlax-true[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-paperspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] cut:out [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:out [b][color=#009999]0.05[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] cut:spc [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:spc [b][color=#009999]0.007[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] cut:row [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:row [b][color=#009999]0.02[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] cut:cir [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:cir [b][color=#009999]0.125[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Base Circle: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"CIRCLE"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tNum [b][color=#009999]0.[/color][/b] col [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp1 [b][color=RED]([/color][/b][b][color=BLUE]getreal[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Spacing from Edge <"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cut:out[b][color=RED])[/color][/b] [b][color=#ff00ff]"> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] tmp1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:out tmp1[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp2 [b][color=RED]([/color][/b][b][color=BLUE]getreal[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Circle Spacing <"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cut:spc[b][color=RED])[/color][/b] [b][color=#ff00ff]"> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] tmp2[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:spc tmp2[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp3 [b][color=RED]([/color][/b][b][color=BLUE]getreal[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Row Spacing <"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cut:row[b][color=RED])[/color][/b] [b][color=#ff00ff]"> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] tmp3[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:row tmp3[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]6[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp4 [b][color=RED]([/color][/b][b][color=BLUE]getreal[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Inner Circle Radius <"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cut:cir[b][color=RED])[/color][/b] [b][color=#ff00ff]"> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] tmp4[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cut:cir tmp4[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] bsRad [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]40[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] cut:out cut:cir[b][color=RED])[/color][/b]
           cCen  [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]minusp[/color][/b] bsRad[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]<[/color][/b] cut:cir bsRad[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cNum [b][color=RED]([/color][/b][b][color=BLUE]fix[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] pi bsRad[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]+[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] cut:cir[b][color=RED])[/color][/b] cut:spc[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             cAng [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] pi[b][color=RED])[/color][/b] cNum[b][color=RED])[/color][/b]
             i    [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]<[/color][/b] i cNum[b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vla-put-color[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]vla-addCircle[/color][/b] spc
             [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] cCen [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] i cAng[b][color=RED])[/color][/b] bsRad[b][color=RED])[/color][/b][b][color=RED])[/color][/b] cut:cir[b][color=RED])[/color][/b] col[b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] i[b][color=RED])[/color][/b] tNum [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] tNum[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] bsRad [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] bsRad [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]2[/color][/b] cut:cir[b][color=RED])[/color][/b] cut:row[b][color=RED])[/color][/b] col [b][color=RED]([/color][/b][b][color=BLUE]abs[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] col [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Number of Circles: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] tNum [b][color=#009900]2[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]" >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<!> Incorrect Selection <!>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

TheNewGuy · 发表于 2022-7-6 14:52:02

首先，我真的很感谢你的辛勤工作，我希望有一天我能报答你的恩惠。

是的，你接近目标了。这就是他需要的。他想要得到从每个阵列圆的中心到每个点的相对x和y距离。正如您所指出的，每个圆的一些距离是相同的，因此如果方便的话，您可以将它们从表中删除。

理想情况下，这两点应该是。050（这是为了在他准备好之前从基圆切割时圆不会掉出来。然后，当他准备好时，是一个短的0.05切割以删除圆。）
其他点只应位于每个阵列圆的顶部，两侧各有两个点。

此外，我附上了一张图纸，显示他将如何进行他的削减。这可能有助于澄清问题。请不要犹豫，如果你需要更多的信息，或者我把你弄糊涂了。
（我知道他把我搞糊涂了！）
再次感谢

--编辑——我附上的图纸不是为了缩放或正确定位，只是为了说明他的机器的运动。。。。
edm计划帮助v3-2004。图纸