|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！, b5 a. Q8 Z- C( U: F8 x
3 Q# a6 t* y, G+ |( f, g, f(defun C:5test5()
! [5 R; X: z s! U: u(setvar "cmdecho" 0)
5 |) `3 l: l: T) Z: P/ U;;以下为用户输入值
- _$ v) ^) r8 j. n' m0 w" S(setq pa (getpoint "输入阶梯的左下角点："))9 w- X8 a+ ]1 x/ J* U
(setq ww (getreal "\n输入阶梯的宽度："))
) A, P9 v3 p, l5 _' y$ ~(setq hh (getreal "\n输入阶梯的高度:"))8 ^4 q" A, l% w( P7 q' i. X% O
(setq n (getint "\n输入阶梯的数目:"))
" c8 U0 W, k( }6 I8 s1 v;;以下为所求各值3 @( U1 {4 `) L& {/ M
(setq pb (polar pa 0 ww))% a! a6 |) f6 b" z; a1 b w v
(setq pc (polar pb (/ pi 2) hh))
}* y9 D$ L, M: S, k+ x(setq dw (/ ww n))
# t9 w: q1 d- \( Z s(setq dh (/ hh n))
7 |5 n( T3 h& _. k4 G; W(setq pp pa)
# B+ m8 M& h& b2 H# l0 N8 O& F2 J;;先画阶梯的底线. ?% i$ R' M" o* ^: L5 V' s
(command "line" pa pb pc "")* d# C- ]# i' [! o V
;;画台阶的阶梯
' m4 u4 c! M$ _+ S5 j, i(command "pline")
2 p! g5 B' a1 Q+ M) o( W" G(repeat n5 x- w0 T0 a9 |* k0 L" O! v4 b
(setq p1 (polar pp (/ pi 2) dh))1 _4 J# d) E4 B) `1 g
(setq p2 (polar p1 0 dw))
7 f/ W; |9 U$ ?( J& l2 z(command pp p1 p2)/ t4 p: H( k5 o6 x6 @
(setq pp p2)
9 Q- t0 q/ \4 d* H0 P)
, P* } P" E: ~9 J(command "")" d2 A9 \9 H/ i
(prin1)
1 G, P1 m! _' y4 g1 s5 y1 G- o) |
|
发表于 2012-5-27 16:15
楼主