截面标记的Lisp例程
请先看所附图片。好了，开始了。我正在尝试创建一个lisp例程来实现这一点。我要做的是从3个街区走出来。
第一：顶部箭头和顶部垂直线
第二：带水平线的圆
第三：带底部垂直线的底部箭头
我正在使用AutoCAD 2009。因此，这些块将以1:1的比例绘制，但当我阻止它时，它们将成为注释性的。因此，当插入时，例如1:10，它将处于正确的大小。。。（公制刻度）
但是，块1和2将位于同一个DWG中，块3将位于第二个DWG中。这是因为我希望1和2清楚地插入到图形中的同一个单词中。
这就是我想做的，但这就是我遇到的问题。
一旦我选择了第一个点，我希望它像从第一个点开始的正交/极坐标一样使用。这样，在绘制剖面标记时，它将与您选择的2个点对齐。给我带来麻烦的是，如何使其对齐，如何使截面的箭头垂直于任一侧，但你必须选择它们面对的方向。因此，如果您水平绘制剖面，并且希望剖面垂直向上查看，则只需单击u绘制的线的顶部，剖面箭头将朝着该方向。如果我点击向下，我希望箭头朝下。
我知道这是可能的，因为我在使用中见过这样的积木。我只是一个初学者在这个lisp例行的东西，所以帮助将不胜感激。或者，如果有人已经做了这样的事情，我可以得到你的编码，这样我就可以看到你是如何做到的。
我还复制了我为它所做的一些编码。
（defun c：插入secttop块（/layerset）
（setq layerset（getvar“clayer”））
（setvar“clayer”“35”）
（setq scaleset（/1（getvar“cannoscalevalue”））
（setvar“ATTDIA”0）
;最后一行是因为我已经在块中的文字属性，我不想编辑它，现在它将只是进入原样。
（setq ins pt（getpoint“\n选择插入点：”）
（if（=nil ins pt）（setq ins pt（列表0 0）））
这是给妈妈的。但我认为插入点有一种更简单的方法。有没有办法命名ins-pt1和ins-pt2？所以我可以得到这些值，然后当我插入块时，我可以说它被插入变量ins-pt1？？？
提前谢谢你的帮助
过三个街区，我来帮你 我会在几分钟后把它们挂起来，只是做最后的润色。 我已附上包含块的DWG。所有3个街区都在那里。
谢谢你的帮助
截面气泡。图纸 以上是否适用于所有人？
因为我会发现它非常有用 为什么不是DB？
剖面标注。图纸 非常酷的动态积木，令人惊叹的是你能用它们做什么，谢谢蒂姆 动态块可以做到这一点，但速度不如从cannoscale（注释比例）上运行的按钮快。
Russell84这个代码是相对于cannoscale的还是我应该把它放进去？ 我用了一句话
（setq scaleset（/1（getvar“cannoscalevalue”））
在lisp中为其他块进行缩放。当我创建块时，我使其具有注释性。
或者，有没有可能把这个加进去呢。因此，dimscale是从cannoscale设置的，因此块将具有正确的大小。
（setvar“DIMSCALE”（/1.0（getvar“CANNOSCALEVALUE”））） 提姆
喜欢DB易于使用，它已经工作了。
干杯
页:
[1]
2