乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 113|回复： 19

[编程交流] 我有一个很大的要求！！

[复制链接]
TheNewGuy

8

主题

42

帖子

34

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 14:34:25 | 显示全部楼层 |阅读模式
我有一个大的lisp程序的大要求。它需要在一个大圆内计算并绘制一系列或圆形阵列。然后为每个阵列中的每个圆绘制5个点，然后将这些点转移到表格中：oThis适用于我们的EDM机器，将为操作员节省大量时间。我本来希望学习lisp并自己做这件事，但我们需要它从现在起不到3年。所以有人想救我的尾巴吗？只要问问你是否需要更多信息。提前谢谢。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:38:38 | 显示全部楼层
这些圆是如何排列的？
 
你能张贴一张图表/图纸（2004年格式）来说明需要实现的目标吗
 
谢谢
 
李
回复

使用道具 举报

TheNewGuy

8

主题

42

帖子

34

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 14:42:35 | 显示全部楼层
对不起，我忘了发附件。干得好。。。
-编辑_这是2007格式
edm程序帮助。图纸
回复

使用道具 举报

TheNewGuy

8

主题

42

帖子

34

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 14:46:06 | 显示全部楼层
这是一张2004年格式的图纸。。。。。再次感谢！
edm计划帮助-2004。图纸
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:50:10 | 显示全部楼层
试试这个。
 
几个音符-
 
[列表]
  • 圆之间的间距最小，因此圆的间距均匀，因此圆之间的间距可能大于规定的间距。
    [/列表]
     
    2. [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
    3.                  tmp3 tmp4 bsRad cCen cNum cAng i[b][color=RED])[/color][/b]
    4.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
    6.  [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]
    7.        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]
    8.              [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]
    9.                [b][color=RED]([/color][/b][b][color=BLUE]vla-get-modelspace[/color][/b] doc[b][color=RED])[/color][/b]
    10.                [b][color=RED]([/color][/b][b][color=BLUE]vla-get-paperspace[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
    11.              [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]
    13.  [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]
    14.  [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]
    15.  [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]
    16.  [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]
    18.  [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]
    19.           [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]
    20.    [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
    21.      [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]
    22.      [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])[/color][/b]
    23.      [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]
    24.      [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]
    25.      [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])[/color][/b]
    26.      [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]
    27.      [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]
    28.      [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])[/color][/b]
    29.      [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]
    30.      [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]
    31.      [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]6[/color][/b][b][color=RED])[/color][/b]
    32.      [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]
    33.      [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]
    34.      [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]
    35.            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]
    36.      [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]
    37.                  [b][color=RED]([/color][/b][b][color=BLUE]<[/color][/b] cut:cir bsRad[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
    38.        [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]
    39.              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]
    40.              i    [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
    41.        [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]
    42.          [b][color=RED]([/color][/b][b][color=BLUE]vla-put-color[/color][/b]
    43.            [b][color=RED]([/color][/b][b][color=BLUE]vla-addCircle[/color][/b] spc
    44.              [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b]
    45.                [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]
    46.          [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]
    47.        [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]
    48.      [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]
    49.    [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]
    50.  [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
    • 回复

    使用道具 举报

    TheNewGuy

    8

    主题

    42

    帖子

    34

    银币

    初来乍到

    Rank: 1

    铜币
    40
    发表于 2022-7-6 14:52:02 | 显示全部楼层
    首先，我真的很感谢你的辛勤工作，我希望有一天我能报答你的恩惠。
     
    是的，你接近目标了。这就是他需要的。他想要得到从每个阵列圆的中心到每个点的相对x和y距离。正如您所指出的，每个圆的一些距离是相同的，因此如果方便的话，您可以将它们从表中删除。
     
     
    理想情况下，这两点应该是。050（这是为了在他准备好之前从基圆切割时圆不会掉出来。然后，当他准备好时，是一个短的0.05切割以删除圆。）
    其他点只应位于每个阵列圆的顶部，两侧各有两个点。
     
    此外，我附上了一张图纸，显示他将如何进行他的削减。这可能有助于澄清问题。请不要犹豫，如果你需要更多的信息，或者我把你弄糊涂了。
    （我知道他把我搞糊涂了！）
    再次感谢
     
    --编辑——我附上的图纸不是为了缩放或正确定位，只是为了说明他的机器的运动。。。。
    edm计划帮助v3-2004。图纸
    回复

    使用道具 举报

    Lee Mac

    114

    主题

    1万

    帖子

    1万

    银币

    中流砥柱

    Rank: 25

    铜币
    543
    发表于 2022-7-6 14:56:16 | 显示全部楼层
     
    谢谢，当一个人对工作+时间充满感激的时候总是很好的
     
     
    还是不太确定-你的意思是从网格中的每个圆到另一个圆吗？
     
     
     
    我最初基于您发布的图纸，但我将更新LISP，使其每次为0.05（适用于所有半径）
    153429rha62wcfajh9z3zh.jpg
    回复

    使用道具 举报

    TheNewGuy

    8

    主题

    42

    帖子

    34

    银币

    初来乍到

    Rank: 1

    铜币
    40
    发表于 2022-7-6 14:59:08 | 显示全部楼层
     
    对不起，我的意思是从每个阵列圆的中心到该圆上的点。。。。这有帮助吗？
    回复

    使用道具 举报

    TheNewGuy

    8

    主题

    42

    帖子

    34

    银币

    初来乍到

    Rank: 1

    铜币
    40
    发表于 2022-7-6 15:00:39 | 显示全部楼层
     
    是的，显然每个圆都是一样的，所以我将把它作为单独的一行放在文件的底部。
     
    关于上面发布的LISP，还有什么需要提高的吗？(#12)
    回复

    使用道具 举报

    Lee Mac

    114

    主题

    1万

    帖子

    1万

    银币

    中流砥柱

    Rank: 25

    铜币
    543
    发表于 2022-7-6 15:05:08 | 显示全部楼层
    我确实注意到，在发布的lisp中，当半径不是时，底部的2个点不跟随圆。使用125。他们似乎停留在一个位置，他们将在一个圆圈与。125半径。我不是在抱怨，但我不想要求你重做任何艰苦的工作。再次感谢！
    回复

    使用道具 举报

    12下一页
    返回列表 发帖

    发表回复

    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    精选推荐

    • 微信公众平台

    • 扫描访问手机版

    • 点击图片下载手机App

    QQ|关于我们|小黑屋|乐筑天下 繁体中文

    GMT+8, 2026-10-17 06:35 , Processed in 0.030310 second(s), 54 queries , Redis On.

    © 乐筑天下创办于2020年，已稳定运行至今，你来与不来，我们都一直在这里...

    联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表