大神 看一下 auto lisp 那错了总是出现出现参数类型错误 numberp.nil
(defunwgw()(setqp1(getpoint"\n输入圆心坐标点:"))(setqr1(getreal"\n输入圆的半径:"))(setqr2(*0.05r1)...
(defun wgw () (setq p1 (getpoint "\n输入圆心坐标点:")) (setq r1 (getreal "\n输入圆的半径:")) (setq r2 (* 0.05 r1)) (setq p2 (list (- (car p1) 50) (+ (cadr p1) 450))) (setq p4 (list (+ (car p1) 40) (+ (cadr p1) 540))) (setq p3 (list (car p4) (cadr p2))) (setq p5 (list (car p2) (cadr p4))) (setq p6 (list (- (car p1) 50) (- (cadr p1) 540))) (setq p8 (list (+ (car p1) 40) (- (cadr p1) 450))) (setq p7 (list (car p8) (cadr p6))) (setq p9 (list (car p6) (cadr p8))) (setq p10 (list (+ (car p1) 450) (- (cadr p1) 50))) (setq p12 (list (+ (car p1) 540) (+ (cadr p1) 40))) (setq p11 (list (car p12) (cadr p10))) (setq p13 (list (car p10) (cadr p12))) (setq p14 (list (- (car p1) 450) (- (cadr p1) 50))) (setq p16 (list (- (car p1) 540) (+ (cadr p1) 40))) (setq p15 (list (car p16) (cadr p14))) (setq p17 (list (car p14) (cadr p16))) (setq p18 (list (car p1) (+ (cadr p1) (- r 100)))) (setq p19 (list (car p1) (- (cadr p1) 300))) (command "circle" p1 r1) (command "circle" p1 r2) (command "pline" p2 p3 p4 p5 "c") (command "pline" p6 p7 p8 p9 "c") (command "pline" p10 p11 p12 p13 "c") (command "pline" p14 p15 p16 p17 "c") (command "line" p18 P19) )
展开
1个回答
展开全部
(setq p18 (list (car p1) (+ (cadr p1) (- r 100))))
r错误
明经 AutoLISP 编程 102918348
r错误
明经 AutoLISP 编程 102918348
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
