使用除法的特征线lisp

CadFrank · 发表于 2022-7-6 08:41:14

这是一种创建lisp的方法，可以在分割点生成一条特征线，比如说4个空格，然后我得到3个打断

CadFrank · 发表于 2022-7-6 08:45:33

我有点忘了跟大家打招呼。真的很抱歉我的不礼貌！！但是大家好，如果可以的话，请帮助我。

alanjt · 发表于 2022-7-6 08:49:20

那很有趣。。。

[code]（defun c:BDiv（/*error*AT:DrawX _getint cmd seg i ss e div poc）；；将曲线对象打断为多个分段；；Alan J.Thompson，11.01.11（vl load com）（defun*error*（msg）（and cmd（setvar'CMDECHO cmd））（and*AcadDoc*（vla endundomark*AcadDoc*）（if（and msg（not（wcmatch（strcase msg）”*BREAK*，*CANCEL*，*QUIT*，“”））（princ（strcat“\n错误：“msg”））（defun AT:DrawX（P C）；；在指定点绘制和“X”向量；；P——“X”的放置点；；C-X的颜色（必须是整数b/w 1和255）；；艾伦·J·汤普森，10.31.09（if（vl consp）（（lambda（d）（grvecs（cons C（function（lambda（n）（polar P（*n pi）d）））'（0.25 1.25 0.75 1.75）））P）（*（getvar’VIEWSIZE）0.02））（defun _getint（/i）（cond（（not（setq i（getint“\n指定段数：”）））） ((

CadFrank · 发表于 2022-7-6 08:53:47

嗨，谢谢你抽出时间。

这个例程并没有完全达到我想要的效果，但已经很接近了。如果可能的话，我希望在断裂的每一段都有一条特征线。给出我在这条消息上发布的图片。

我希望这有助于理解。

再次非常感谢。

alanjt · 发表于 2022-7-6 08:59:02

哇，我希望你说得再清楚一点。哦，好吧，还是有用的。

只需创建一个具有覆盖或图案填充（颜色255255255）的块，然后使用Divide命令。

alanjt · 发表于 2022-7-6 09:03:41

这些可能也很有趣。。。

http://www.theswamp.org/index.php?topic=32789.0
http://www.theswamp.org/index.php?topic=34792.0
http://www.theswamp.org/index.php?topic=37531.0

CadFrank · 发表于 2022-7-6 09:08:19

我确实看过那些帖子，它们似乎正是我需要的。但是没有常规的训练。此外，由于我没有完成lisp课程，我不知道如何创建例程。

很快我就会上一门课并理解它。

非常感谢

干杯

CadFrank · 发表于 2022-7-6 09:12:03

嗨，我知道我昨天发了一条关于这个请求的消息。

我想知道是否有一个例程可以根据尺寸的比例创建特征线，就像Express/draw中的“特征线”命令一样

这是我想要的照片

非常感谢你的帮助。

为大家干杯！！

mdbdesign · 发表于 2022-7-6 09:14:11

http://www.google.ca/url?sa=t&rct=j&q=breaksymbols.lsp&source=web&cd=2&sqi=2&ved=0CBwQFjAB&url=http%3A%2F%2Fautoc.tistory.com%2Fattachment%2Fcfile27.uf%40192978464E5A49BF133D67.LSP&ei=x5yxTva5OKXi0QGikZHVAQ&usg=AFQjCNFDN-I1ZAua51iWaqDD-Bg1xn4yHQ&cad=rja

形状28，试试。
需要使用+或-来更改中断符号的#

CadFrank · 发表于 2022-7-6 09:20:03

这接近我想要的。唯一缺少的是分割线，在每个分割处输入一个breaksymbole。

我不知道是否存在这样的惯例，但我找不到。

干杯，谢谢！

[编程交流] 使用除法的特征线lisp

发表回复

精选推荐