我想把一条直线和多条平行线的交点生成的坐标，用直线连接起来

choiken · 发表于 2020-9-29 16:57:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我找到一个程序：(defun c:zb(/ ent n sel ptlst nent px)(setvar "cmdecho" 0)
(setq ent(car(entsel)))
(if(not ent)(exit))
(if(/=(cdr(assoc 0(entget ent)))"LINE")(exit))
(princ "\n选择要被相交的平行线:")
(setq sel(ssget '((0 . "LINE"))))
(if(not sel)(exit))
(setq ptlst nil)
(setq p1(cdr(assoc 10(entget ent)))
p2(cdr(assoc 11(entget ent))))
(setq n 0)
(repeat(sslength sel)
(setq nent(ssname sel n))
(setq p3(cdr(assoc 10(entget nent)))
p4(cdr(assoc 11(entget nent))))
(setq px(inters p1 p2 p3 p4))
(setq px(trans px 0 1))
(if ptlst(setq ptlst(cons px ptlst))(setq ptlst(list px)))
(setq n(1+ n))
)
(princ ptlst)
(setvar "cmdecho" 1)
(princ)
)
但是他输出的结果有问题，没有按顺序排列；还有能不能把结果直接用直线连起来。
相当于本身是一根直线，我现在要量取每一段的长度，可以实现吗

choiken · 发表于 2020-9-29 17:01:52

我的目的是根据文字内容，分别统计完整的多长、较完整的多长、完整性差的多长

shenyaocan · 发表于 2020-10-5 23:58:30

ZHICHIZHICHI

kyky1002 · 发表于 2020-10-6 08:01:16

看看是什么，感谢

yangjian001 · 发表于 2020-10-7 12:35:08

做一个热心并受欢迎的人！

choiken · 发表于 2020-10-11 15:31:29

求大神指导

wzjck01 · 发表于 2021-6-5 16:23:39

学习，学习。

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

[求助] 我想把一条直线和多条平行线的交点生成的坐标，用直线连接起来

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。