明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3332|回复: 10

关于模型空间和图纸空间的转换

[复制链接]
发表于 2004-7-5 17:38:00 | 显示全部楼层 |阅读模式
程序代码如下 (defun c:ft (/ p0 p0xx py0y p0x p0y p1 p1xx p1yy p1x p1y p2 p2xx p2yy
p2x p2y a1 a2 lx ly l2) (command "undo" "begin")
(setq CHO (getvar "CMDECHO"))
(setvar "CMDECHO" 0) (command "ucs" "world") ;转到世界坐标系
(setq os (getvar "osmode"))
(setvar "osmode" 37)
(setq p0 (getpoint "\n 请选择插入1点:"))
(setq p1 (getpoint "\n 请选择插入2点:"))
(setq p2 (getpoint "\n 请选择插入3点:"))
(setq a1 (angle p0 p1))
(setq a2 (angle p0 p2))
(setq l2 (distance p0 p2))
(setq lxx (cos (- a2 a1)))
(setq lyy (sin (- a2 a1)))
(setq lx (* lxx l2))
(setq ly (* lyy l2))
(setq p0x (car p0))
(setq p0y (cadr p0))
(setq q2x (+ p0x lx))
(setq q2y (- p0y ly))
(setq q2 (list q2x q2y))
(command "layout" "set" "layout1")
(command "RECTANGLE" p0 q2 "")
(setq e1 (entlast))
(command "mview" "object" e1)
(command "MSPACE" p0)
(setvar "ucsfollow" 1)
(command "ucs" "z" p0 p1)
(setvar "ucsfollow" 0)
(command "ucs" "w")
(command "zoom" p0 p2)
(command "PSPACE")
(setvar "CMDECHO" cho)
(setvar "osmode" os)
(command "undo" "end") ) 请各位高手看看,为什么程序加载后,第一次运行的结果总是不对,而以后运行的结果就是对的,这是什么毛病,怎么改
发表于 2004-7-5 17:51:00 | 显示全部楼层
我每次运行结果都是一样的,不知你出现的是什么错误?


(command "RECTANGLE" p0 q2 "");注意这句,最后的空回车是否正确(不影响你的结果)
 楼主| 发表于 2004-7-5 19:43:00 | 显示全部楼层
我试着去掉了(command "RECTANGLE" p0 q2 "")中的""可是第一次运算的结果还是不对
发表于 2004-7-6 08:21:00 | 显示全部楼层
为什么总是看帖子不看全,看看我2楼帖子第一行的后半句话。。。还有第二行括号内的话。。。。仔细点看
 楼主| 发表于 2004-7-6 11:26:00 | 显示全部楼层
版主你的话我看到了,在我的机器上第一次运行的结果还是不对啊,感觉是(command "zoom" p0 p2)没有运行,但第二次和以后在运行就没有这个效果了,和我想要的是一样的了
发表于 2004-7-6 11:42:00 | 显示全部楼层
看来你还是没有看到我的话。。。“不知你出现的是什么错误?”


不要总是一个“不对”了事,到底是怎么不对?正确结果怎样,错误的结果又是怎样?还是程序执行出错??????
 楼主| 发表于 2004-7-6 12:03:00 | 显示全部楼层



上面哪个是第一次运行的结果,下面是第二次运行的结果,两次选择的点是一样的,但第二次的结果是我想要的,为什么会出现第一次的结果呢

本帖子中包含更多资源

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

x
发表于 2004-7-6 14:04:00 | 显示全部楼层
我这里运行真的没有任何问题(除了原来说的那句多了个空回车)



不妨把你的图给我看看,1、2、3分别又是哪几个点?
 楼主| 发表于 2004-7-6 20:31:00 | 显示全部楼层
我想到一个问题,是转换到图纸空间的时候系统自动产生一个视口,就是他影响的结果不对,如何能在转换的时候删除这个视口,或者是他无效,具体程序这么写呢
 楼主| 发表于 2004-7-7 11:56:00 | 显示全部楼层
,请版主看看,解决一下这个问题

本帖子中包含更多资源

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

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-28 15:50 , Processed in 0.187125 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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