Lisp将Excel和Cad两个程序平铺

admin1

Lisp将Excel和Cad两个程序平铺



(DEFUN CAD-excel-ping-pu (ee        /          aa
              eheight-max    ewidth-max    viewheight-max
              viewwidth-max
             )
                    ;窗口平铺,并排显示
  (setq aa (vlax-get-acad-object))
  (vla-put-WindowState aa acMax)
  (setq    viewWidth-max
     (+ (vla-get-width aa) (* 2 (vla-get-windowleft aa)))
  )
  (setq    viewHeight-max
     (+ (vla-get-Height aa) (* 2 (vla-get-windowtop aa)))
  )
  (vla-put-WindowState aa acNorm)
  (vla-put-windowleft aa 0)
  (vla-put-windowtop aa 0)
  (vla-put-width aa (/ viewWidth-max 2))
  (vla-put-Height aa viewHeight-max)
  (vl-catch-all-apply
    'vlax-put-property
    (list ee 'WindowState -4137)
  )
  (setq    eWidth-max
     (vl-catch-all-apply
       'vlax-get-property
       (list ee 'width)
     )
  )
  (setq    eHeight-max
     (vl-catch-all-apply
       'vlax-get-property
       (list ee 'Height)
     )
  )
  (vl-catch-all-apply
    'vlax-put-property
    (list ee 'WindowState -4143)
  )
  (vl-catch-all-apply 'vlax-put-property (list ee 'top 0.0))
  (vl-catch-all-apply
    'vlax-put-property
    (list ee
      'left
      (vl-catch-all-apply
        '-
        (list (vl-catch-all-apply '* (list 0.5 eWidth-max)) 3)
      )
    )
  )
  (vl-catch-all-apply
    'vlax-put-property
    (list ee
      'width
      (vl-catch-all-apply
        '-
        (list (vl-catch-all-apply '* (list 0.5 eWidth-max)) 3)
      )
    )
  )
  (vl-catch-all-apply
    'vlax-put-property
    (list ee
      'Height
      (vl-catch-all-apply '- (list eHeight-max 6))
    )
  )
)