|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！
: L& w1 p/ z" b) H+ b }
# p4 t1 h6 u; J( R+ o(defun C:5test5()
9 y' y; @2 o. D) l9 _(setvar "cmdecho" 0)% r+ r* I5 C$ N2 s- l9 \
;;以下为用户输入值
3 ~% i; ^/ q+ ^(setq pa (getpoint "输入阶梯的左下角点："))4 ~% h3 y' v8 F" V9 s
(setq ww (getreal "\n输入阶梯的宽度："))$ w2 B, w. G) e2 F9 O. p
(setq hh (getreal "\n输入阶梯的高度:"))
+ U" q/ P7 C9 ~) C(setq n (getint "\n输入阶梯的数目:"))
$ q; E( J8 f% c: `;;以下为所求各值
4 w, P6 R. `' R9 z& L i(setq pb (polar pa 0 ww))
" b- [. [3 L& O! o- j9 w' k$ j# f- {(setq pc (polar pb (/ pi 2) hh))
' n4 n) V% o' j; {(setq dw (/ ww n))9 f+ r d m$ ]1 o
(setq dh (/ hh n))- O0 f1 k# T9 n7 _: M# R* w. d0 P
(setq pp pa): V6 d( v- y# K* ~7 s' G, [
;;先画阶梯的底线& |- y! G8 M4 f% x3 Q7 ?. y/ `
(command "line" pa pb pc "")
1 C# d; u& ~2 z9 t: G3 S9 e;;画台阶的阶梯7 ]5 i1 a' O* F$ o! v
(command "pline")
9 R/ [ ?3 M; b* o& [% K(repeat n
* F$ _" i% A$ ~/ G$ r(setq p1 (polar pp (/ pi 2) dh))
' S5 [2 ? h0 T$ V* `: t% C& z(setq p2 (polar p1 0 dw))
2 @+ H0 `, ~# v(command pp p1 p2)
- c5 P: g6 I( Y) b5 b(setq pp p2)
1 H1 B( O# @3 {1 Q)
$ m5 W4 d, `) w( [1 y+ y7 D(command "")
3 @* q) _8 J9 @- f, [(prin1)7 n# T. v9 g7 ?2 [
) |
|
发表于 2012-5-27 16:15
楼主