[求助]：lisp 已知直线，最短距离连线

hhh454 · 发表于 2011-1-8 14:28

在cad里面已知平行的直线或不平行(之间不相交)，怎样进行首尾最短距离连线，最后合成一条pline线。见图片。

ZZXXQQ · 发表于 2011-1-8 14:28

本帖最后由 ZZXXQQ 于 2011-1-10 22:21 编辑

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

hhh454 · 发表于 2011-1-10 08:36

谢谢zzxxqq。代码，测试结果：
选择第一条直线 :
选择第二条直线 :; 错误: 参数太少

我用的是2004版，请帮忙看看，那个地方问题

Andyhon · 发表于 2011-1-10 11:42

...参数太少...
(= (cdr(assoc ent1)) (cdr(assoc ent2)) "LINE")
==>
(= (cdr(assoc 0 ent1)) (cdr(assoc 0 ent2)) "LINE")

ZZXXQQ · 发表于 2011-1-10 22:26

谢谢Andyhon。2楼已改。

yoyoho · 发表于 2011-1-12 12:05

感谢z版程序
收藏学了!

xiaxiang · 发表于 2011-1-12 15:33

是个好程序,谢谢斑竹

461045462 · 发表于 2011-2-13 17:20

ZZXXQQ 发表于 2011-1-10 22:26
谢谢Andyhon。2楼已改。

请问版主：我将程序中的LINE改为LWPOLYLINE后，运行不能实现线条的连接，请问如果是连接LWPOLYLINE线，程序代码要做哪方面的修改？
请指教
谢谢

sfae · 发表于 2011-2-21 11:24

好好好好学习中

xy829475 · 发表于 2011-2-27 09:26

应该是很好的程序，可惜我浏览不到~

账号		自动登录	找回密码
密码			注册