|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！' l8 B+ z" R6 v3 `0 ]0 S' y1 x
, B; y9 U) ?$ u3 G/ P% ~8 e
(defun C:5test5()
- Z M2 d) h3 j/ B1 L(setvar "cmdecho" 0)
# Q2 B. Y5 k+ `; a2 X% E( A;;以下为用户输入值: @: O" D- O) ]
(setq pa (getpoint "输入阶梯的左下角点：")): S. w' s4 ^0 T6 d! C- o1 M8 c' q/ E
(setq ww (getreal "\n输入阶梯的宽度："))/ r n: `6 i4 m0 S% K0 s; J
(setq hh (getreal "\n输入阶梯的高度:")). g) `+ _2 H1 @) _$ s* }
(setq n (getint "\n输入阶梯的数目:"))$ R( ?8 G: R% Z; w9 E0 }( r
;;以下为所求各值
9 |; F8 K9 y5 y/ ]* Z- T& a(setq pb (polar pa 0 ww))% m% V) j2 t6 }. y
(setq pc (polar pb (/ pi 2) hh))/ V1 u- g; v# }5 c8 E. C
(setq dw (/ ww n))
, k% R& h0 j# k9 v& x(setq dh (/ hh n))) { E* d% K/ _- F" a
(setq pp pa)7 R$ ^3 a+ e9 d/ s9 `
;;先画阶梯的底线
5 a4 B4 q! D8 z(command "line" pa pb pc "")
7 f$ b. S) s: A" ?+ {' z;;画台阶的阶梯+ H& ^% f4 a0 D, @* ?, q: Y" t* D
(command "pline")7 T- q9 s$ C7 y
(repeat n
5 W, N [# }4 Y( J) W: [. I(setq p1 (polar pp (/ pi 2) dh))" P* [8 z6 G3 Z& |
(setq p2 (polar p1 0 dw))3 d c0 v% c8 T* \
(command pp p1 p2)9 @# z3 E* o- ]- |! L
(setq pp p2)
+ [& g' t0 [3 z* F); n6 j' ?; O5 q" ?4 D; M1 ]
(command "")1 K6 n9 D1 q% Q8 q! W* K
(prin1)8 H9 N1 f, U# v* t
) |
|
发表于 2012-5-27 16:15
楼主