- 积分
- 1674
- 明经币
- 个
- 注册时间
- 2001-12-31
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
已知:一多义线pline,和偏移距离offset_dist
要求:offset_dist > 0 时pline向外偏移
offset_dist < 0 时pline向内偏移
我的思路:
1、divide ---> pline 分为(* (cdr (assoc 90 (entget pline))) 3) 份后,提取点数据points。
开始循环
2、计算pt(i)、pt(i+1)、pt(i+2),的角平分线方位角myAngle,
3、计算偏移点mypt=(polar pt(i+1) myAngle (* -1.0 offset_dist))
4、如果mypt为pline内一点并且offset_dist < 0 ,
那么终止循环
发出偏移命令 (command "offset" abs(offset_dist) pline mypt "")
5、如果mypt不在pline内并且offset_dist > 0,
那么终止循环
发出偏移命令 (command "offset" abs(offset_dist) pline mypt "")
6、i=i+1
结束循环 |
|