|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！
" v& e4 L! l, F& q0 C) `: c. v4 }& W
(defun C:5test5()7 q M# }; J3 V: t0 z" c* J
(setvar "cmdecho" 0)9 U- q) O" [, N$ ~
;;以下为用户输入值% {" t$ w8 X; N' D6 v$ Z
(setq pa (getpoint "输入阶梯的左下角点："))6 {/ t" ?4 |: V3 |7 O
(setq ww (getreal "\n输入阶梯的宽度："))
6 ?3 x# E4 x' F* A7 f(setq hh (getreal "\n输入阶梯的高度:")). K, V; K) ? C
(setq n (getint "\n输入阶梯的数目:"))
6 d4 n: B* ?( W;;以下为所求各值
9 g f4 U4 U* M$ S; R: i5 c(setq pb (polar pa 0 ww))" z$ ^; ~9 H+ A! T$ F: P( ]- V
(setq pc (polar pb (/ pi 2) hh))
8 O4 N# g$ r3 q* ^7 K& f(setq dw (/ ww n)); W5 d6 v9 L0 q: m/ Y
(setq dh (/ hh n))
2 L: O" _* X' E0 w1 k(setq pp pa)8 f& \! }4 e1 k
;;先画阶梯的底线
! \1 W9 u% L# e(command "line" pa pb pc "")
/ l5 D0 q5 K$ B7 ^0 U' }# g% y+ z- r;;画台阶的阶梯
3 E3 a3 ?, y9 N3 V(command "pline")# A9 \, Q; w( G3 E, C: q
(repeat n/ a) q/ N1 }- f# V. C
(setq p1 (polar pp (/ pi 2) dh))
5 A& ]3 I( v1 T7 }: \(setq p2 (polar p1 0 dw))
, G3 @" D( x5 r' O# X(command pp p1 p2)
. [5 r p2 _( c: M(setq pp p2)$ U& K# q1 J' o6 I$ B
)* D1 B7 b+ @& u/ q
(command "")! [0 f. F# i( ?6 b3 K0 h8 r1 G
(prin1)6 e6 Z% z% k3 F) p5 }
) |
|
发表于 2012-5-27 16:15
楼主