|
|
各位大侠，小弟初学AutoCAD的二次开发lsp，发现我编好了一个lsp程序，但是在使用的过程之中，老是不稳定，有时候可以顺顺利利的画出来想要的图形，但又有时候却有问题，画的不正确，能画出来就说明程序本身没有问题的吧？但为何执行的时候不稳定呢？是不是还需要有什么其他编注的呀？？以下是一个例子，供哪位大侠不吝指点一下，非非常常感谢不尽！！！！
: }7 V4 `) S$ e6 j7 D8 c: F: W- G H- J! l
(defun C:5test5()
! S, `' B) W& ]2 \8 d- O' I" \(setvar "cmdecho" 0)
$ Q. y) Z1 n' U) J& O+ g;;以下为用户输入值' x$ S8 O2 a: m
(setq pa (getpoint "输入阶梯的左下角点："))
' m: z) k6 S1 D(setq ww (getreal "\n输入阶梯的宽度："))6 Q/ k' n0 Z2 _8 L3 h
(setq hh (getreal "\n输入阶梯的高度:"))
& k, H+ U0 v5 C( C3 `/ P0 s(setq n (getint "\n输入阶梯的数目:"))
7 N5 n; v* y- z$ f4 Y# E( H;;以下为所求各值 f9 Z; h" k8 H e
(setq pb (polar pa 0 ww))/ r4 t: o! X! ]9 s
(setq pc (polar pb (/ pi 2) hh))7 S" A' v0 g+ G- d5 M3 c$ i
(setq dw (/ ww n))& X" o# B$ E) g7 H+ S* t3 V
(setq dh (/ hh n))! }6 {) M, l0 x6 N2 f& v
(setq pp pa)2 e7 S( C# ]1 K \
;;先画阶梯的底线
! L, s- S7 |7 c4 W6 `7 E/ e5 @. R. F(command "line" pa pb pc "")
6 l0 j9 I9 u3 o! `2 G6 x" F% |; r5 G;;画台阶的阶梯
( K v, J0 |% n& m6 P: K(command "pline")
: v6 Q- U' x* d4 n7 S8 p8 E2 g(repeat n3 ]1 v1 S# f& h1 M
(setq p1 (polar pp (/ pi 2) dh))
% a. M' P! T1 i/ R! e(setq p2 (polar p1 0 dw))
0 { U$ y! d- h. p/ `& e! s(command pp p1 p2)& M" Z3 K; k2 ~
(setq pp p2)
, p# I* w4 e* K$ \# k: W. `)6 e4 A/ {1 A. k2 C
(command "") }/ k5 [2 l1 O
(prin1)
! c2 y( U( v6 z3 h) |
|
发表于 2012-5-27 16:15
楼主