求解决用vla-SetWindowToPlot打印时坐标偏移的问题

lostbalance

这几天有空，想着把在用的批量打印程序修改下，之前用的是command plot，打算改成vl函数。
差不多改完的时候，在用旧图测试的时候，发现一个问题，有部分旧图的打印定位点发生了偏移。
检查了好几遍都没发现代码有什么问题，然后用CAD帮助文件里的示例程序测试了下，发现存在同样的情况。
示例程序代码如下。运行后，提示框里的坐标都是对的，但之后的预览就出现问题。检查发现，pointTemp1、pointTemp2这两个参数的坐标值，与vla-SetWindowToPlot及vla-GetWindowToPlot之后提取的point1、point2也都一致。但不知道为啥，最后预览或者打印出来就会出问题。

附件中的dwg分别是用有问题和正常的旧图，删除所有内容后，放了同一个图框，并清理了一遍。
两个dwg，基本上是一样的了，但不知道为啥，有问题的那个预览就是会偏移，另一个就是正常的。
求教，是不是还是什么参数要进行控制？

2. (defun c:Example_SetWindowToPlot( / acadObj doc point1 pointTemp1 point2 pointTemp2)
   
3.     ;; This example allows the user to define an area in the current layout to plot
   
4.     ;; and displays a plot preview of the defined area.
   
5.     ;;
   
6.     ;; * Note: You will have to exit the plot preview
   
7.     ;;  before the VBA example will stop and control will be returned
   
8.     (setq acadObj (vlax-get-acad-object))
   
9.     (setq doc (vla-get-ActiveDocument acadObj))
   
10. 
    
11.     ;; Get first point in window
    
12.     (setq point1 (vlax-variant-value (vla-GetPoint (vla-get-Utility doc) nil "Click the lower-left of the window to plot.")))
    
13. 
    
14.     ;; Change this to a 2D array by removing the Z position
    
15.     (setq pointTemp1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
    
16.     (vlax-safearray-put-element pointTemp1 0 (vlax-safearray-get-element point1 0))
    
17.     (vlax-safearray-put-element pointTemp1 1 (vlax-safearray-get-element point1 1))
    
18.    
    
19.     ;; Get second point in window
    
20.     (setq point2 (vlax-variant-value (vla-GetCorner (vla-get-Utility doc) point1 "Click the upper-right of the window to plot.")))
    
21. 
    
22.     ;; Change this to a 2D array by removing the Z position
    
23.     (setq pointTemp2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
    
24.     (vlax-safearray-put-element pointTemp2 0 (vlax-safearray-get-element point2 0))
    
25.     (vlax-safearray-put-element pointTemp2 1 (vlax-safearray-get-element point2 1))
    
26.    
    
27.     ;; Send information about window to current layout
    
28.     (vla-SetWindowToPlot (vla-get-ActiveLayout doc) pointTemp1 pointTemp2)
    
29.    
    
30.     ;; Read back window information
    
31.     (vla-GetWindowToPlot (vla-get-ActiveLayout doc) 'point1 'point2)
    
32. 
    
33.     (setq point1 (vlax-safearray->list point1)
    
34.           point2 (vlax-safearray->list point2))
    
35.   
    
36.     (alert (strcat "Press any key to plot the following window:"
    
37.                    "\nLower Left: " (rtos (nth 0 point1) 2) ", " (rtos (nth 1 point1) 2)
    
38.                    "\nUpper Right: " (rtos (nth 0 point2) 2) ", " (rtos (nth 1 point2) 2)))
    
39.    
    
40.     ;; Make sure the instruction is to plot a view, not some other plot style
    
41.     (vla-put-PlotType (vla-get-ActiveLayout doc) acWindow)
    
42. 
    
43.     ;; Send Plot To Window - A plot device must be set before a preview can be created
    
44.     (vla-put-ConfigName (vla-get-ActiveLayout doc) "DWG To PDF.pc3")
    
45.     (vla-DisplayPlotPreview (vla-get-Plot doc) acFullPreview)
    
46. )

(defun c:Example_SetWindowToPlot( / acadObj doc point1 pointTemp1 point2 pointTemp2)<br />     ;; This example allows the user to define an area in the current layout to plot<br />     ;; and displays a plot preview of the defined area.<br />     ;;<br />     ;; * Note: You will have to exit the plot preview<br />     ;;  before the VBA example will stop and control will be returned<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br /> <br />     ;; Get first point in window<br />     (setq point1 (vlax-variant-value (vla-GetPoint (vla-get-Utility doc) nil "Click the lower-left of the window to plot.")))<br /> <br />     ;; Change this to a 2D array by removing the Z position<br />     (setq pointTemp1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />     (vlax-safearray-put-element pointTemp1 0 (vlax-safearray-get-element point1 0))<br />     (vlax-safearray-put-element pointTemp1 1 (vlax-safearray-get-element point1 1))<br />     <br />     ;; Get second point in window<br />     (setq point2 (vlax-variant-value (vla-GetCorner (vla-get-Utility doc) point1 "Click the upper-right of the window to plot.")))<br /> <br />     ;; Change this to a 2D array by removing the Z position<br />     (setq pointTemp2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />     (vlax-safearray-put-element pointTemp2 0 (vlax-safearray-get-element point2 0))<br />     (vlax-safearray-put-element pointTemp2 1 (vlax-safearray-get-element point2 1))<br />     <br />     ;; Send information about window to current layout<br />     (vla-SetWindowToPlot (vla-get-ActiveLayout doc) pointTemp1 pointTemp2)<br />     <br />     ;; Read back window information<br />     (vla-GetWindowToPlot (vla-get-ActiveLayout doc) 'point1 'point2)<br /> <br />     (setq point1 (vlax-safearray->list point1)<br />           point2 (vlax-safearray->list point2))<br />   <br />     (alert (strcat "Press any key to plot the following window:"<br />                    "\nLower Left: " (rtos (nth 0 point1) 2) ", " (rtos (nth 1 point1) 2)<br />                    "\nUpper Right: " (rtos (nth 0 point2) 2) ", " (rtos (nth 1 point2) 2)))<br />     <br />     ;; Make sure the instruction is to plot a view, not some other plot style<br />     (vla-put-PlotType (vla-get-ActiveLayout doc) acWindow)<br /> <br />     ;; Send Plot To Window - A plot device must be set before a preview can be created<br />     (vla-put-ConfigName (vla-get-ActiveLayout doc) "DWG To PDF.pc3")<br />     (vla-DisplayPlotPreview (vla-get-Plot doc) acFullPreview)<br /> )

masterlong

视点偏移  估计 参数名忘了  搜下 “cad 视点”

masterlong

target  ，，，，，，

lostbalance

masterlong 发表于 2017-12-5 23:34
target  ，，，，，，

感谢，确实视点的关系。

edata

转换成dcs即可。可以避免这样因为target非标的情况。

lostbalance

edata 发表于 2017-12-10 09:48
转换成dcs即可。可以避免这样因为target非标的情况。

试了下，用(trans p 0 2)转化的点也可以解决问题，多谢。