|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！5 o$ W; W; h9 j
9 ^& ]8 g- }/ Z1 T+ _(defun C:5test5()
% r: \ j, h" h4 j9 y) R5 X. Q(setvar "cmdecho" 0)5 C5 x1 B2 H6 x8 t
;;以下为用户输入值8 n4 v; r+ Q5 g; f k1 K
(setq pa (getpoint "输入阶梯的左下角点："))' P: k* F; f. z6 O0 l
(setq ww (getreal "\n输入阶梯的宽度：")): J4 g, q: c+ E/ z% ]& n p
(setq hh (getreal "\n输入阶梯的高度:"))
5 l5 @) _4 K2 q(setq n (getint "\n输入阶梯的数目:"))
7 V8 k: s& @0 z9 X( i# C" @;;以下为所求各值
. \ x- @; R& @9 v3 ](setq pb (polar pa 0 ww))
m9 g+ J( s( i6 A" Y( y6 Q# I t2 F) t(setq pc (polar pb (/ pi 2) hh))
$ L4 g/ h2 L3 I: @# r0 Y- r# X(setq dw (/ ww n))
' Y" _3 q# j- ^" O& q% }(setq dh (/ hh n))9 v' R, p6 h* d. M3 k. g! ?: ?
(setq pp pa)
4 s2 a2 S3 W I/ S! L# c;;先画阶梯的底线5 o/ z4 R/ W7 q9 v+ ^
(command "line" pa pb pc "")
0 a/ F* M- Q! w) X;;画台阶的阶梯
* \- t+ H3 _7 l Z( ^6 J(command "pline")$ O# i, B7 T+ j1 D
(repeat n
8 A K& r, @4 m( S(setq p1 (polar pp (/ pi 2) dh))
: B. h H x7 {4 o# I6 _(setq p2 (polar p1 0 dw))
! p3 f2 q( V3 b(command pp p1 p2)& |6 ?) _0 ^" Q0 i8 M Z& i) g! `3 [
(setq pp p2)
, O7 a/ l9 s& L5 j+ V2 Q+ |), {" K8 H) P* _7 R( n+ D. O
(command "")
1 Q% w. l' h: Y l+ E2 r8 d3 m(prin1)
1 D" U$ o( w/ c. l) |
|
发表于 2012-5-27 16:15
楼主