如何用lisp画出这样的楼梯呢？已解决【感谢zhynt大侠相助】

qcw911 · 发表于 2011-7-29 16:51:00

回复
已经非常接近了  不愧为大师
我改了红色部分
希望圆弧的地方为方块
但是倾斜踏的好像还是按照原来的那个圆弧截止的
怎么办呢？
还有就是不想用stair这个层
随层就可以
(defun err (s)
  (if (and (/= s "console break")
(/= s "Function cancelled")
(/= s "quit/exit abort")
   )
(progn (setvar "osmode" oldos)
(setvar "cmdecho" oldcmd)
(setq *error* olderr)
(command "UNDO" "E")
(princ (strcat "\n错误弹出:" s))
)
  )
)
(defun make_line (lay pts pte)
  (entmake (list '(0 . "LINE")
(cons 8 lay)
(cons 10 pts)
(cons 11 pte)
)
  )
  (setq en (entlast))
  (setq ss (ssadd en ss))
)
(defun make_line2 (lay pt ang)
  (setq pts (polar pt (+ s_ang ang) (/ gap 2))
pte (polar pts (+ s_ang ang) dist)
  )
  (make_line lay pts pte)
  (setq en (entlast))
  (setq ss (ssadd en ss))
)
(defun make_arc (lay cen Radius angs ange)
  (entmake (list '(0 . "ARC")
(cons 8 lay)
(cons 10 cen)
(cons 40 Radius)
(cons 50 angs)
(cons 51 ange)
)
  )
  (setq en (entlast))
  (setq ss (ssadd en ss))
)
(defun dtor (ang) (/ (* ang PI) 180))
;;;;
;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;;;
(defun c:ltpm ()
  (command "undo" "BE")
  (setq oldos (getvar "osmode")
oldcmd (getvar "cmdecho")
oldlay (getvar "CLAYER")
olderr *error*
*error* err
  )
  (setvar "cmdecho" 0)
  (if (= (TBLOBJNAME "LAYER" "Stair") nil)
(command "layer" "m" "Stair" "c" "4" "" "")
  )
  (setvar "clayer" oldlay)
  (setq ss (ssadd))
  (setq pta (getpoint "\n插入点:"))
  (setq ptb (getpoint pta "\n楼梯宽度及角度:"))
  (setq Stair_width (distance pta ptb))
  (setq s_ang (angle pta ptb))
  (setq pt (polar pta
(+ s_ang (dtor 315))
(* 0.5 Stair_width (sqrt 2))
)
  )
  (if ("))
  (if (= Bench_width nil)
(setq Bench_width 880.0)
  )
  (while (> (- Bench_width (/ Stair_width 2.0)) 0)
(setq Bench_width (getreal "\n从新输入:"))
  )
  (setq Stepping_width (getreal "\n如踏宽度200>"))
  (if (= Stepping_width nil)
(setq Stepping_width 200.0)
  )
  (setq Bench_UP (getint "\n上梯段数:"))
  (if (= Bench_UP nil)
(setq Bench_UP 2)
  )
  (setq Bench_DN (getint "\n下梯段数:"))
  (if (= Bench_DN nil)
(setq Bench_DN 4)
  )
  (setq Gap (- Stair_width (* Bench_width 2)))    ;(if (/= gap 0)
(progn (setq pt1 (polar pt  s_ang (/ gap 2))
pt2 (polar pt (+ s_ang  pi) (/ gap 2))
)
;;; (make_arc "Stair" pt (/ gap 2) s_ang (+ s_ang pi))
      (setq pt11 (polar pt  (+ s_ang(/ pi 4)) (*  (sqrt 2) (/ gap 2)));;;;;;;;qiuw1
pt12 (polar pt (+ s_ang  (* 3 (/ pi 4))) (*  (sqrt 2) (/ gap 2)));;;;;;;;qiuw1
)

         (make_line "Stair" pt11 pt12);qiuw1

(setq pt3 (polar pt1 (+ s_ang (* 1.5 pi)) (* Bench_DN Stepping_width))
pt4 (polar pt2 (+ s_ang (* 1.5 pi)) (* Bench_up Stepping_width))
)
(make_line "Stair" pt11 pt3)
(make_line "Stair" pt12 pt4)
(make_line "Stair" pt1 (polar pt1 s_ang Bench_width))
(make_line "Stair" pt2 (polar pt2 (+ s_ang pi) Bench_width))
(setq n 0)
(repeat Bench_DN
   (setq pt5 (polar pt3 (+ s_ang (* 0.5 pi)) (* n Stepping_width))
   pt6 (polar pt5 s_ang Bench_width)
   )
   (make_line "Stair" pt5 pt6)
   (setq n (1+ n))
)
(setq n 0)
(repeat Bench_up
   (setq pt5 (polar pt4 (+ s_ang (* 0.5 pi)) (* n Stepping_width))
   pt6 (polar pt5 (+ s_ang pi) Bench_width)
   )
   (make_line "Stair" pt5 pt6)
   (setq n (1+ n))
)
(setq dist (- (/ (+ Bench_width (/ gap 2)) (cos (dtor 30))) (/ gap 2)))
      (make_line2 "Stair" pt (dtor 30))
(make_line2 "Stair" pt (dtor 60))
(make_line2 "Stair" pt (dtor 120))
(make_line2 "Stair" pt (dtor 150))
(setq pt5 (polar pt (+ s_ang (dtor 90)) (/ gap 2))
pt6 (polar pt5 (+ s_ang (dtor 90)) Bench_width)
)
(make_line "Stair" pt5 pt6)
;;;          (command "_.group" "" "*" "" ss "")
)
  ;)
  (setvar "osmode" oldos)
  (setvar "cmdecho" oldcmd)
  (command "UNDO" "E")
  (princ)
)

zhynt · 发表于 2011-7-29 16:56:00

晚上再改。

如何用lisp画出这样的楼梯呢？已解决【感谢zhynt大侠相助】

发表回复

精选推荐