[求助]关于两条直线自动导角然后双向偏移的程序

ahyawang

两条直线可以双向偏移，可是弧段不能偏移，求高手改一下。另外双向偏移在缩小时有时会出问题。两条偏移后的线会重合！

我加不上图片详见附件,

 

(defun c:ww (/ l1 l2 r r1 y1 z1 y2 z2 e1 e2)
(setq r (getreal "\n 请输入管径"))

(setq l1 (getpoint "请点取要偏移的对象1:") )
(setq l2 (getpoint "请点取要偏移的对象2:") )
(setq y1 (polar l1 0 (/ r 2) ))
(setq z1 (polar l1 (-(* 1 pi)) (/ r 2)) )


(command "offset" (/ r 2) l1 y1 "")
(command "offset" (/ r 2) l1 z1 "")


(setq y2 (polar l2 0 (/ r 2) ))
(setq z2 (polar l2 (-(* 1 pi)) (/ r 2)) )


(command "offset" (/ r 2) l2 y2 "")
(command "offset" (/ r 2) l2 z2 "")

(command "fillet" "r" r1)
(command "fillet" l1 l2)

(prin1))

 

狂刀lxx

1、fillet

2.pedit join

3.双向偏移 (vla-offset obj d)(vla-offset obj (- d))

4.取顶点1，2法线，构造2条line

328302216

楼主你要的效果实现了吗？可以把程序源码发我一份吗？QQ：328302216