多段线联结哪个强？

/db_自贡黄明儒_ · 发表于 2015-5-13 15:59:55

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2015-5-13 16:18 编辑

Command: w1
Select objects: Specify opposite corner: 9600 found
Select objects:
It takes :49.223seconds

Command: w2
Select objects: Specify opposite corner: 9600 found
Select objects:
It takes :54.901seconds

结论：对象选择多时，w1快于w2

(defun C:w1 (/ EN N SEL SS T0)
(setq ss (ssadd))
(cond
((setq sel (ssget (list '(0 . "*LINE,ARC"))))
(setq t0 (getvar "TDUSRTIMER")) ;The start time of this algorithm
(setq en (entlast))
(repeat (setq n (sslength sel))
(ssadd (ssname sel (setq n (1- n))) ss)
(cond ((= (sslength ss) 100) (My:JionToPolyline ss) (setq ss (ssadd))))
)
(cond (ss (My:JionToPolyline ss)))
(setq ss (lt:ss-entnext en))
(cond (ss (My:JionToPolyline ss)))
(princ "\nIt takes :")
(princ (* (- (getvar "TDUSRTIMER") t0) 86400)) ;The End time
(princ "seconds")
)
)
(princ)
)
(defun C:w2 (/ SEL T0)
(cond
((setq sel (ssget (list '(0 . "*LINE,ARC"))))
(setq t0 (getvar "TDUSRTIMER")) ;The start time of this algorithm
(My:JionToPolyline sel)
(princ "\nIt takes :")
(princ (* (- (getvar "TDUSRTIMER") t0) 86400)) ;The End time
(princ "seconds")
)
)
(princ)
)

(defun C:w1 (/ EN N SEL SS T0) 
  (setq ss (ssadd)) 
  (cond 
    ((setq sel (ssget (list '(0 . "*LINE,ARC")))) 
     (setq t0 (getvar "TDUSRTIMER"))                            ;The start time of this algorithm 
     (setq en (entlast)) 
     (repeat (setq n (sslength sel)) 
       (ssadd (ssname sel (setq n (1- n))) ss) 
       (cond ((= (sslength ss) 100) (My:JionToPolyline ss) (setq ss (ssadd)))) 
     ) 
     (cond (ss (My:JionToPolyline ss)))      
     (setq ss (lt:ss-entnext en))      
     (cond (ss (My:JionToPolyline ss))) 
     (princ "\nIt takes :") 
     (princ (* (- (getvar "TDUSRTIMER") t0) 86400))            ;The End time 
     (princ "seconds") 
    ) 
  ) 
  (princ) 
) 
 
(defun C:w2 (/ SEL T0)   
  (cond 
    ((setq sel (ssget (list '(0 . "*LINE,ARC")))) 
     (setq t0 (getvar "TDUSRTIMER"))                            ;The start time of this algorithm      
     (My:JionToPolyline sel) 
     (princ "\nIt takes :") 
     (princ (* (- (getvar "TDUSRTIMER") t0) 86400))            ;The End time 
     (princ "seconds") 
    ) 
  ) 
  (princ) 
)

游客，如果您要查看本帖隐藏内容请回复

iLisp · 发表于 2015-5-13 17:48:13

没看看明白
(vl-cmdf ".pedit" "M" (ssget) .....

viphappy · 发表于 2015-5-13 19:26:23

支持黄工:)

hzj268 · 发表于 2015-5-13 22:07:53

看看.0....................

HLCAD · 发表于 2015-5-14 07:52:54

回帖，支持黄大侠！

dwg001 · 发表于 2015-5-14 16:50:40

有心人，做基础性的研究，赞！

cyfdean · 发表于 2015-10-8 10:03:21

谢谢分享{:soso_e100:}

huangchaowei · 发表于 2015-10-9 22:03:37

看看吧！省得了解

liusir@615 · 发表于 2016-3-5 17:39:24

okokokokokokok

wangdaobin · 发表于 2016-3-6 19:25:53

非常实用的软件！！！

liunian0524 · 发表于 2017-5-17 08:29:26

感谢分享.....

lzj511 · 发表于 2017-5-18 09:41:47

支持黄大侠！

9635luyu · 发表于 2017-5-18 15:38:34

看看看盾看看

1028882406@qq.c · 发表于 2017-7-5 13:44:49

谢谢楼主，支持下

evayleung · 发表于 2017-7-5 17:40:52

差别不是太大，随便一个都好用。

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

[研讨] 多段线联结哪个强？

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

评分