[编程申请]：谁可以帮我写几个LISP语言？

zhb2516

以前论坛发过用LISP写的关于天正建筑自定义的快捷命令，但没有
含盖一些命令，我还想知道以下几个，大家可以帮我写写其LISP语言吗？
    弧线轴网
    角注弧轴
    墙线圆角
    向内加粗
    墙线加粗
    取消加粗
    柱子参数
    转角插窗
    无墙插窗
    标注精度
    直接引注
请大家帮助，不胜感谢。

XDSoft

最初由 zhb2516 发布
[B]以前论坛发过用LISP写的关于天正建筑自定义的快捷命令，但没有
含盖一些命令，我还想知道以下几个，大家可以帮我写写其LISP语言吗？
    弧线轴网
    角注弧轴
    墙线圆角
    向内加粗
    墙线加粗
    ... [/B]

我想，你应该问，我怎么自己加这些快捷方式比较好，知道一个，举一反三才好。你到“天正”论坛，问问斑竹zdarc吧。大家看他原来的方法，自己也应该摸索出来些。

aeo

打开tch.mnu
找出对应的命令,
假定
Id_Caxis       [_Button("弧线轴网", "Tch_16_Caxis", "Tch_24_Caxis")]^P^C^C(_@Ld"Caxis");^Pcaxis;
(defun c: hx()(_@ld"caxis")(c: caxis) )
hx就是简写命令
也可以在acad.pgp里加 hx,  *caxis

c: 后没空格

zdarc

aeo说得很对，就是这样举一反三的。
例如墙线加粗(defun c:jc ()(_@ld"thickl")(c:sltoplc1))
其中jc就是简化名称，用户可以自定义，其他打开tch.mnu的屏幕菜单部分照猫画虎就可以了。
例如
[-墙　线-]
[————]
[改变层高]^P^C^C(_@ld"sdtool");^Pchele;
[　　　　]
[画双线墙]^P^C^C(_@ld"dwall");^Psdwall;
[画可见墙]^P^C^C(_@ld"swall");^Psewall;
[墙线移动]^P^C^C(_@ld"wltool3");^Pswlmove;
[墙线复制]^P^C^C(_@ld"wltool");^Pwlcopy3;
[　　　　]
[墙线加粗]^P^C^C(_@ld"thickl");^Psltoplc1;
[向内加粗]^P^C^C(_@ld"thickl");^Psltopli1;

zhb2516

谢谢各位，我懂了，我刚已经按你们教的都写出来了，再次对各位表示感谢！

丹丘生

这是5。0的吗3。0的呢