求将本插件改造得运行速度更快些

清风明月10

CJ001286命令在剖切线与等高线群的外观交点上写内容为高程的TEXT并画圆.LSP
这个插件是可以正常运行的，但图纸一大，等高线一多，运行时间就很长。也难怪，它是选取某层的所有线，逐一计算它也剖切线的交点，这样就很费时间。
所以关键就在，怎么样使代码尽可能过滤出那些不可能与剖切线有交点的线。过滤效率高的话，代码运行速度就快。
现在的运行速度，图纸稍大，则需半小时甚至数小时。

两个插件的编写的都是同一结构，所以存在同一问题。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:CJ001286命令在剖切线与等高线群的外观交点上写内容为高程的TEXT并画圆.rar 
下载次数:8  文件大小:2.2 KB 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:CJ002338命令批量剖切线与等高线交点标注高程并画圆.rar 
下载次数:8  文件大小:2.36 KB 
下载权限: 不限 以上  [免费赚D豆]

csharp

用c#写过一个，没有处理样条化的多段线，command 是快不了的

http://bbs.xdcad.net/thread-673478-1-1.html

清风明月10

C#写的，我不会用

st788796

对 样条化 的多义线断开除了 command 暂时还没有找出好方法, 再试试 投影线

st788796

清风明月10 发表于 2014-5-17 09:30
C#写的，我不会用

加上这个函数就可以解决样条化Pline的断开问题了

1. (defun GetVertexs (e / pts ee p p1)
   
2.   (setq ee e)
   
3.   (while (setq e (entnext e))
   
4.     (setq p (cdr (assoc 10 (entget e))))
   
5.     (if        (and p (equal p (vlax-curve-getclosestpointto ee p) 1e-3))
   
6.       (setq pts (cons p pts))
   
7.     )
   
8.   )
   
9.   (if (vlax-curve-isclosed ee)
   
10.     (cons t (reverse pts))
    
11.     (reverse pts)
    
12.   )
    
13. )
    

(defun GetVertexs (e / pts ee p p1)<br />   (setq ee e)<br />   (while (setq e (entnext e))<br />     (setq p (cdr (assoc 10 (entget e))))<br />     (if        (and p (equal p (vlax-curve-getclosestpointto ee p) 1e-3))<br />       (setq pts (cons p pts))<br />     )<br />   )<br />   (if (vlax-curve-isclosed ee)<br />     (cons t (reverse pts))<br />     (reverse pts)<br />   )<br /> )<br />