[求助]请问 vla-GetWindowToPlot 取得点位错误问题?

vken7az2p

请问为何使用 vla-GetWindowToPlot 取得点位,
在某些档案是正常的,在某些却会发生错误呢?

这样的情况该怎样解决处理?
烦请各位高手帮忙解答一下,谢谢!!!

龙龙仔

可能要轉換點(不同ucs)/關捕捉

vken7az2p

附上错误的档案

请大家帮忙检查一下

谢谢

down
http://www.xun6.com/file/9472ea811/cad33.rar.html

龙龙仔

有程序嗎?不清楚你要甚麼?

你SetWindowToPlot了嗎?

vken7az2p

我的程序是下面这样的.
但是奇怪的是,预览的画面是正确的
但是 GetWindowToPlot 取得的座标却是错误的
这是怎样的原因
该怎样解决呢?

(vl-load-com) 
(setq acadobj (vlax-get-acad-object))
(setq doc (vla-get-activedocument acadobj))
(setq ac_plot (vla-get-plot doc))
(setq layout (vla-get-activelayout doc)) ;ActiveLayout
(setq alas (vla-get-layouts doc))
(setq al_mol (vla-item alas "model"))

(vla-GetWindowToPlot layout 'll 'rr)
;列印窗选范围
(setq ptwt (mapcar 'vlax-safearray->list (list ll rr)))

(vla-displayplotpreview ac_plot acfullpreview)

龙龙仔

你Plottype設了嗎?

指定配置或出圖規劃的類型。

信號

object.PlotType

object Layout、PlotConfiguration
這個性質適用的物件。

PlotType acPlotType 列舉；讀/寫

acDisplay: 列印目前顯示的所有內容。
acExtents: 列印所有出現在目前選取之空間內的內容。
acLimits: 列印目前範圍內的所有內容。
acView: 列印 ViewToPlot 性質所指定之名稱的視景。
acWindow: 列印視窗內以 SetWindowToPlot 方法選取的內容。
acLayout: 列印包含在指定圖紙大小邊界內的所有內容，原點是從「配置」標籤中的 0,0 座標位置算起。

從模型空間進行列印時無法使用這個選項。

說明

對這個性質進行的變更要在下一次重生圖面時才看得到。請使用 Regen 方法來重生圖面。
您必須先呼叫 ViewToPlot 性質或 SetWindowToPlot 方法，才能夠將 PlotType 分別設為 acView 或 acWindow。

龙龙仔

正如3樓推測

(defun C:TT (/ ACADOBJ AC_PLOT DOC LAYOUT LL PTWT RR X)
  (vl-load-com)
  (setq ACADOBJ (vlax-get-acad-object))
  (setq DOC (vla-get-activedocument ACADOBJ))
  (setq AC_PLOT (vla-get-plot DOC))
  (setq LAYOUT (vla-get-activelayout DOC)) ;ActiveLayout
  (vla-getwindowtoplot LAYOUT 'LL 'RR) ;列印窗選範圍
  (setq
    PTWT (mapcar
    '(lambda (X)
       (reverse
  (cdr (reverse (trans (vlax-safearray->list X) 2 0)))
       )
     )
    (list LL RR)
  )
  )
  (vla-displayplotpreview AC_PLOT acfullpreview)
  PTWT
)