即使90线在正确的末端附近更长，也可以使用自定义的双弧，因此它可以在交叉点修剪。
较长的“T”线需要休息，然后很容易地运行两次圆角。然后一条线或样条就可以工作了。
链接是更多的1弧，但方向。
相交方法最好作为处理样条。
- (setq oldsnap (getvar 'osmode))
- (setvar 'osmode 0)
- (setvar 'filletrad (getreal "\nEnter radius"))
- (setq ent1 (entsel "\npick square off line near start end"))
- (setq pt1 (cadr ent1))
- (setq ent2 (entsel "\npick main line"))
- (setq obj1 (vlax-ename->vla-object (car ent1)))
- (setq obj2 (vlax-ename->vla-object (car ent2)))
- (setq pt2 (vlax-invoke obj1 'intersectwith obj2 acExtendBoth))
- ; need a check here line pline
- (setq start (vlax-get Obj2 'StartPoint))
- (setq end (vlax-get Obj2 'EndPoint))
- (setq pt3 (polar pt2 (angle start end) 0.05))
- (setq pt4 (polar pt2 (- (angle start end) pi) 0.05))
- (command "break" pt3 pt2)
- (setq ent3 (entlast))
- (command "fillet" pt1 ent2)
- (command "fillet" pt1 ent3)
- (setvar 'osmode oldsnap)
| 
置顶卡
