关于多义线自动偏移的考虑

南子 · 发表于 2003-1-21 15:14:00

已知：一多义线pline,和偏移距离offset_dist
要求：offset_dist > 0 时pline向外偏移
   offset_dist  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 "")
6、i=i+1
结束循环