marting 发表于 2017-5-27 00:18:58

设置绘图窗口的长宽

本帖最后由 marting 于 2017-5-27 13:26 编辑





(defun SetScreenSize (Width height / acad doc oldsize doc w1 h1 dw dh)
(setq acad    (vlax-get-acad-object)
      doc   (vla-get-ActiveDocument acad)
      oldsize (getvar "SCREENSIZE")
)
(setq W1 (vla-get-width doc)
      H1 (vla-get-Height doc)
      dw (- w1 (car oldsize))
      dh (- h1 (cadr oldsize))
)
(vla-put-width doc (+ dw width))
(vla-put-height doc (+ dh height))
(vla-Update acad)
(vla-sendcommand doc "zoom e ")
)


**** Hidden Message *****

longer1000 发表于 2017-5-27 00:33:37

学习学习学习学习

sh_h 发表于 2017-5-27 13:07:18

等有时间了，把大师的作品好好整理一番！！！

xinxirong 发表于 2017-5-27 14:07:45

本帖最后由 xinxirong 于 2017-6-19 18:37 编辑

设置长宽有点用，不过最好能设置窗口的位置。arx显得方便很多。

ynhh 发表于 2017-5-29 20:01:44

谢谢你的这些分享
谢谢

pezyl 发表于 2017-5-30 18:02:11

学习了，向大师学习

yaokui25 发表于 2017-5-30 22:04:03

谢谢大师每天都提供这么好的代码

kqqt6236 发表于 2017-5-31 00:05:33

谢谢分享。

/db_自贡黄明儒_ 发表于 2017-6-15 20:37:14

向楼主学习                  

yoyoho 发表于 2017-6-16 07:48:28

谢谢你分享程序

laiz3000 发表于 2017-6-17 01:10:34

向楼主学习{:1_1:}

adc 发表于 2017-11-16 12:02:20

谢谢分享~~~~~~~~~

zixuan203344 发表于 2017-12-4 10:29:46

666666666666666666666666666666666666666666

liulisheng 发表于 2018-1-22 09:47:47

这个支持一下

1049955085ssd 发表于 2018-8-30 09:51:48

怎么用的呢
页: [1] 2
查看完整版本: 设置绘图窗口的长宽