[编程申请]：让天正3.0实现自由缩放！

pig54321

如何能让天正3.0具有象天正3.52那样的自由缩放功能？即按TAB键就会以鼠标所在点为中心缩小，连按连缩，按TAB上面的键即1左边的间就可以同理放大！还有，用天正3.0画图时每点一下鼠标都会留下一个小点，一移动或者缩放以后就没了，真难受！请问有办法解决么？

xjiansh

用REDRAW可消除。敲DDRMODES，选blips,就没有了;但是一调用天正的命令就还要在选一次了.

心梦相随

前者我可没有办法，但后者用BLIPMODE系统变量进行设置就可以了，。可以打造模板。

xjiansh

试试理正建筑吧，你会有一些惊喜的发现。

qt5918

有一个asde*.arx的移屏工具，可以加载！滚轮缩大，移屏！（类似cad２０００）
你可以找一找！

SDSA

[QUOTE]最初由 pig54321 发布
[B]如何能让天正3.0具有象天正3.52那样的自由缩放功能？即按TAB键就会以鼠标所在点为中心缩小，连按连缩，按TAB上面的键即1左边的间就可以同理放大！

(defun c:d() (command "'zoom" "c" pause "2x"))
(defun c:x() (command "'zoom" "c" pause "0.5x"))
(defun c:ze() (command "'zoom" "e"))
(defun c:za() (command "'zoom" "a"))

说明：
第一行：放大，在键盘上敲d,鼠标左键点击需放大的中心，屏幕放大两倍。点击鼠标右键(即重复上述命令)
        再用鼠标左键点击需放大的中心，屏幕再放大两倍。连续点击鼠标左右键，可实现连续放大。
第二行：缩小，在键盘上敲x，同理，连续点击鼠标左右键，可实现连续缩小。

将这两行代码编成lsp程序，加载后可实现连续缩小和放大。为了方便，最好将这两行代码添加到acad.lsp中，
只要启动天正程序，就自动加载了。(不过天正的acad.lsp是编译过的，须反编译回来。才能添加进去)

**第三行第四行是充满屏幕和放大到全屏幕。简化成一次击键盘。与你的问题无关，如果感觉有用也可以一
  并加入。