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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 2319|回复: 5
收起左侧

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

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

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

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

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

举报

SunVei
发表于 2010-9-13 17:40:11 | 显示全部楼层 来自： 中国台湾
Try Doslib
LSJ309.JPG
回复 支持 反对

举报

LSJ309
 楼主| 发表于 2010-9-14 12:23:22 | 显示全部楼层 来自： 中国上海
感谢 sunvei 的解答。我的意思是，比如我写一个画矩形的lisp程序，我执行程序后在屏幕上出现一个矩形框，可以随着我的十字指针移动，在我单击鼠标左键或者确定后这个方框才固定在屏幕上。
回复 支持 反对

举报

SunVei
发表于 2010-9-14 14:19:56 | 显示全部楼层 来自： 中国台湾
...屏幕上出现一个矩形框...1 T7 h% M; w0 p4 H  h2 Z! j
i.e. (setq p1 '(0 0) p2 (getcorner p1))
6 v) @, ]/ v9 Qam I right?
回复 支持 反对

举报

www1974
发表于 2010-9-14 19:25:49 | 显示全部楼层 来自： 中国江苏无锡
本帖最后由 woaishuijia 于 2010-9-22 09:54 编辑 ) p. T' E# o. O
9 D/ c' T) H: L: B4 Q/ P  P
4# SunVei : ]! V& Q" y) w0 G9 u

* l) k; u$ x2 n: O9 a6 r
  1.         (if (setq a (getpoint "点取斜线长度和方向 <回车确定>"))2 R! ~' E1 U8 |7 Q1 H0 L- n3 C
  2.              (while (= (car (setq gr (grread nil 5 0))) 5)1 ?/ _+ r, M+ |7 Z% w  N( Y; ^
  3.                   (redraw)
    ( i# h1 T- X+ f6 R( n, X% f( C6 N. D. L
  4.                   (setq b (cadr gr)). K1 S/ Z4 y+ f) O5 I& u& B* _
  5.                   (grdraw b a 1 1)
    5 R0 |4 \3 I2 _# L+ A
  6.                   (setq ax (car a) ay (cadr a))
    7 ?7 V& V. `( p
  7.                   (setq bx (car b) by (cadr b))2 h) f! \2 [7 C! ^7 ~
  8.                   (setq pnx (- bx ax) pny (- by ay)); g% ^+ C% D( m- p. d
  9.                   ;;(if (< (abs pnx) 5) (setq pnx 25 pny 25))
    4 \: ^' e; }0 j- c- h
  10.                   (posmove2 ss (/ pnx 3) (/ pny 3))# `" N! Q4 ~: T* I4 Z" {! {) r% E
  11.               );;while
    7 m# S2 H- i5 D% @: r5 f
  12.           );;if
复制代码
未命名.gif

评分

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

查看全部评分

回复 支持 反对

举报

LSJ309
 楼主| 发表于 2010-9-19 12:12:15 | 显示全部楼层 来自： 中国上海
意思差不多，我是初学还不能理解a
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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