QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
刚学AUTOLISP,书上的第一个例子,执行后只能画矩形,(command "line" mp1 mp3 "")和(command "line" mp2 mp4 "")两句指令根本没作用,中心线没有连接在一起  s8 b. N+ `! O& V% T, A2 f/ ]& Q1 u) F
请教高手。我用的是2004版本。非常感谢
/ Y! c# \# q7 q. q( B; o* I. Q  K(
1 A! ^! b# P2 K. ldefun c:pbox (/ pa pb pc pd ww hh mp1 mp2 mp3 mp4) 1 j( ^- _3 D7 f" E+ |  l
(setvar "cmdecho" 0) + y4 U# }# `7 T! Q  s
(setvar "blipmode" 0)& p: T6 E5 W$ M8 F; l1 ?
;以下pa,ww,hh值需用户输入 8 o) ^  T: M+ h% S
(setq pa (getpoint "Enter Left/Bottom Point:"))
# E: [5 Y# R& L% v' o& Z' Q- P(setq ww (getreal "\nWidth")) * b9 B: S. ~/ c3 Q3 j- ^
(setq hh (getreal "\nHeight"))
% c) o- X& s; E;以下pb,pc,pd值由程序依据pa,ww,hh计算得出
  d9 l5 X# X9 t(setq pb (polar pa 0 ww)) % R# g* ]  ?" v: M6 M9 _( o1 k
(setq pc (polar pb (/ pi 2) hh)) / b$ I- `$ r! S4 H$ x5 H
(setq pd (polar pc pi ww))
9 V% x  Y  Y6 f8 e(command "pline" pa pb pc pd "c") 3 q; C5 U( Z+ M! w1 J7 s; O; x
;以下mp1,mp2,mp3,mp4值由程序依据pa,ww,hh,pb,pc,pd计算得出
2 C1 }& b! ?7 M5 y% t: H8 G. Q(setq mp1 (polar pa 0 (/ ww 2)))
  Y( d" j; ^9 t) m# f$ ]. w(setq mp2 (polar pb (/ pi 2) (/ hh 2))) 5 q) i* F0 ^! V( H4 {1 P( |
(setq mp3 (polar pd 0 (/ ww 2))) * P& `! E; o' J1 U
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
1 f1 H- `! Q8 D7 D$ N/ W! `(command "line" mp1 mp3 "")
* A4 Y- [6 f6 P/ s" P8 r(command "line" mp2 mp4 "") 4 o' p/ ^' x1 y, T" T7 V0 ~
(prin1)
9 _% _  P# S% _" }9 R/ Y9 d)
发表于 2008-8-15 10:11:54 | 显示全部楼层 来自: 中国辽宁营口
程序本身没有问题。
 楼主| 发表于 2008-8-16 08:13:29 | 显示全部楼层 来自: 中国浙江宁波
谢谢斑竹热心回帖
. ]& q1 {# a' P3 O, |# \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 )

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