QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 1916|回复: 3
收起左侧

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

[复制链接]
发表于 2008-8-15 09:35:33 | 显示全部楼层 |阅读模式 来自: 中国浙江宁波

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

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

x
刚学AUTOLISP,书上的第一个例子,执行后只能画矩形,(command "line" mp1 mp3 "")和(command "line" mp2 mp4 "")两句指令根本没作用,中心线没有连接在一起
0 [+ b+ t, W3 E1 `4 L* O, b' e/ B请教高手。我用的是2004版本。非常感谢
$ Y! q/ t3 B; {* P  U0 G, H(
2 Y8 ?6 x# n$ \+ j, y- F! ]% Udefun c:pbox (/ pa pb pc pd ww hh mp1 mp2 mp3 mp4) / j0 ]' C7 J) W6 I" g- v& A
(setvar "cmdecho" 0) 8 ^4 s+ h5 `' E2 G1 o
(setvar "blipmode" 0)- e: Y$ I) B4 d0 K5 t8 B/ j
;以下pa,ww,hh值需用户输入
# L5 Z/ v3 S% R) G0 ~9 _$ ~, k7 _(setq pa (getpoint "Enter Left/Bottom Point:"))
3 Q7 i- R9 o1 w* k6 h0 Z* h+ W(setq ww (getreal "\nWidth"))
0 c7 d" C$ c8 S/ W; \6 @! s(setq hh (getreal "\nHeight")) 3 U$ D7 D0 R! z5 \2 f6 ^; V2 b
;以下pb,pc,pd值由程序依据pa,ww,hh计算得出
2 n1 j( ]  h; p, ~) ~(setq pb (polar pa 0 ww)) + l. Q4 Z9 _7 U; I( ^) o
(setq pc (polar pb (/ pi 2) hh)) 9 k6 j% X+ d* F7 p7 ^
(setq pd (polar pc pi ww))
2 o3 W' R% N+ r5 B- `  i(command "pline" pa pb pc pd "c") ; f6 d. O. R# [7 E
;以下mp1,mp2,mp3,mp4值由程序依据pa,ww,hh,pb,pc,pd计算得出
( \' J# T4 T; F8 P7 q3 X(setq mp1 (polar pa 0 (/ ww 2))) ' N  ]2 \7 u$ `& @, M; J
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
/ {8 {6 C* y8 h" {; e9 ?(setq mp3 (polar pd 0 (/ ww 2))) ' Z: d$ b4 }/ l6 T! [& R3 `/ n
(setq mp4 (polar pa (/ pi 2) (/ hh 2))) : e( W6 t. G+ w5 l' P$ r) {
(command "line" mp1 mp3 "")
# S4 J) H& x' l2 C9 t(command "line" mp2 mp4 "")
" V4 `( F" o2 J: l(prin1) # n1 V6 C( ?, ~# N& x  s
)
发表于 2008-8-15 10:11:54 | 显示全部楼层 来自: 中国辽宁营口
程序本身没有问题。
 楼主| 发表于 2008-8-16 08:13:29 | 显示全部楼层 来自: 中国浙江宁波
谢谢斑竹热心回帖
. n0 y, z. ^0 ?, V7 G其他程序都能正常运行,呵呵
发表于 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 )

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