社区 › AutoLISP/Visual LISP 编程技术 › 【源码】楼梯绘制v3.21版，优化输入方法，功能增加，操作减少

kele99kele 发表于 2015-7-21 21:36:24

tianyi1230 发表于 2015-7-21 19:56 static/image/common/back.gif
支持下，你的图纸目录那个升级了没有，也共享出来呗！

1.3源码还没有更新，明天更新，程序在公司

kele99kele 发表于 2015-7-21 21:37:02

clinber 发表于 2015-7-21 20:23 static/image/common/back.gif
1.3没有源码了么

有的，明天更新

ylxn 发表于 2015-7-22 07:46:01

哦原来是直梯的，学习学习

clinber 发表于 2015-7-22 12:23:35

kele99kele 发表于 2015-7-21 21:37 static/image/common/back.gif
有的，明天更新

好人楼主大赞啊

clinber 发表于 2015-7-22 12:28:41

命令: NICE_HUALOUTI 点取起始点：layer
当前图层:0
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]: m
输入新图层的名称 (成为当前图层) <0>: 9_star 输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]: c
新颜色 [真彩色(T)/配色系统(CO)] : 61
输入图层名列表，这些图层使用颜色 61 <9_star>: 9_star 输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]:
命令: pline
指定起点:
当前线宽为 20.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: w
指定起点宽度 <20.0000>: 20
指定端点宽度 <20.0000>: 20
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: c
命令: layer
当前图层:9_star
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]: s
输入要置为当前的图层名或 <选择对象>: 0 输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]:
命令:
"\n"


楼主   这样搞搞吧
;;;;;;;;画楼梯
(defun n_hualouti ()
      (setvar "cmdecho" 0)
        (setq p1 (getpoint "点取起始点："))

(defun n_mirror ()
      (setvar "cmdecho" 0)
        (command "mirror" (ssget "p") "" p_start p_start1 "y")
)

kele99kele 发表于 2015-7-22 13:10:41

本帖最后由 kele99kele 于 2015-7-22 22:25 编辑

clinber 发表于 2015-7-22 12:28 static/image/common/back.gif
命令: NICE_HUALOUTI 点取起始点：layer
当前图层:0
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开 ...
恩，大爱啊，谢谢提醒，已经加入了，下一个版本更新。

版本预告：2.0 加入上、下折板楼梯的功能

hingis46 发表于 2015-7-22 16:39:04

我怎么下不了？

lnzlxy4312 发表于 2015-7-22 22:44:19

强大！赞 继续努力！

qiushizhda 发表于 2015-7-23 09:06:49

很不错啊~····

tianyi1230 发表于 2015-7-23 09:31:51

昨天在群里面问的，有人说是PKPM软件，没用过，不清楚啊！

查看完整版本: 【源码】楼梯绘制v3.21版，优化输入方法，功能增加，操作减少