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

meflying

(command "layout" "set" "")这句改了一下，按你的，如果不存在layout1布局，将出错。。。 主要是msapce这句出现错误，因为它作用的不一定是你想要的那个viewport，所以我把其它的VIEWPORT都删了 (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" "")
(command "_.erase" "all" "")
(command "RECTANGLE" p0 q2)
(setq e1 (entlast))

(command "mview" "object" e1)
(command "zoom" "a")
(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") )