放置在上面的块
大家好，我要找的Lisp程序应该很简单。图中有许多蓝色和红色的垂直线。Lisp程序识别颜色，对于它，如果它是红色，请选择“block 1”，如果它是蓝色，请选择“block 2”，并将其放置在线条上方的某个高度，甚至更好-在我绘制的线条上。。。
此外，如果它能在每个块1之间和每个块2之间添加尺寸，那将非常棒。
我认为这样的事情可能会令人兴奋，因为它听起来并不那么困难。。但当然，我很难自己创造它。。。有人可以帮忙吗？ 听起来是时候学习lisp了。当你使用Entsel选择一条线时，你可以很容易地得到它的所有属性
; copy next line to command line
(setq obj (entget (car (entsel))))
选择对象：（-1。）（0.“线”）（330）（5.“11C21”）（100.“AcDbEntity”）（67.1）（410.“D01”）（8.“DEFAULT”）（62.5）（100.“AcDbLine”）（10 257.981 340.57 0.0）（11 356.685 182.082 0.0）（210 0.0 0 0.0 1.0）
从上面看，62是彩色dxf代码，10和11开始/结束点8是层。关于如何使用这些信息，有很多示例，然后它只是在开始或结束点插入一个块。
页:
[1]