[讨论]：如何找到多义线的对角点

啵浪鼓

44楼的程序挺好用的。。。谢谢eachy斑竹
能不能不加载你的通用函数。。。xyp1964斑竹

xyp1964

最初由 啵浪鼓 发布
[B]44楼的程序挺好用的。。。谢谢eachy斑竹
能不能不加载你的通用函数。。。xyp1964斑竹 [/B]

当然可以不加载！不过，你得试试，呵呵……

狂刀

xyp的程序取多义线顶点也存在缺点,就是靠边 的是凸度弧线段的时候....
啵兄有没有试我19楼的程序?

啵浪鼓

狂兄，我有试呀，感觉蛮好的，只是你的程序编译过啦，我没法知道你的接口角点，也没法将我的程序放置在你的程序后，没法用啊

我的主程序是将每个图层的最大矩合线求出并找到左下点及右上点，然后进行坐标标注，你不提供接口给我我怎么将主程序往里加嘛。。。

不过，经过earch斑竹的一再解说撰写，我的程序已调试完啦！在此谢谢eachy斑竹不厌其烦的解说调试！！！

eachy

关于求Pline线顶点有多种情况，论坛上也有几个不同的函数。Pline有几种类型：Lwpolyline用dxf组码过滤出 10 的就可以；对旧版的Polyline就不能用上面的方法，可以用entnext 或者 getcoordinates 方法；对经过 Fit 或 Spline 化的 Lwpolyline 就是另外的情况，还有 3Dpolyline 实体，作为学习可以试试不同方法的可行性和察看是否获取了正确的结果

狂刀

用ｂｏｕｎｄｉｎｇｂｏｘ的缺点是只能求ｗｃｓ下的角点．如果ｕｃｓ／＝ｗｃｓ，那么实体要旋转后求，再转回去
在求＂最．．．，最．．．＂之类的东东的时候．除了在过程中对比逐步筛选出ｍｉｎ／ｍａｘ，还可以先保留列表，然后再用排序函数(min,max,vl-sort等）
如

2. 
   
3. (whie ....
   
4.     (setq lst1(cons minpt lst1)
   
5.             lst 2 (cons maxpt lst2))
   
6. )
   
7. (list (list (apply 'min (mapcar 'car lst1)) (apply 'min(mapcar 'cadr lst1)));;最小点
   
8.       (list (apply 'max (mapcar 'car lst2))(apply 'max(mapcar 'cadr lst2)));;最大点
   
9. )
   
10. 
    
11. 或
    
12. (list (list(car (vl-sort (mapcar 'car lst1) '<))(car (vl-sort(mapcar 'cadr lst1) '<)));;最小点
    
13.      (list(car (vl-sort (mapcar 'car lst2) '>))(car (vl-sort(mapcar 'cadr lst2) '>)));;最大点
    
14. )
    
15. ;;也可以minpt,maxpt 都放到一个lst里面，在后面进行排序求最．．．点的时候写法简单一些，但是实际计算量要大一点（一倍）．

<br /> (whie ....<br />     (setq lst1(cons minpt lst1)<br />             lst 2 (cons maxpt lst2))<br /> )<br /> (list (list (apply 'min (mapcar 'car lst1)) (apply 'min(mapcar 'cadr lst1)));;最小点<br />       (list (apply 'max (mapcar 'car lst2))(apply 'max(mapcar 'cadr lst2)));;最大点<br /> )<br /> <br /> 或<br /> (list (list(car (vl-sort (mapcar 'car lst1) '<))(car (vl-sort(mapcar 'cadr lst1) '<)));;最小点<br />      (list(car (vl-sort (mapcar 'car lst2) '>))(car (vl-sort(mapcar 'cadr lst2) '>)));;最大点<br /> )<br /> ;;也可以minpt,maxpt 都放到一个lst里面，在后面进行排序求最．．．点的时候写法简单一些，但是实际计算量要大一点（一倍）．

啵浪鼓

最初由 啵浪鼓 发布
[B]CNS国标三视图的原则是一主视图二侧视图，（主视图内包含长与宽是程序需要找到的，另二侧视图通常为下侧视图及右侧视图，31楼图片中我只画了下侧视图，右侧视图未画出）

程序是否可以将（if （and。。。这段写得?.. [/B]

最初由 eachy 发布
[B]增加矩形中心点的判断，当相等时X最小，Y最大 [/B]

程序运行时好时坏，在不同的档案内会执行不同的结果，需增加中心点的判断才行，这样的结果才能是唯一的。。。

eachy斑竹在原程序上帮我加上对于中心点的判断好不？

eachy

你应该学会分析，看问题出在哪里然后再决定处理方法，有时候可能要重新考虑算法，而不是一点点的叠加。