我编写了以下代码。相关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)
- )
| 
置顶卡
