[LISP程序]：我多年使用并维护的cad菜单

tomz

我多年使用并维护的cad菜单，里面有几十个自制的lsp程序。

有很多结构专用的命令，但大部分命令都是对acad的补充，是通用的。

可以看其中的readme.txt来了解更多。

安装：
只要将文件解压到c盘根下，然后加载zlj.mnu菜单就可以了。

其中有个别命令不能用，是因为这是一个简化安装版，有些变量未设置。

wcf

说一下有哪些实用的功能，或特殊的功能？

tomz

[线镜像]^c^c(if (not C:MR) (load "MR")) MR
    [变无名块]^c^C(if (not c:-c-wmk) (load "xg-bwmk"));-c-wmk
    [变长偏移]^c^c(if (not c:-x-off) (load "-x-off"));-x-off
    [实体前置]^c^c^c(if (not c:xg-stqz) (load "xg-stqz"));xg-stqz
    [记忆镜像]^c^c^c(if (not c:xg-jyjx) (load "xg-jyjx"));xg-jyjx
    [平移镜像]^c^c^c(if (not c:xg-pyjx) (load "xg-pyjx"));xg-pyjx
    [*单点切断]*^c^cbreak int \@;
    [连多义线]^c^c^c(if (not c:xg-ldyx) (load "xg-ldyx"));xg-ldyx
    [层间复制]^c^c$s=x $s=sc_cengming (if (not c:x-cjfz) (load "x-cjfz"));x-cjfz
    [重复缩放]^c^c^c(if (not c:xg-cfsf) (load "xg-cfsf"));xg-cfsf
    [强倒角（旧）]^c^c^c(if (not c:jx) (load "jx"));jx
    [强倒角（新）]^c^c^c(if (not c:xg-qdj) (load "xg-qdj"));xg-qdj
    [尺寸镜像]^c^c^c(if (not c:xg-ccjx) (load "xg-ccjx"));xg-ccjx
    [<-层偏拷]^c^c(if (not C:gcpk)(load "gcpk")) gcpk[->编号]
    [简易编号]^c(if (NOT (TYPE C:BH0)) (LOAD "BH"));BH0
    [位置编号]^c(if (NOT (TYPE C:BH)) (LOAD "BH"));BH
    [任意编号]^c(IF (NOT (TYPE C:BH1)) (LOAD "BH"));BH1
    [下标编号]^c(if (NOT (TYPE C:BHA)) (LOAD "BH"));BHA
    [轴线编号]^c^c(if (not c:dwz)(load "bh")) dwz
    [单线编号]^c^c^c(if (not c:b-bhdx) (load "bh"));b-bhdx
    [<-引线编号]^c(IF (NOT (TYPE C:b-BHyx)) (LOAD "bh"));b-bhyx
[->数字计算]
    [数+数 不读写  ]^C(load "wz-szjs") jia
    [数-数 不读写  ]^C(load "wz-szjs") jian
    [数*数 不读写  ]^C(load "wz-szjs") chen
    [数/数 不读写  ]^C(load "wz-szjs") chu
    [数+数 读写]^C(load "wz-szjs") jia1
    [数-数 读写]^C(load "wz-szjs") jian1
    [数*数 读写]^C(load "wz-szjs") chen1
    [数/数 读写]^C(load "wz-szjs") chu1
    [数+数 读替换]^C(load "wz-szjs") jia2
    [数-数 读替换]^C(load "wz-szjs") jian2
    [数*数 读替换]^C(load "wz-szjs") chen2
    [数/数 读替换]^C(load "wz-szjs") chu2
    [<-平均数  ]^C(load "wz-szjs") pjs1

上面列举的是一些一般功能。
实际上，本菜单是一个全面的绘图环境。有自己的尺寸命令、土层、比例等。这样，就避免了acad中复杂的尺寸和比例设置。避免了acad的复杂性，使acad更容易入门。当然，如果只学会了用它，就失去了学习acad的机会。但，本菜单中另外还有一些用来弥补acad功能的命令，或一些方便实用的命令。

kkk3kkk

上不了您的网站

tomz

jsb是菜单中的”记事本“，是一个试验，当时网络等含链接的超媒体，我刚刚接触，就想利用lisp语言的智能的特性，做一个有超链接功能，还有关键字搜索功能的知识库系统，不但能浏览还能随时编辑。这就是我得记事本。这个程序花费了我一个星期的时间，上千行程序代码。

不知道这个简化安装的菜单能不能运行”记事本“程序。这个命令在”定制“的”其它“中。

现在如果编写智能程序，有更好用的rebol语言。

我试过我得网站了，只要注册并登陆。没问题。我还有另一个网址，但不是wiki互动的，tomz.freezope.org 我得网站里没有lisp和acad的内容，只有microstation的内容。

或  tomz.533.net

tonylee

高手，佩服！

hcllen

我也访问不了啊~~~~

ynjzlzd

楼主,下载不了啊,能否直接传给我,
    ynjzlzd@163.com

eelingo

不能下载

yellowmario

我也下不了，请楼主重新发过一下，谢谢

tomz

http://www.quadripartition.com/tomz/file/zlj.zip
原来的swiki网站倒闭了。现在放到我的网站上了。流量有限制，尽量少下。

jance526

谢谢分享

冰封时刻

谢谢分享，先下了再说

yang__fan22

打不开网站

weicu13579

下载不了  请检查