|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！
! P/ s( g7 N4 c) W* u
3 g) H8 I( A: V0 b(defun C:5test5()
8 C' F& u5 p4 \/ \(setvar "cmdecho" 0)
& a- \5 r$ E7 Y& B, j4 H- a! W5 R;;以下为用户输入值" A7 \! ^' _4 v% }8 d
(setq pa (getpoint "输入阶梯的左下角点："))7 M6 `1 @! [1 |+ B* E! b
(setq ww (getreal "\n输入阶梯的宽度：")); a% t. ?7 p7 G% l0 |; e* d
(setq hh (getreal "\n输入阶梯的高度:"))
$ b, u$ X# R. Q9 u6 B! G! B(setq n (getint "\n输入阶梯的数目:"))# ~4 r0 r5 ]) e
;;以下为所求各值! v6 s; C- p6 v( k
(setq pb (polar pa 0 ww))
7 |7 }: g. c' f( u(setq pc (polar pb (/ pi 2) hh))
/ m- }0 L0 B! \9 z(setq dw (/ ww n))9 Y9 y- O( x4 o% R
(setq dh (/ hh n))
/ u2 R+ P+ I1 V; S# y# S6 f9 T(setq pp pa)
+ T- j- l; E0 q8 |;;先画阶梯的底线
$ |1 ~6 s# j' c L3 H7 O" v$ T(command "line" pa pb pc "")4 n; R7 T! P( q, j' }; T
;;画台阶的阶梯
: N; c7 M& ^1 J z1 A' R, Q- J(command "pline")
4 f' [: v, h, r" C(repeat n
& [% z3 a. O$ a' o) b1 q: w(setq p1 (polar pp (/ pi 2) dh))3 H/ Y8 i% Q* `4 @! E3 K5 D6 E9 Q
(setq p2 (polar p1 0 dw))) q( \- n2 U0 `# `3 v
(command pp p1 p2)
& I$ C# B( d+ N(setq pp p2). l8 N8 f/ J0 d8 e' n
)! N3 v" h3 {1 l3 g3 M0 E5 Q
(command ""), p2 X B5 w: U
(prin1) `* j* z, h- L8 g. y
) |
|
发表于 2012-5-27 16:15
楼主