ssget "C" p0 p0效率太低了

/db_自贡黄明儒_

我一张图，后面附着了一张图片，05下移动拷贝上面的对象很慢，每次要等几十秒，于是我写了一个程序来验证

1. (defun C:q1 (/ E N P P0 SS T0 T1 T2)
   
2.   (setq p0 '(0 0 0))
   
3. 
   
4.   (setq t0 (getvar "date"))
   
5.   (setq ss (ssget "X" '((0 . "*LINE"))))
   
6.   (repeat (setq n (sslength ss))
   
7.     (setq e (ssname ss (setq n (1- n))))
   
8.     (setq p (vlax-curve-getClosestPointTo e p0))
   
9.     (equal p0 p)
   
10.   )
    
11.   (setq t1 (- (getvar "date") t0))
    
12.   (princ t1)
    
13.   (princ "\n")
    
14. 
    
15.   (setq t0 (getvar "date"))
    
16.   (setq ss (ssget "C" p0 p0 '((0 . "*LINE"))))
    
17.   (setq t2 (- (getvar "date") t0))
    
18.   (princ t2)
    
19.   (princ "\n")
    
20. 
    
21.   (princ (- t2 t1))
    
22.   (princ)
    
23. )

(defun C:q1 (/ E N P P0 SS T0 T1 T2)<br />   (setq p0 '(0 0 0))<br /> <br />   (setq t0 (getvar "date"))<br />   (setq ss (ssget "X" '((0 . "*LINE"))))<br />   (repeat (setq n (sslength ss))<br />     (setq e (ssname ss (setq n (1- n))))<br />     (setq p (vlax-curve-getClosestPointTo e p0))<br />     (equal p0 p)<br />   )<br />   (setq t1 (- (getvar "date") t0))<br />   (princ t1)<br />   (princ "\n")<br /> <br />   (setq t0 (getvar "date"))<br />   (setq ss (ssget "C" p0 p0 '((0 . "*LINE"))))<br />   (setq t2 (- (getvar "date") t0))<br />   (princ t2)<br />   (princ "\n")<br /> <br />   (princ (- t2 t1))<br />   (princ)<br /> )

结果如下:
Command: q1 4.51226e-007
1.07614e-006
6.24917e-007

newer

清理下SCALELIST

/db_自贡黄明儒_

newer 发表于 2020-8-14 14:53
清理下SCALELIST

可能还不是这个原因，在高版本下就快多了。我是想找到取代(ssget "C" p0 p0 '((0 . "*LINE")))的方法，以提高效率。nentselp p也太不靠谱。

xinxirong

跟ssget没有关系。另外你的时间是e-7，单位呢，是秒的话不慢。
如果慢也是vlax-curve-getClosestPointTo的问题

/db_自贡黄明儒_

xinxirong 发表于 2020-8-15 07:25
跟ssget没有关系。另外你的时间是e-7，单位呢，是秒的话不慢。
如果慢也是vlax-curve-getClosestPointTo的 ...

你没有看清楚，vlax-curve-getClosestPointTo速度是很快的。(ssget "C" p0 p0太慢