[编程申请]：如何得到屏幕的中心点.

xhssummer

本人想在程序中把找到的某一实体居中显示,请教各位大侠可有什么好方法?VBA或LSP都行,拜托赐教!

xyp1964

[php]
;;屏幕的中心点pt1
(DEFUN C:TEST (/ pt1 l)
  (setq        pt1 (getvar "VIEWCTR")
        l (/(getvar "VIEWSIZE")10)
        )
  (szx pt1 l 2)
  pt1
)
(defun szx (pt1 leng co)
  (setq        pt2 (polar pt1 0 leng)
        pt3 (polar pt1 pi leng)
        pt4  (polar pt1 (/ pi 2) leng)
        pt5  (polar pt1 (* pi 1.5) leng)
        )
  (grdraw pt2 pt3 co)
  (grdraw pt4 pt5 co)
  )

[/php]

xhssummer

Sub Ch3_ZoomCenter()
    MsgBox "Perform a ZoomCenter using:" & vbCrLf & _
           "Center 3, 3, 0" & vbCrLf & _
           "Magnification: 10", , "ZoomCenter"
           
    Dim Center(0 To 2) As Double
    Dim magnification As Double
   
    Center(0) = 3: Center(1) = 3: Center(2) = 0
    magnification = 10
   
    ThisDrawing.Application.ZoomCenter Center, magnification
End Sub

它山之石

　　如果只是让实体居中显示，并不需要很精确的得到屏幕中心坐标。只要以实体上的某个点为中心，设定某个数值得到左下点和右上点，再利用ZOOM－＞W就可以了。那个值可以根据你的显示需要来设置。