帮我解决这个小问题

CheSyn · 发表于 2022-7-6 00:27:04

我不知道你想要实现什么，凤凰社。

luan00 · 发表于 2022-7-6 00:35:08

在本例中，我有两个对象：一条线附加一个对象。。我想选择一行-每对一个文本。在本例中，我假设文本和线条之间的距离为50。我已经写了这段代码，它没有我想要的结果。这对夫妇之间存在混淆。这是我第一次写Lisp程序

（定义c:gc（/p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 ss索引n数据开始）
（setq p1（ssget’（（0.“线”）））；选择对象：直线
（setq n（sslength p1））
（setq索引0）
（setq数据（ssadd））
（重复n；创建循环
（setq start（ssname p1 index））
（ssadd开始数据）；添加第1行的实体名称
（setq p2（entget start））
（setq p3（assoc 10 p2））；获取起点
（setq p4（assoc 11 p2））；获取终点
（setq p5（+100（/（+（cadr p3）（cadr p4））2）））
（setq p6（+100（/（+（caddr p3）（caddr p4））2））；使用此点列表创建框选择
（setq p7（-200 p5））
（setq p8（-200 p6））
（setq p9（列表p5 p6））
（setq p10（列表p7 p8））
（setq ss（ssget“C”p9 p10’（（0。“text”）））；选择第二个对象：文本
（setq p11（ssname ss 0））
（ssadd p11数据）；将第二个文本的实体名称添加到此列表中
（setq指数（+指数1））
)
（命令“select”data“”）；在数据列表中选择对象
（prin1 p5）
)

[编程交流] 帮我解决这个小问题

发表回复

精选推荐