[分享]：几个实用的LISP程序，很方便的

meili2000

送得了,斑竹帮你加几个币 比在这里挨批好点吧,主要是用途不大啊.没有什么特色

qigmyaigh

我想如果CAD里面的缩放功能可以和PKPM里面的缩放一样就好了，只需点按一个按键，界面就会有比例的放大和移动，太方便了。每次结束了PKPM的工作后，再回来学习和操作CAD时，总会把这个功能弄混，才反应过来这是CAD并不是PKPM,我想这个功能用lisp一定可以解决的，只是目前我还没有发现有哪位朋友提到过这样的意见，也许这个是在学会lisp后一个实际要解次的目标问题勒，大家如果感兴趣，也不妨考虑看看。

西爱弟

还能改进一下吗

zh74

不错，由于用贯了CAD自带的，一时不愿意该！！开发下现在制图新标中要求的东东更实际些。谢谢lzy9788分享！（我钱不够，要的更实际！）

success8899

这样的程序太简单了点，不值得!

userzhl

如果：
(DEFUN C:1 () (COMMAND "ZOOM" "0.8X") (PRINC));将窗口放大0.8倍

(DEFUN C:2 () (COMMAND "ZOOM" "0.50X") (PRINC));将窗口放大0.5倍

(DEFUN C:3 () (COMMAND "ZOOM" "2X") (PRINC));将窗口放大2倍

(DEFUN C:ZA () (COMMAND "ZOOM" "A") (PRINC));全部显示--->放大zoom,a

(DEFUN C:ZD () (COMMAND "ZOOM" "D") (PRINC));动态显示--->放大zoom,d

(DEFUN C:ZE () (COMMAND "ZOOM" "E") (PRINC));全屏显示--->放大zoom,e

(DEFUN C:ZZ () (COMMAND "ZOOM" "P") (PRINC));前一窗口--->放大zoom,p
能像天正一样用TAB控制就好了。

1232004

书山有路勤为径， 学海无涯苦作舟。
我爱CAD，我爱建筑设计。

vang8866

晕死,要币, 逛不到两下  碰了四次币,  l

月影水飘飘

(DEFUN C:EE ()(COMMAND "ERASE" "L" "") (PRINC));删除最后一个图元

怎么我的不认啊

shl1980912

说详细一点,我没币下，

bridgewind

确实不错，是初学lisp的好例子。。。

shl1980912

谢谢