|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！
; _' N% J% k" G2 r/ L' @5 ?
6 M7 N6 |0 Z5 J9 f3 e k(defun C:5test5()' h1 C& C, R0 o
(setvar "cmdecho" 0)
* n& K9 i% y8 P: {% @7 J;;以下为用户输入值/ w: a3 M$ D# a9 d4 c4 G
(setq pa (getpoint "输入阶梯的左下角点："))
; y& U8 {4 l" |(setq ww (getreal "\n输入阶梯的宽度："))- C9 x- n; k4 w7 t* w! H+ J. A
(setq hh (getreal "\n输入阶梯的高度:"))
* J% E) b" C4 {, P2 f" |( J/ U: A(setq n (getint "\n输入阶梯的数目:"))( l0 }$ n1 Z( P! p4 I/ A, B
;;以下为所求各值
7 V% |& o5 E5 u+ ~7 g(setq pb (polar pa 0 ww))
) j4 b2 c" C% E8 W- M: [7 \(setq pc (polar pb (/ pi 2) hh))
, l) ?& q; p. i5 z5 R# t(setq dw (/ ww n))
7 U9 V4 X* i8 y2 J. c(setq dh (/ hh n))7 @. g( {; R" V5 X; G' E
(setq pp pa)& y/ ], f# J2 h% t- J' z% S
;;先画阶梯的底线* `7 p% j- r9 d0 e: {
(command "line" pa pb pc "")
3 b4 U4 y. t1 c% q; f;;画台阶的阶梯8 j2 W g: H; F% D, K2 e
(command "pline")# Q" ]8 P. m8 q2 C8 s$ b
(repeat n6 K# E- u( a$ L( z! P
(setq p1 (polar pp (/ pi 2) dh))
# ^; I2 V! \& l' `/ t) G(setq p2 (polar p1 0 dw))9 d9 p7 j% C9 ~& K4 p) K
(command pp p1 p2)9 d2 |; \% w) ~8 `
(setq pp p2)5 g5 F0 x% o: u9 X+ P
)0 f' ~( g" u0 z% [5 a- G4 j. {
(command "")
; ] R( \4 Q- @9 l# c(prin1)- b* H+ B9 P( m8 A
) |
|
发表于 2012-5-27 16:15
楼主