reverse 將 list 內的元素反序列排序

; reverse 將 list 內的元素反序列排序 ; 預設 pt_list 為 nil ; 用 cons 指令將 x, y, z 一一加入 pt_list, ; pt_list 的元素順序為 '( z y x) ; ( setq pt_list ( reverse pt_list)) ; pt_list 會變成 '(x y z)

;

(* len_bcut_mh (sin (+ (* pi 0.5) ang_pda)) ) (cdr ( reverse ptz_angb)) ) ) ) (setq ptz_angt (polar ptz_tmc_cpt ang_pda len_pmr)) (setq ptz_tph ( reverse (cons

(+ (* len_tcut_mh (sin (- (+ (* pi 1.5) ang_pda) ang_tcut_dd)) ) center_line_len ) (cdr (reverse ptz_angt)) ) ) ) ;

( setq fish_pt_list ( cons fish_pt fish_pt_list )) ; 將曲線的點座標值加入 fish_pt_list

( setq fish_pt_list ( reverse fish_pt_list )) ; 反序排列 fish_pt_list ( command "pline" ( foreach pt fish_pt_list ( command pt ))) ; 畫魚形曲線

---