测量线段角度

vivienluo

前段时间发过，由于某个原因，已经找不回来了。再次分享给大家。
allegro好像不能直接测量线段的角度。由于近期发现一些不规则的板子，比如圆形outline。
布局时，也可能需要按任意角度摆放，这就需要涉及到按一定的角度来放置。
所以就简单弄了个工具，如果大家觉得有用，就收藏一下。。。。

1. axlCmdRegister("line_degree" 'line_degree ?cmdType "interactive")
   
2. 
   
3. defun(line_degree ()
   
4. let((line slop)
   
5.         axlUIConfirm("\307\353\321\241\324\361\320\350\322\252\262\342\301\277\265\304Cline/Line!")
   
6.         axlSetFindFilter(?enabled '(noall clinesegs linesegs) ?onButtons        '(noall clinesegs linesegs))
   
7.         axlSingleSelectPoint()
   
8.         line = car(axlGetSelSet())
   
9.         axlClearSelSet()
   
10.         when(line        
    
11.         axlHighlightObject(line)
    
12.         slop = axlLineSlope(line->startEnd)
    
13.         if(slop
    
14.                 then
    
15.                         axlUIConfirm(sprintf(nil "Degree : %.2f" axlRadToDeg(atan(slop))))
    
16.                 else
    
17.                         axlUIConfirm("Degree : 90.0")
    
18.         )
    
19.         axlDehighlightObject(line)
    
20.         )
    
21. )
    
22. );end defun

复制代码

其实代码很简单，核心语句就是axlRadToDeg(atan(axlLineSlope(line->startEnd)))，axlRadToDeg函数只能在16.6及以上版本使用。

Damon

顶一个！！！！

baibai

吊，大神，牛牛牛牛牛！！！！！！！！！！！！！

wintonlee

加载进去以后输入命令line_degree，提示错误argument must be a symbol or nil

一线之间

强，强..........

bingshuihuo

顶一个！！！！

雨后清晨500

非常好用，很方便，谢谢罗老师~

yfchen1003

路过，谢谢！

wzh6328

学习学习，收藏一下

wzh6328

大神，牛牛牛牛牛！！