设为首页 |收藏本站 |帮助 |加入VIP |积分充值

只需一步，快速开始

登录 | 注册 | 找回密码

三维网首页›三维社区 › CAD讨论区 › AutoCAD › 『AutoCAD二次开发问题解答和经验分享』 › 如何在CAD中预显示lisp程序的图形

通知

全站

2005llnn 说: CAD几何作图竞赛题（2026年4月），至4月22日止。

10天前

查看: 2315|回复: 5

收起左侧

[已答复] 如何在CAD中预显示lisp程序的图形

发表于 2010-9-13 13:01:39 | 显示全部楼层 |阅读模式来自：中国上海

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

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

x

如何在CAD中预显示lisp程序的图形，请高手给个程序

回复

发表于 2010-9-13 17:40:11 | 显示全部楼层来自：中国台湾

Try Doslib

回复支持反对

楼主| 发表于 2010-9-14 12:23:22 | 显示全部楼层来自：中国上海

感谢 sunvei 的解答。我的意思是，比如我写一个画矩形的lisp程序，我执行程序后在屏幕上出现一个矩形框，可以随着我的十字指针移动，在我单击鼠标左键或者确定后这个方框才固定在屏幕上。

回复支持反对

发表于 2010-9-14 14:19:56 | 显示全部楼层来自：中国台湾

...屏幕上出现一个矩形框...
i.e. (setq p1 '(0 0) p2 (getcorner p1))
am I right?

回复支持反对

发表于 2010-9-14 19:25:49 | 显示全部楼层来自：中国江苏无锡

本帖最后由 woaishuijia 于 2010-9-22 09:54 编辑

4# SunVei

(if (setq a (getpoint "点取斜线长度和方向 <回车确定>"))
: L- t5 L& ]' S$ m3 M
(while (= (car (setq gr (grread nil 5 0))) 5)
/ e9 ~- u" m5 i/ Z
(redraw)( `8 n, v9 A; Y) J9 y5 F
(setq b (cadr gr))
) ]( t1 w/ m- R5 d/ U# ^9 O$ ?. H" I
(grdraw b a 1 1)
1 U! D0 w. D- J e" b0 O8 u
(setq ax (car a) ay (cadr a))
; V* d, n; p2 p( ]0 `4 I) Y6 h' [
(setq bx (car b) by (cadr b))
% n5 o' G6 \6 n' ]" L- a
(setq pnx (- bx ax) pny (- by ay))4 ^$ B& D. f; _9 [' [$ c
;;(if (< (abs pnx) 5) (setq pnx 25 pny 25))% R1 v4 X% X% b" Y k* B
(posmove2 ss (/ pnx 3) (/ pny 3))/ I7 o) y" |; ~. t. o) _
);;while6 r8 s/ P% h R1 k- e
);;if

复制代码

未命名.gif

评分

参与人数 1	三维币 +10	收起理由
woaishuijia	+ 10	应助

查看全部评分

回复支持反对

楼主| 发表于 2010-9-19 12:12:15 | 显示全部楼层来自：中国上海

意思差不多，我是初学还不能理解a

回复支持反对

关于我们

帮助中心

联系我们

移动客户端

关注我们

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

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

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