请教

jackechang

各位大侠:以下为我编的槽钢的程序,可标准槽钢必须在程序中直线的P2P3和P3P5处倒圆角r1,
在直线P3P5和P4P5处倒角r,这在程序中用command fillet达到。
可是我无法用程序中选择直线P2P3,P3P5,P4P5。请各位大侠告诉该如何处理。
如能提供其它源程序最好。谢谢！

(defun c:gb707()
(setq p0 (getpoint "插入基点:"))
(setq h (getreal "\n高度h:"))
(setq b (getreal "\n腿宽度b:"))
(setq d (getreal "\n腿厚度d:"))
(setq t (getreal "\n平均腿宽度t:"))
(setq a (/ (- b d) 20))
(setq p1 (polar p0 (* 0.5 pi) (/ h 2)))
(setq p2 (polar p1 0 b))
(setq p3 (polar p2 (* 1.5 pi) (- t a)))
(setq p4 (polar p0 0 d))
(setq p5 (polar p4 (* 0.5 pi) (- (/ h 2) t a)))
(command "line" p0 p1 p2 p3 p5 p4 "")
(command "mirror" "c" p0 p2 "" p0 p4 "n")
(princ)
)

meflying

倒角命令在程序中使用很不稳定,很难琢磨,,,建议你还是直接画圆弧吧

ZZXXQQ

可以这样：

(SETQ P6 (POLAR P3 (ANGLE P3 P5) (/ (DISTANCE P3 P5) 2)))
(COMMAND "ZOOM" "C" P5 H "FILLET" "R" R
         "FILLET" P6 (POLAR P4 (ANGLE P4 P5) (/ (DISTANCE P4 P5) 2))
         "FILLET" "R" R1
         "FILLET" P6 (POLAR P3 (ANGLE P3 P2) (/ (DISTANCE P3 P2) 2))
         "ZOOM" "P"
         "MIRROR" "C" P0 P2 "" P0 P4 "N"
)

jackechang

谢谢ZZXXQQ ，我回云试试。