创建Ansi 31图案填充线型

jake77777 · 发表于 2022-7-6 10:23:31

希望能找到一些关于从ANSI 31图案填充类型（/////////）创建线型的建议。我读了很多关于创建线型的帖子，但就是想不出来。。到目前为止，当我尝试使用下面的Z字形线型的1/2代码时，Autocad只给了我一个错误。下面是我到目前为止的情况。任何帮助都将不胜感激。。我们整天都在工作中使用它，希望能把它变成一条多线，这样我就可以在一堵长墙上画一个点（只需要4“墙），然后根据需要拖动。再次感谢！

copy

*ZIGZAG,Zig zag /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
A,.0001,-.2,[ZIG,ltypeshp.shx,x=-.2,s=.2],-.4,[ZIG,ltypeshp.shx,r=180,x=.2,s=.2],-.2

copy


ANSI31, ANSI31 ////////////////////////////
A,.0001,-.2,[ANS,ltypeshp.shx,x=-.2,s=.2],-.4

rkmcswain · 发表于 2022-7-6 10:26:56

您是否在“ltypeshp.shx”形状文件中创建了一个名为ANS的形状？
如果没有，这就是您收到错误的原因之一，因为线型定义正在查找答案。。。

jake77777 · 发表于 2022-7-6 10:31:59

谢谢，我真的错过了。。我也要想清楚

jake77777 · 发表于 2022-7-6 10:35:22

最接近我的是反斜杠，后跟点。。然后重复。这个我发现接近ANSI 31的shx文件是一些象形文字代码。。也许是它的复杂部分！这是使用MKLTYPE命令生成的。翻阅这些帖子，我所看到的都是帮助主题的参考文献，但我从来没有看到“特定”的线型shx。lin代码。。我认为这将是第一个被要求的。所以如果有人能帮我写代码，我一定会付钱的$25??..非常感谢！！请发邮件给我michael82982@hotmail.com.如果你能帮忙的话。在过去的两天里，我花了10个小时的时间来处理很多其他Lisp程序的问题。。而我仍在原地踏步！。。如果我在开始线程中不够具体。。这是一种线型，线条以45度角运行，总高度为4“，间距为18（相隔3.182”）。

The Buzzard · 发表于 2022-7-6 10:37:39

jake77777，

尝试此代码。也许它会给你一些想法。
HLIN。lsp

The Buzzard · 发表于 2022-7-6 10:40:56

更好的是，

使用此代码，它有一个while循环，而不是之前发布的代码中使用的函数类型循环。
语法HLIN2
请注意，使用图案填充作为线型可能会看到有趣的结果。
HLIN2.lsp

The Buzzard · 发表于 2022-7-6 10:43:36

jake77777，

请在论坛上完成所有通信。我不会为此向你收费。如果您需要对程序进行一些更改，请将其发布在论坛上。我会尽我所能提供帮助，我相信其他人也会这样做。

让我们知道，
秃鹰

The Buzzard · 发表于 2022-7-6 10:46:51

jake77777，

我做了你想要的修复，看起来效果很好。我有关于图层和程序名的问题要问你。
图层名是什么？
图层颜色是什么？
线型是什么？
如果使用，图层线宽是多少？
你想用什么名字来命名这个程序？

一旦这是照顾你应该都设置好了，我会张贴程序，让你测试。
让我知道。

jake77777 · 发表于 2022-7-6 10:51:08

我认为对于层名称STR-TXT是可行的。颜色为11，实线型，不使用图层线宽。如果bylayer是颜色的一个选项，那么效果可能会更好一些，尽管老实说，如果不是一个选项，那么两种方式都可以。名称为ANSI。如果不收费。。如果你需要struc。细节。。我有很多！再次感谢

The Buzzard · 发表于 2022-7-6 10:52:46

干得好，

我有一个附有基本意见的样品图。另请注意，一旦用ANSI启动程序，只要用鼠标左键单击，它就会连续运行。当你右击鼠标时，你可以选择重新开始或退出程序。该程序默认为您的设置，但我给您留下了一个选项，如果您愿意，可以从提示中更改它们。

祝你好运，让我知道进展如何。
ANSI。lsp
ANSI。图纸

[编程交流] 创建Ansi 31图案填充线型

发表回复

精选推荐