分享一个可以画斜线15°外廓线的代码

lzspain

运行时报错
当前图层:  0
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)/外部参照(X)]: _M
输入新图层的名称 (成为当前图层) <0>: 4虚线层 输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)/外部参照(X)]: _C
新颜色 [真彩色(T)/配色系统(CO)] : 6
输入图层名列表，这些图层使用颜色 6 (洋红) <4虚线层>: 输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)/外部参照(X)]: L
输入已加载的线型名或 [?] <Continuous>: DASHED
输入使用线型“DASHED”的图层名列表 <4虚线层>: 输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)/外部参照(X)]:
命令: ; 错误: 参数太多

yoyoho

lzspain 发表于 2024-9-25 08:57
运行时报错
当前图层:  0
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型( ...

命令: ; 错误: 参数太多

Qwer1243

lzspain 发表于 2024-9-25 08:57
运行时报错
当前图层:  0
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型( ...

把下图这几个新建图层的命令删掉试试

lzspain

Qwer1243 发表于 2024-9-25 09:37
把下图这几个新建图层的命令删掉试试

一样的错误，只是少了中间那一长串

Qwer1243

lzspain 发表于 2024-9-25 09:39
一样的错误，只是少了中间那一长串

我又重新上传了一下代码，再试试

lzspain

Qwer1243 发表于 2024-9-25 09:46
我又重新上传了一下代码，再试试

命令: E7

选择直线:
请指定方向:
为斜线; 错误: 参数类型错误: numberp: nil

Qwer1243

lzspain 发表于 2024-9-25 09:54
命令: E7

选择直线:

你用vlisp编辑器调试一下看看具体错误在哪里

yoyoho

连接板放样.lsp autocad2023测试 o.k.
谢谢! Qwer1243 分享程序!

Qwer1243

yoyoho 发表于 2024-9-25 10:09
连接板放样.lsp autocad2023测试 o.k.
谢谢! Qwer1243 分享程序!

lzspain

Qwer1243 发表于 2024-9-25 10:03
你用vlisp编辑器调试一下看看具体错误在哪里

找到问题了，所选对象是直线才行，我是画的多段线