|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！& r$ Z; I7 k& F$ D1 i9 {1 [
. M+ ?$ E r- G; t(defun C:5test5()
7 c4 h8 b5 g4 e, A8 o3 E( ]% l(setvar "cmdecho" 0)! k1 K# ]' g4 s3 E9 d
;;以下为用户输入值
5 w7 @6 W+ l$ R, y- w+ n(setq pa (getpoint "输入阶梯的左下角点："))" D H+ S3 Q" f
(setq ww (getreal "\n输入阶梯的宽度："))
! Q! U* ]/ D/ o: S- h. \(setq hh (getreal "\n输入阶梯的高度:"))
! y, m* L( A# f(setq n (getint "\n输入阶梯的数目:"))
" i( f1 V. _) ~6 G D;;以下为所求各值
7 @0 {; q, ^) R! M; {' c1 q( r$ z(setq pb (polar pa 0 ww))
6 P/ ` u \5 S(setq pc (polar pb (/ pi 2) hh))
1 s% I: {+ I/ Y: t% g3 d& h(setq dw (/ ww n))+ o- [! ~- a% G
(setq dh (/ hh n))
+ N+ E- T$ ~6 m0 r(setq pp pa). e* M2 R( b; I. F3 ?4 S) n) M
;;先画阶梯的底线3 ?% Q0 q% C0 K( I8 H
(command "line" pa pb pc "")
6 H( {' p! c, N7 ~9 Z, x, N$ j' g;;画台阶的阶梯
8 ]0 s/ E* C$ e2 v: Q( B3 x(command "pline")) k8 U% q5 W" }& q* R$ g8 y* s6 y2 m
(repeat n* n& x" ]6 t4 Q$ n$ l) T1 v7 C! a
(setq p1 (polar pp (/ pi 2) dh))5 w/ J1 \; D3 K W- @2 |$ W9 d
(setq p2 (polar p1 0 dw))% S! @/ _# _; v4 E
(command pp p1 p2)
# V! s' K6 X5 q(setq pp p2)6 ^0 @0 u+ E/ I a* N
)) c# e7 [3 q& a( ~& a' [8 H( H
(command "")
- K% H# l ]% ^) O(prin1)! U4 _! Q( O& r. v$ u
) |
|
发表于 2012-5-27 16:15
楼主