（求助）Auto CAD矩形VBA编程。

泉(Ango)

各位，
        大家好。在下有礼啦。我现要画很多不同宽度和长度的矩形条，所以我想就是输入一个快捷键（如：FX），然后CAD提示我输入矩形条的宽度，在输入宽度后，我任意点选平面上的两点，就能画出一条矩形条，该矩形条的宽度等于我输入的宽度值，长度等于我点选的两点间的距离，但这个矩形条的宽的中心必须分别在我点选的两点上（也就是说，该矩形的宽度关于我点选的两点所成的直线对称）。
        这与平常画的条形不一样。第一，平常画的矩形所点选的两点为矩形的对角点，而我现要的是我点选平面上的两点为宽度（参数）的中心点；第二，平常画的矩形是一个水平放置的矩形，而我现要的是矩形条不一定是水平放置，而是矩形条非宽度的边可能是水平，也可能是垂直，也可能是斜的，该边的斜率等于我点选平面上的两点所成直线的斜率。
        请问用VBA或是LISP程序怎样编这样的程序。恳请赐教。

Source_Liu

是不是以点选2点的线段为中心，各延伸半个宽带画的矩形呀，计算各点坐标就可以了。用PLine线画

泉(Ango)

Source_Liu 发表于 2013-1-13 12:26
是不是以点选2点的线段为中心，各延伸半个宽带画的矩形呀，计算各点坐标就可以了。用PLine线画

是你所说的那样，谢谢你的意见。