变半径导角

citykunan

我编了个变半径导角的程序，只能一一选取相应的线实现，能不能用框选，一下子选择第一选择集和第二选择集来完成程序？谢谢。说明请看dwg 文件。 ;将带有中心线的管子随半径的增加自动加半径导角，并画出弯管的端口。这个程序是单选，一一的选择。
(defun c:mf ( / os cmd line1 line2 radius radius2 ent first_poi radius_inciese end_arc first_arc
arc_startpoint arc_endpoint first_arc_start_point first_arc_end_point
end_arc_start_point end_arc_end_point)
(vl-load-com)
(if (= mf_radius_single_select nil) (setq mf_radius_single_select 20))
(initget 6)
(setq radius2 (getreal (strcat "\nThe radius of inside arc" " <" (vl-princ-to-string mf_radius_single_select) ">:")))
(if (= radius2 nil)
(setq radius mf_radius_single_select)
(progn (setq radius radius2)
(setq mf_radius_single_select radius))
);通过以上几行可以实现不断更改默认值，radius变量在后续程序使用
;注意(vl-princ-to-string mf_radius_single_select)中的mf_radius_single_select变量一定要是全局变量

(setq line1 (mf_pick "\nSelect first line:"))
(setq line2 (mf_pick "\nSelect second line:"))
(setq ent (entget (car line1)))
(setq first_poi (cdr (assoc 10 ent)))
(first_set)
(command "fillet" "r" radius)
(command "fillet" line1 line2)
(setq first_arc (entlast)) ;得到第一个圆弧的信息 (arc_point first_arc)
(setq first_arc_start_point arc_startpoint)
(setq first_arc_end_point arc_endpoint)


(setq radius_inciese 0.0)
(while (and line1 line2) ;while1

(setq radius (- radius radius_inciese));为了循环时将radius的值恢复到起始的最内圈半径的值
(setq line1 nil line2 nil)
(setq line1 (mf_pick "\nSelect first line:"))
(if line1
(progn
(setq radius_inciese (pttoline_dist first_poi (car line1)));得到点到线的距离
(setq radius (+ radius radius_inciese))
(setq line2 (mf_pick "\nSelect second line:"))
)
);end if
(if line2
(progn
(command "fillet" "r" radius)
(command "fillet" line1 line2)
(setq end_arc (entlast))
)
);end if
);end while1

(arc_point end_arc)
(setq end_arc_start_point arc_startpoint)
(setq end_arc_end_point arc_endpoint)

(command "line" first_arc_start_point end_arc_start_point "")
(command "line" first_arc_end_point end_arc_end_point "")
(end_recover)

(princ)
)
(defun first_set ()
(command "_.undo" "be")
(setq os (getvar "osmode"))
(setq cmd (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)

) (defun end_recover ()
(setvar "osmode" os)
(setvar "cmdecho" cmd)
(command "_.undo" "e")
)
(defun mf_pick (prmpt / e)
(setq e (entsel prmpt))

(if e
(cond
((/= (cdr (assoc 0 (entget (car e)))) "LINE")
(prompt "\nError: Entity is a ")
(princ (cdr (assoc 0 (entget (car e)))))
(mf_pick prmpt)
)
(T
e
)
)
)
)


(defun pttoline_dist ( WW SS / QQ)

(setq QQ (vlax-curve-getclosestpointto
(vlax-ename->vla-object SS)
WW
t
)
)
(distance WW QQ)
) ;计算出圆弧的起点和终点。
(defun arc_point (arc / arc_center arc_radius start_angle end_angle)
(setq arc_center (cdr (assoc 10 (entget arc))))
(setq arc_radius (cdr (assoc 40 (entget arc))))
(setq start_angle (cdr (assoc 50 (entget arc))));圆弧的起始角
(setq end_angle (cdr (assoc 51 (entget arc))));圆弧的终止角
(setq arc_startpoint (polar arc_center start_angle arc_radius))
(setq arc_endpoint (polar arc_center end_angle arc_radius))
);将arc_startpoint,arc_endpoint在主程序中设为局部变量 (princ)
(prompt "\nType MF to run")
(princ)