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

xiaomihu

程序代码如下 (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") ) 请各位高手看看,为什么程序加载后,第一次运行的结果总是不对,而以后运行的结果就是对的,这是什么毛病,怎么改

meflying

我每次运行结果都是一样的，不知你出现的是什么错误？


(command "RECTANGLE" p0 q2 "");注意这句，最后的空回车是否正确（不影响你的结果）

xiaomihu

我试着去掉了（command "RECTANGLE" p0 q2 ""）中的""可是第一次运算的结果还是不对

meflying

为什么总是看帖子不看全，看看我2楼帖子第一行的后半句话。。。还有第二行括号内的话。。。。仔细点看

xiaomihu

版主你的话我看到了,在我的机器上第一次运行的结果还是不对啊,感觉是(command "zoom" p0 p2)没有运行,但第二次和以后在运行就没有这个效果了,和我想要的是一样的了

meflying

看来你还是没有看到我的话。。。“不知你出现的是什么错误？”


不要总是一个“不对”了事，到底是怎么不对？正确结果怎样，错误的结果又是怎样？还是程序执行出错？？？？？？

xiaomihu

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

meflying

我这里运行真的没有任何问题（除了原来说的那句多了个空回车）



不妨把你的图给我看看，1、2、3分别又是哪几个点？

xiaomihu

我想到一个问题,是转换到图纸空间的时候系统自动产生一个视口,就是他影响的结果不对,如何能在转换的时候删除这个视口,或者是他无效,具体程序这么写呢

xiaomihu

,请版主看看,解决一下这个问题