7o7 发表于 2022-7-5 23:18:13

你删除2行代码，它就会工作。

(while (car xss)
(setq bb '()
       bb (cons (car xss) bb)
       ic (getxx (entget (car xss)))
       xss (cdr xss)
       yss xss)
(while (car yss)
   (setq ent1 (car yss))
;;;         xic (getxx (entget ent1)))
;;;   (if (apply 'and (mapcar '(lambda(x y) (equal x y 1e-5)) xic ic))
      (setq bb (cons ent1 bb)
             xss (vl-remove ent1 xss))
      (setq yss (cdr yss)))
(setq aa (cons bb aa))
)

andy_lee 发表于 2022-7-5 23:26:30

 
尊敬的先生：。
很好，非常感谢！

7o7 发表于 2022-7-5 23:27:41

不客气，李。
页: 1 [2]
查看完整版本: 尺寸断开连接