三维网

标题: AutoLisp程序执行有问题 [打印本页]

---

作者: Repa    时间: 2008-8-15 09:35
标题: AutoLisp程序执行有问题
刚学AUTOLISP,书上的第一个例子，执行后只能画矩形，(command "line" mp1 mp3 "")和(command "line" mp2 mp4 "")两句指令根本没作用，中心线没有连接在一起
请教高手。我用的是2004版本。非常感谢
& c, o* r* R+ |; [(
6 [2 q) W1 Y& ~( U9 Ldefun c:pbox (/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
! O  B1 e. N& Y$ b7 v% W* P(setvar "cmdecho" 0)
' a5 C) [! y! H9 E2 s/ p4 H(setvar "blipmode" 0)
! y, s4 L  f) w ;以下pa,ww,hh值需用户输入
(setq pa (getpoint "Enter Left/Bottom Point:"))
$ j0 U* F' ^" U. |+ b( u8 E(setq ww (getreal "\nWidth"))
(setq hh (getreal "\nHeight"))
& P- Q* H. G6 R  `* a/ t1 }9 |;以下pb,pc,pd值由程序依据pa,ww,hh计算得出
4 M: A5 G  B* _  O- o(setq pb (polar pa 0 ww))
: u7 t. p' K7 C  k8 x3 V(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
- I  x% w' ^, T, E+ c(command "pline" pa pb pc pd "c")
& r0 [" e3 V+ N9 H& o;以下mp1,mp2,mp3,mp4值由程序依据pa,ww,hh,pb,pc,pd计算得出
(setq mp1 (polar pa 0 (/ ww 2)))
  k7 \* n! u  ^  M: z% f(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
1 f7 u( I7 i# O# ~4 u1 _(setq mp3 (polar pd 0 (/ ww 2)))
* V! O! Z' |3 N$ V. L* U* l(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
  x9 O3 m2 ~% L(command "line" mp1 mp3 "")
9 n2 Y2 n; y" D3 J; \(command "line" mp2 mp4 "")
(prin1)
)

---

作者: woaishuijia    时间: 2008-8-15 10:11
程序本身没有问题。

---

作者: Repa    时间: 2008-8-16 08:13
谢谢斑竹热心回帖
' u' q  i1 M7 Q其他程序都能正常运行，呵呵

---

作者: SunVei    时间: 2008-8-16 11:09
关闭补捉以免干扰会好些

---

欢迎光临 三维网 (http://www.3dportal.cn/discuz/)

Powered by Discuz! X3.4