QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 1914|回复: 3
打印 上一主题 下一主题
收起左侧

[已答复] AutoLisp程序执行有问题

[复制链接]
跳转到指定楼层
1#
发表于 2008-8-15 09:35:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式 来自: 中国浙江宁波

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
刚学AUTOLISP,书上的第一个例子,执行后只能画矩形,(command "line" mp1 mp3 "")和(command "line" mp2 mp4 "")两句指令根本没作用,中心线没有连接在一起, n/ V8 T' ]4 L0 T7 u
请教高手。我用的是2004版本。非常感谢4 `6 }1 H- O% R: m% r1 \
( ! g, C5 S8 W( }+ M" |6 i
defun c:pbox (/ pa pb pc pd ww hh mp1 mp2 mp3 mp4) % X, y, ]% \+ W! @
(setvar "cmdecho" 0)   j+ u6 y" w! d, m( w
(setvar "blipmode" 0), N. o* h6 w! f0 _
;以下pa,ww,hh值需用户输入 $ h+ F9 F0 J, I5 \" J  D- {
(setq pa (getpoint "Enter Left/Bottom Point:"))
, Z* F9 M% T  I# H" y% L(setq ww (getreal "\nWidth"))
& I) F3 f1 N7 v* Z, I; \(setq hh (getreal "\nHeight"))
8 ]* C. \# j3 @" W/ S0 T;以下pb,pc,pd值由程序依据pa,ww,hh计算得出
# I3 y1 h' K5 L* @- R% I(setq pb (polar pa 0 ww))
# \4 c3 i2 E9 @3 z(setq pc (polar pb (/ pi 2) hh))
0 {( C9 s4 ~$ p- ]0 X(setq pd (polar pc pi ww))
3 ~& q8 @) b% d/ @4 U0 v  V9 b(command "pline" pa pb pc pd "c") $ P* {6 a+ P: i, T& ]
;以下mp1,mp2,mp3,mp4值由程序依据pa,ww,hh,pb,pc,pd计算得出
! X! e( t+ E" E( K$ [(setq mp1 (polar pa 0 (/ ww 2)))
# x; V1 V5 q" G% p( `3 G4 F" Z, k(setq mp2 (polar pb (/ pi 2) (/ hh 2))) 9 V+ |7 @. ]6 {
(setq mp3 (polar pd 0 (/ ww 2))) ( S* N! p9 I2 ~! c, y3 u
(setq mp4 (polar pa (/ pi 2) (/ hh 2))) % T* p3 {5 |& c$ c* a8 _: |( a
(command "line" mp1 mp3 "")
9 l" L. E5 i1 _; `$ z: Z' F$ f(command "line" mp2 mp4 "")
/ E) @- c9 N5 Y(prin1) . V! X1 O+ ^5 P' q( n
)
2#
发表于 2008-8-15 10:11:54 | 只看该作者 来自: 中国辽宁营口
程序本身没有问题。
3#
 楼主| 发表于 2008-8-16 08:13:29 | 只看该作者 来自: 中国浙江宁波
谢谢斑竹热心回帖 . }+ I* f! s2 A3 {: K1 s7 n4 x7 \
其他程序都能正常运行,呵呵
4#
发表于 2008-8-16 11:09:14 | 只看该作者 来自: 中国台湾
关闭补捉以免干扰会好些

评分

参与人数 1三维币 +3 收起 理由
woaishuijia + 3 技术讨论

查看全部评分

发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表