|
4#

楼主 |
发表于 2014-11-13 11:05
|
只看该作者
搞定了,代码如下:
coorstartEnd=tmpsel->startEnd
x1= min(car(car(coorstartEnd)) car(cadr(coorstartEnd)))
y1= min(cadr(car(coorstartEnd)) cadr(cadr(coorstartEnd)))
x2= max(car(car(coorstartEnd)) car(cadr(coorstartEnd)))
y2= max(cadr(car(coorstartEnd)) cadr(cadr(coorstartEnd)))
tmpStartEnd= tmpLeftLine->startEnd
tmpX1= car(car(tmpStartEnd))
tmpY1= cadr(car(tmpStartEnd))
tmpX2= car(cadr(tmpStartEnd))
tmpY2= cadr(cadr(tmpStartEnd))
DisX1=x2-x1
DisY1=y2-y1
DisX2=tmpX2-tmpX1
DisY2=tmpY2-tmpY1
tmpsqrt= sqrt((DisX1*DisX1+DisY1*DisY1)*(DisX2*DisX2+DisY2*DisY2))
tmpCos=(DisX1*DisX2+DisY1*DisY2)/tmpsqrt
Angle= acos(abs(tmpCos))
Angle= Angle/3.1415926*180
|
|