QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
全站
goto3d 说: 在线网校新上线表哥同事(Mastercam2022)+虞为民版大(inventor2022)的最新课程,来围观吧!
2021-06-26
查看: 2191|回复: 5
收起左侧

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

[复制链接]
发表于 2010-9-13 13:01:39 | 显示全部楼层 |阅读模式

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

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

x
如何在CAD中预显示lisp程序的图形,请高手给个程序
发表于 2010-9-13 17:40:11 | 显示全部楼层
Try Doslib
LSJ309.JPG
 楼主| 发表于 2010-9-14 12:23:22 | 显示全部楼层
感谢 sunvei 的解答。我的意思是,比如我写一个画矩形的lisp程序,我执行程序后在屏幕上出现一个矩形框,可以随着我的十字指针移动,在我单击鼠标左键或者确定后这个方框才固定在屏幕上。
发表于 2010-9-14 14:19:56 | 显示全部楼层
...屏幕上出现一个矩形框...( G; f$ e/ j5 o
i.e. (setq p1 '(0 0) p2 (getcorner p1)), n9 C9 V1 Q# V' C7 O2 \% I
am I right?
发表于 2010-9-14 19:25:49 | 显示全部楼层
本帖最后由 woaishuijia 于 2010-9-22 09:54 编辑
& o! _5 L% G# S- g* U: u. u8 i) h! {* S; @
4# SunVei
/ ^0 V* L- C0 I* Q( C8 b8 a3 m: a! |) @3 w  ^& }: Q4 p
  1.         (if (setq a (getpoint "点取斜线长度和方向 <回车确定>"))8 t0 m0 k" l8 {( t& Q/ D) {
  2.              (while (= (car (setq gr (grread nil 5 0))) 5)
    8 @  N- N. t( e7 u
  3.                   (redraw)
    " s9 F  R9 L* v& P" R9 o) A* @
  4.                   (setq b (cadr gr))
    6 H  e: e* T# ^9 o8 h4 v- h
  5.                   (grdraw b a 1 1)9 ?2 c. p4 u; r) P" w9 l! D  p* g
  6.                   (setq ax (car a) ay (cadr a))
    / W$ F- u/ X" W" V) Y5 N+ N
  7.                   (setq bx (car b) by (cadr b))
    # h- h& D, }9 T( S% I5 b0 o* S
  8.                   (setq pnx (- bx ax) pny (- by ay))
    / i! ~, k1 A& [
  9.                   ;;(if (< (abs pnx) 5) (setq pnx 25 pny 25))! ~! ~. ]1 _4 n& ~
  10.                   (posmove2 ss (/ pnx 3) (/ pny 3))
    / b9 o9 H% x. n
  11.               );;while
    9 |( d! E. l+ Y4 M
  12.           );;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 )

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