Hỏi về các hàm Plot

[Duong Nhat Duy 229]

Mình có đoạn lisp set cửa sổ vùng in, bên layout thì dùng ok mà sang model thì nó nhảy lung tung đi đâu ấy. Nhờ các bạn xem giúp, mình cảm ơn !

(defun C:zz ()
  (setq pt1 (getpoint "\nChon diem goc duoi, ben trai: "))
  (setq pt2 (getcorner "\nChon diem goc tren, ben phai: " pt1))
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq layout (vla-get-activelayout adoc))
  (vla-setWindowToPlot layout
    (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 1)) (list (car pt1) (cadr pt1)))
    (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 1)) (list (car pt2) (cadr pt2)))
    )
  (vla-put-PlotType layout acWindow)
  (vla-Regen adoc acAllViewports)
  (princ)
  )

 

[tien2005 231]

@Duong Nhat Duy Bạn chú ý UCS và biến hệ thống TARGET có phải '(0.0 0.0 0.0)  ....

[naturooo 36]

Lưu ý tỉ lệ khung tên, khổ giấy, đã đặt fit hay chưa :D

[Duong Nhat Duy 229]

5 phút trước, tien2005 đã nói:

@Duong Nhat Duy Bạn chú ý UCS và biến hệ thống TARGET có phải '(0.0 0.0 0.0)  ....

Ừa ha, test trên đúng cái file lỗi mới đau :((

Mà TARGET là biến readonly, làm sao sửa lại cho đúng bạn.

[tien2005 231]

1 giờ} trướ}c, Duong Nhat Duy đã nói:

Ừa ha, test trên đúng cái file lỗi mới đau :((

Mà TARGET là biến readonly, làm sao sửa lại cho đúng bạn.

(setq avp (vla-get-activeviewport adoc))
(vla-put-target avp (vlax-3d-point '(0 0 0)))
(vla-put-activeviewport adoc avp)