[求助]关于Layout中的视图问题

e2002 · 发表于 2003-9-19 16:50:00

一个Layout中的PViewport对象是根据什么属性确定显示Model中的范围的?
简单点的 :矩形Viewport,他是如何对应到Model中的左下点和右上点的?
如何理解这种"抽象视图"与"实际视图"的关系?

龙龙仔 · 发表于 2003-9-19 17:12:00

;; How can I get the coordinate relationship
;; between paper space and model space in a
;; specific viewport (while tilemode = 0)?
;; 这是一个非常有用的例子,看出它们的关系了吗??
;; 我以前也为找出它们的关系花了不少时间
(defun C:TEST (/ A W WDXF EA EN XP W10 W40 W41 W69 VCTRX VCTRY LPT RPT)
  (setvar "tilemode" 0)
  (command "_.PSPACE")
  (while (not A)
(setq A (ssget ":s" '((0 . "VIEWPORT"))))
  )
  (setq W (ssname A 0))
  (setq WDXF (entget W))
  (setq       EA (assoc -3 (entget W '("ACAD")))
      EN (reverse (cdr (reverse (cdr (cddadr EA)))))
  )
  (setq XP (/ (cdr (assoc 41 WDXF)) (cdr (nth 4 EN))))
  (setq W10 (cdr (assoc 10 WDXF)))
  (setq W40 (/ (cdr (assoc 40 WDXF)) XP))
  (setq W41 (/ (cdr (assoc 41 WDXF)) XP))
  (setq W69 (cdr (assoc 69 WDXF)))
  (command "_.MSPACE")
  (command "_.cvport" W69)
  (command "_.ucs" "v")
  (setq VCTRX (car (getvar "viewctr")))
  (setq VCTRY (cadr (getvar "viewctr")))
  (setq LPT (list (- VCTRX (/ W40 2.0)) (- VCTRY (/ W41 2.0))))
  (setq RPT (list (+ VCTRX (/ W40 2.0)) (+ VCTRY (/ W41 2.0))))
  (command "_.rectang" LPT RPT)
  (princ)
)

e2002 · 发表于 2003-9-19 17:41:00

非常感谢!回家继续琢磨...8-)

e2002 · 发表于 2003-9-21 16:00:00

又翻了一遍"Materting AutoCAD Objects"这本书的相关内容,知道了Viewport对象的ViewCenter坐标点的DXF组码是12 (in DCS)
为了兼容以前版本的DXF ,依然继续提供xdata方式的访问方式,其实就是重复记录了一遍到xdata中.

[求助]关于Layout中的视图问题

发表回复

精选推荐