使用除法的特征线lisp
这是一种创建lisp的方法，可以在分割点生成一条特征线，比如说4个空格，然后我得到3个打断 我有点忘了跟大家打招呼。真的很抱歉我的不礼貌！！但是大家好，如果可以的话，请帮助我。 那很有趣。。。（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指定段数：”））））(( 嗨，谢谢你抽出时间。
这个例程并没有完全达到我想要的效果，但已经很接近了。如果可能的话，我希望在断裂的每一段都有一条特征线。给出我在这条消息上发布的图片。
我希望这有助于理解。
再次非常感谢。 哇，我希望你说得再清楚一点。哦，好吧，还是有用的。
只需创建一个具有覆盖或图案填充（颜色255255255）的块，然后使用Divide命令。 这些可能也很有趣。。。
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 我确实看过那些帖子，它们似乎正是我需要的。但是没有常规的训练。此外，由于我没有完成lisp课程，我不知道如何创建例程。
很快我就会上一门课并理解它。
非常感谢
干杯 嗨，我知道我昨天发了一条关于这个请求的消息。
我想知道是否有一个例程可以根据尺寸的比例创建特征线，就像Express/draw中的“特征线”命令一样
这是我想要的照片
非常感谢你的帮助。
为大家干杯！！ 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，试试。
需要使用+或-来更改中断符号的# 这接近我想要的。唯一缺少的是分割线，在每个分割处输入一个breaksymbole。
我不知道是否存在这样的惯例，但我找不到。
干杯，谢谢！
页:
[1]
2