autolisp中我编了这样一个程序画0200型和0201型纸箱，为什么画不出来呢
(defun c:box0200() ;0200型主程序(setvar "cmdecho" 0)
(get_input_data) ;调用子程序
(command "pline" p1 p6 p23 p22 p8 p9 p21 p20 p10 p11 p19 p18 p12 p13 p17 p16 p14 p15 "c")
(command "line" p2 p14 "")
(command "line" p3 p13 "")
(command "line" p4 p10 "")
(command "line" p5 p9 "")
(command "line" p7 p14 "")
(command "line" p1 p15 "")
(princ)
)
(defun c:box0201() ;0201型主程序
(setvar "cmdecho" 0)
(get_input_data) ;调用子程序
(command "pline" p1 p6 p23 p22 p8 p9 p21 p20 p10 p11 p19 p18 p12 p13 p17 p16 p14 p15 "c")
(command "pline" p24 p25 p3 p32 p26 p27 p33 p4 p28 p29 p5 p34 p30 p31 p6 "c")
(command "line" p2 p14 "")
(command "line" p32 p12 "")
(command "line" p4 p10 "")
(command "line" p34 p8 "")
(command "line" p7 p14 "")
(princ)
)
(defun get_input_data()
(setq l (getreal "长度L:"))
(setq b (getreal "\n宽度B:"))
(setq h (getreal "\n高度H:"))
(setq k (getreal "修正系数:"))
(setq m (getreal "纸板厚度:"))
(setq f (getreal "接头长度:"))
(setq p1 (getpoint "\n插入点:"))
(setq p2 (polar p1 0 f))
(setq p3 (polar p2 0 l))
(setq p4 (polar p3 0 b))
(setq p5 (polar p4 0 l))
(setq p6 (polar p5 0 b))
(setq p7 (polar p6 (- 0 (/ pi 2)) h))
(setq p8 (polar p7 pi (- b m)))
(setq p9 (polar p8 pi m))
(setq p10 (polar p9 pi l))
(setq p11 (polar p10 pi m))
(setq p12 (polar p11 pi (- b (* 2 m))))
(setq p13 (polar p12 pi m))
(setq p14 (polar p13 pi l))
(setq p15 (polar p14 pi f))
(setq p16 (polar p14 (- 0 (/ pi 2)) (/ b 2)))
(setq p17 (polar p16 0 l))
(setq p18 (polar p17 0 m))
(setq p19 (polar p18 0 (- b (* 2 m))))
(setq p20 (polar p19 0 m))
(setq p21 (polar p20 0 l))
(setq p22 (polar p21 0 m))
(setq p23 (polar p22 0 b))
(setq p24 (polar p2 (/ pi 2) (/ b 2)))
(setq p25 (polar p24 0 (- l m)))
(setq p26 (polar p25 0 m))
(setq p27 (polar p26 0 (- b m)))
(setq p28 (polar p27 0 m))
(setq p29 (polar p28 0 (- l m)))
(setq p30 (polar p29 0 m))
(setq p31 (polar p30 0 b))
(setq p32 (polar p26 (- 0 (/ pi 2)) (/ b 2)))
(setq p33 (polar p32 0 (- b m)))
(setq p34 (polar p5 0 m))
)
file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/1015873687/QQ/WinTemp/GE/664A4F48-6C8E-495D-9F12-19AFDE22DD9D.jpg
(defun c:box0200() ;0200型主程序
(setvar "cmdecho" 0)
(setq oldos (getvar "osmode"))
(get_input_data) ;调用子程序
(setvar "osmode" 0)
(command "pline" p1 p6 p23 p22 p8 p9 p21 p20 p10 p11 p19 p18 p12 p13 p17 p16 p14 p15 "c")
(command "line" p2 p14 "")
(command "line" p3 p13 "")
(command "line" p4 p10 "")
(command "line" p5 p9 "")
(command "line" p7 p14 "")
(command "line" p1 p15 "")
(setvar "osmode" oldos)
(setvar "cmdecho" 1)
(princ)
)
最好加上OSMODE系统变量 叮咚 发表于 2012-5-17 18:13 static/image/common/back.gif
(defun c:box0200() ;0200型主程序
(setvar "cmdecho" 0)
(setq oldos (getvar "osmode") ...
可以了，万分感谢！！ 程序调试很重要 革天明 发表于 2012-5-19 13:14 static/image/common/back.gif
程序调试很重要
嗯，对。但是有些错误还是没经验。。
页:
[1]