天美乌鸦糖心mv

(defun c:PathRise (/ path plines height step i newz) ;; 提示用户选择路径 (setq path (car (entsel " 请选择路径曲线："))) (if (not path) (progn (princ " 未选择路径曲线，操作取消。

") (exit) ) ) ;; 提示用户输入平面数量 (setq plines (getint " 请输入分段数量：")) (if (not plines) (setq plines 10)) ;; 默认 10 段 ;; 提示用户输入上升高度 (setq height (getreal " 请输入总上升高度：")) (if (not height) (set…。