[LISP程序]：一个检查PLINE是否闭合的程序

sicky111 · 发表于 2006-11-19 20:06:17

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

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

×

(defun C:CJ (/ plines bnt count)
  (setq plines (ssget (prompt "\n选择多义线:")))
  (setq count 0)
  (while (< count (sslength plines))
(setq bnt (entget (ssname plines count)))
(if (= 1 (cdr (assoc 70 bnt)))
(command "chprop" (ssname plines count) "" "c" "red" ""))
(setq count (+ 1 count)))
(prin1)
)

xgwl · 发表于 2006-11-19 22:14:57

输入pedit 如果状态栏显示“[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L) ” 就说明它不闭合。如果显示“[打开(O)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)” 就说明它是闭合的。
为什么要另外编程？

znchssy · 发表于 2008-12-15 16:31:52

意义不大，我觉得应该在不必和处做出标记！

haitao_885 · 发表于 2008-12-23 15:46:18

如果能显示出不闭合的位置就好了

llkill · 发表于 2009-2-12 16:35:58

看起来不错很好的东西学习一下

xgz501 · 发表于 2009-2-24 21:50:39

跟用pe命令有啥区别？

zhaokai · 发表于 2009-3-27 09:16:25

楼主可以改进一下~

lihy203 · 发表于 2009-3-27 18:20:57

可以改进

boluolcz · 发表于 2009-4-3 14:00:07

这个功能CAD不是有的嘛谢谢楼主的分享精神

yoyoho · 发表于 2009-4-5 09:58:34

楼主你好:
检查PLINE是否闭合的程序
,如用于5边形以上或4边形(非直角时),就没功用了
楼主可以做个修正吗?

zxrlog · 发表于 2009-7-6 15:56:04

如果能表明那个地方不闭合还是不错的

longer1000 · 发表于 2009-7-22 11:20:13

意义不大，谢谢楼主的分享精神

席子 · 发表于 2009-9-9 15:22:08

xieixe楼主分享

ZJS555 · 发表于 2009-12-6 01:30:32

多谢楼主，最好能修正显示不闭合的位置！

cuyongping · 发表于 2013-4-27 13:38:04

谢谢了！看看好用不

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

[LISP程序]：一个检查PLINE是否闭合的程序

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

相关帖子