j_spawn_h 发表于 2022-7-5 22:17:25

寻找lisp来创建一个t

我需要它来选择多段线。
然后获取线型、深度和长度
取相同的长度并相加，然后给出其数量。
例子：
线型-深度-长度-数量
隐藏-10-12-3
中心-12-12-5
隐藏-11-8-1
有这样的东西吗？

David Bethel 发表于 2022-7-5 22:27:24

你所指的深度是多少？挤压厚度-大卫

j_spawn_h 发表于 2022-7-5 22:30:02

对不起，是的

David Bethel 发表于 2022-7-5 22:40:43

也许 吧：
 
（defun c:ltt（/fl al td ln ss i en ed lt tk a l）（而（setq td（tblnext color=#2f4f4f]“LTYPE”（非td）（setq ln（cdr（assoc 2 td（setq ss（ssget“X”（列表（cons 0“*折线”）（cons-4”

j_spawn_h 发表于 2022-7-5 22:46:22

谢谢大卫，但我只是在学习如何做到这一点。我不明白为什么它不起作用。我加载它，它就变成零。你用什么程序写代码？我喜欢彩色括号。我只知道autocad中的Vlide（visual lisp）。

David Bethel 发表于 2022-7-5 22:50:50

你能寄一张样图吗？
 
我在这里发布时使用了颜色交错。我试着让它像Ally（一个非常古老的lisp分析器）
 
我在一个非常旧的ASCII DOS编辑器（Q Edit）中编写代码
 
-大卫

David Bethel 发表于 2022-7-5 22:56:14

更新帖子#4
 
试试这个-大卫
测试14.dwg

BIGAL 发表于 2022-7-5 23:04:45

J_spawn_h加载后是否键入ltt？ltt意味着，如果希望在加载时直接运行lisp，可以将ltt键入为启动lisp的命令，只需将（C:ltt）添加为代码中的最后一行。您仍然可以在不重新加载ltt的情况下再次运行。

j_spawn_h 发表于 2022-7-5 23:10:22

比加尔，
是的，上面写着零
 
大卫，
我下载了你的画。它在你的画里，但不是我的。在您的屏幕上，它打印在文本框中，但不构成表格。我想可能是cad版本，因为我忘了告诉你我用的是15。我在我家试过，我有11个，但还是没有。

David Bethel 发表于 2022-7-5 23:11:35

你能寄一张样图吗？
页: [1] 2
查看完整版本: 寻找lisp来创建一个t