CAD的嵌套深度不能超过4层

halatmsnn

(defun c:b22()
(setvar "osmode" 0)
(defun acos (num)
(cond
    ((equal num 1 1e-12) 0.0)
    ((equal num -1 1e-12) pi)
    ((< -1 num 1)
    (atan (sqrt (- 1 (expt num 2))) num))))　　　　　　　　　　　　　　　　　　　
(defun tan (a)
(if (= (numberp a) T)
(/ (sin a) (cos a))
nil
));
(setq p1 (list 0 0 0))
(setq tt (getreal "\n 板厚:"))
(setq zb (getreal "\n 折边:"))
;(setq h1 (getstring "\n 文字高度:"))
(cond ((= tt 1)(setq tt1 0.8))
((= tt 1.5)(setq tt1 1.3))
((= tt 1.2)(setq tt1 1))
((= tt 2)(setq tt1 1.5))
((= tt 2.5)(setq tt1 2.0))
((= tt 3)(setq tt1 2.5))
((= tt 4)(setq tt1 3.3)))
(setq z1 (- zb tt1))
(while
(setq a (getreal "\n 底边:"))
(setq b (getreal "\n 右边:"))
(setq c (getreal "\n 上边:"))
(setq d (getreal "\n 左边:"))
(setq e (getreal "\n 对角线:"))
;(setq bh (getstring "\n 板号:"))
;(setq xh (getstring "\n 序号:"))
(setq o2(acos(/ (- (+ (* a a) (* e e)) (* b b)) 2 a e)))
(setq o1(acos(/ (- (+ (* d d) (* e e)) (* c c)) 2 d e)))
(setq o3(acos(/ (- (+ (* a a) (* b b)) (* e e)) 2 a b)))
(setq o6(acos(/ (- (+ (* c c) (* d d)) (* e e)) 2 c d)))
(setq o5(- pi o1 o6))
(setq o4(- pi o2 o3))
(setq o(+ o1 o2))
(setq o0(+ o4 o5))
(setq p2(polar p1 0 a))
(setq p3(polar p1 o2 e))
(setq p4(polar p1 o d))
;(setq p0(inters p1 p3 p2 p4))
;(command "text" "m" p0 h1 0 bh)
;(setq pxh(polar p0 (* 1.5 pi) 100))
;(command "text" "m" pxh h1 0 xh)
;(setq pbz1(polar p0 (+ (* pi 0.5) o2) 70))
;(command "DIMALIGNED" p1 p3 pbz1)
(setq al(- a (/ tt1 (tan (/ o 2))) (/ tt1 (tan (/ o3 2)))))
(setq bl(- b (/ tt1 (tan (/ o3 2))) (/ tt1 (tan (/ o0 2)))))
(setq cl(- c (/ tt1 (tan (/ o0 2))) (/ tt1 (tan (/ o6 2)))))
(setq dl(- d (/ tt1 (tan (/ o 2))) (/ tt1 (tan (/ o6 2)))))
(setq PL1(polar p1 (/ o 2) (/ tt1 (sin (/ o 2)))))
(setq PL2(polar PL1 0 al))
(setq PL3(polar PL2 (- pi o3) bl))
(setq PL4(polar PL1 o dl))
(setq pt1(polar PL1 (* 1.5 pi) z1))
(setq pt2(polar pt1 0 al))
(setq pt3(polar pt2 (* 0.5 pi) z1))
(command "pline" PL1 pt1 pt2 pt3 "")
(setq pt5(polar pt1 (* 1.5 pi) 100))
(setq pt6(polar pt5 (* 1.5 pi) z1))
(setq pt7(polar pt6 0 bl))
(setq pt8(polar pt7 (* 0.5 pi) z1))
(command "pline" pt5 pt6 pt7 pt8 "")
(command "align" "l" "" pt5 PL2 pt8 PL3 "" "N" "2d")
(setq pt9(polar pt5 (* 1.5 pi) 100))
(setq pt10(polar pt9 (* 1.5 pi) z1))
(setq pt11(polar pt10 0 cl))
(setq pt12(polar pt11 (* 0.5 pi) z1))
(command "pline" pt9 pt10 pt11 pt12 "")
(command "align" "l" "" pt9 PL3 pt12 PL4 "" "N" "2d")
(setq pt13(polar pt9 (* 1.5 pi) 100))
(setq pt14(polar pt13 (* 1.5 pi) z1))
(setq pt15(polar pt14 0 dl))
(setq pt16(polar pt15 (* 0.5 pi) z1))
(command "pline" pt13 pt14 pt15 pt16 "")
(command "align" "l" "" pt13 PL4 pt16 PL1 "" "N" "2d")
;(command "pline" PL1 PL2 pl3 pl4 "c")
;(command "change" "l" "" "p" "la" "center" "")
;(command "pline" P1 P2 p3 p4 "c")
;(command "change" "l" "" "p" "la" "板厚线" "")
(setq p1(polar p2 0 2000))
)
(setvar "osmode" 35)
)

halatmsnn

请大神指点下，我是个新手,这个程序需要实现的功能：任意四边形，四周折边，正常展开

sicky111

论坛有这样的代码？楼主可以搜一下。

yangjian001

个程序需要实现的功能

halatmsnn

没有人来，我自己来，请教大神

fan_zh

是这样的效果吗？

newer

halatmsnn 发表于 2017-11-5 08:57

你贴个前后的对照图片上来看看。

halatmsnn

谢谢大家的关心，问题我已经解决了，感谢！！！