重复并绘制剖面线b
我编写了以下代码。相关Excel文件也随附。通过copping和将其粘贴到cad中，提示
excel工作表我想连续运行代码。但第一个原始的只有运行。我如何继续
直到完成所有excel行。
(defun nuw()
(setq ratio 0.025) ; scale ratio and devide by 100
(alert (strcat "Pick on Road Center of: " sta""))
(setq p1 (getpoint))
(setq x1(car p1))
(setq y1(cadr p1))
(setq pr1(list (+ x1 rcl)(+ y1(* ratio rcl rcs) )))
(setq pr2(list (+ x1 rcl rsl)(+ (cadr pr1 )(* rsl rss ratio))))
(setq pr3(list (- x1 lcl)(+ y1 (* ratio lcl lcs))))
(setq pr4(list (- x1 lcl lsl)(+ (cadr pr3)(* ratio lsl lcl))))
(command "color" 4);cyan
(command "pline" "non"pr4"non"pr3"non"p1"non"pr1"non"pr)
)
页:
[1]