[求助]：這個問題,可能要版主們的水平才能搞定(XYP版主能出手麽?)

xyp1964

最初由 taner 发布
[B][QUOTE]最初由 xyp1964 发布
[B][QUOTE]最初由 taner 发布
[B]命令: (load "C:/Documents and Settings/yf/桌面/1.lsp") INTERS-CHECK

命令: test*取消*

命令:
命令:
命令: _appload 已成功... [/B]

还不知道在哪更新？！
签名栏下就有。
更新时间不定期，测试时如果发现有未知命令，可能就得重新下载。

841594

taner:
抱歉这么晚才看到你发的悄悄话。
试着提出我的方法：
按我的理解，你只需要找出间距不够宽的地方就够了，对么？
如果这样，不必画圆应当也行。
(defun c:chk ()
    (command "pedit" "m" (ssget '((0 . "LWPOLYLINE"))) "" "w" 0.06 "")
)
把线条变成0.06宽的多义线，然后肉眼观察是否有重叠的地方。
把问题想的简单就好。

taner

XYP版主的程序已搞定.

你的理解是不對的.多義的寬度是0.謝謝你!
在8樓的附件裏有詳細的說明.你再試,多一種方法更好.

841594

恐怕是你没有理解我的方法。
如图：线有重合的地方即是有问题的地方。
找到后再把线宽改成0就行了。

taner

最初由 841594 发布
[B]恐怕是你没有理解我的方法。
如图：线有重合的地方即是有问题的地方。
找到后再把线宽改成0就行了。 [/B]

現在已理解,謝謝!

但是,手工處理太慢,因爲我要經常處理好多這樣線條.思路是不錯,不知道能否編個自動的.

xyp1964

最初由 841594 发布
[B]taner:
抱歉这么晚才看到你发的悄悄话。
试着提出我的方法：
按我的理解，你只需要找出间距不够宽的地方就够了，对么？
如果这样，不必画圆应当也行。
(defun c:chk ()
    (command "pedit" "m" (ssget '((0 ... [/B]

在线的每一个顶点画半径为0.06的圆，如果此圆与其他线的所有交点不超过3个，说明符合要求。
如果用肉眼判断，可能很累也不准吧。反正偶的老眼不成！

taner

最初由 xyp1964 发布
[B][QUOTE]最初由 841594 发布
[B]taner:
抱歉这么晚才看到你发的悄悄话。
试着提出我的方法：
按我的理解，你只需要找出间距不够宽的地方就够了，对么？
如果这样，不必画圆应当也行。
(defun c:chk ()
... [/B]

妙,終於搞懂了版主的編程思路!

841594

最初由 xyp1964 发布[B]
在线的每一个顶点画半径为0.06的圆，如果此圆与其他线的所有交点不超过3个，说明符合要求。
如果用肉眼判断，可能很累也不准吧。反正偶的老眼不成！
[/B]

这样不够严密，如有弧线的情形。而且不直观。
还是相信自己的眼睛吧。

xyp1964

最初由 841594 发布
[B]
这样不?.. [/B]

确实不够严谨，目前尚不支持带弧的多段线、多段线自身相交及相互相交的情况，有待继续完善。
虽说“眼见为实”，但也不可靠！

zhang8755

搂住是不是想要一个检察管道碰撞的程序?

taner

最初由 zhang8755 发布
[B]搂住是不是想要一个检察管道碰撞的程序? [/B]

是检查LCD布线的