Lee Mac 发表于 2022-7-6 06:53:03

谢谢你的提示。

rodrigo_sjc_sp 发表于 2022-7-6 06:55:46

这是我的版本（在LM的帮助下）用于包围和清理检查LW多段线。。。（使用link posted的子功能和gile的子功能来清理LWs，并使用LM子功能来包围LWs）。。。
 
M、 R。
检查LWPLS。lsp

rodrigo_sjc_sp 发表于 2022-7-6 07:01:19

Lee Mac 发表于 2022-7-6 07:06:43

You're very welcome Rodrigo
 
Here is an alternative perhaps:

(defun vs ( / e i s )   (if (setq s (ssget "_x" '((0 . "LWPOLYLINE"))))       (repeat (setq i (sslength s))         (foreach x               (LM:ListDupesFuzz                   (vl-remove-if-not '(lambda ( x ) (= 10 (car x)))                     (setq e (entget (ssname s (setq i (1- i)))))                   )                   1e-8               )               (command "_.zoom" "_Object"                   (entmakex                     (list                        '(0 . "CIRCLE")                        '(8 . "Duplicate-Vertices") ;; Layer                           x                        '(40 . 1.0) ;; Radius                        '(62 . 1)   ;; Colour                           (assoc 210 e)                     )                   )                   ""               )               (princ "\nPress any key to view next duplicate...")               (grread)         )       )   )   (princ));; List Duplicates with Fuzz-Lee Mac;; Returns a list of items appearing more than once in a supplied list(defun LM:ListDupesFuzz ( l f / c r x )   (while l       (setq x (car l)             c (length l)             l (vl-remove-if '(lambda ( y ) (equal x y f)) (cdr l))       )       (if (< (length l) (1- c))         (setq r (cons x r))       )   )   (reverse r))(princ)

rodrigo_sjc_sp 发表于 2022-7-6 07:09:35

Thanks for the tips.

marko_ribar 发表于 2022-7-6 07:13:15

Here is mine version (with help of LM) for encircling and cleaning checking of LWPOLYLINES... (Used subfunctions from link posted and gile's subfunctions for cleaning LWs and LM subfunctions for encircling LWs)...
 
M.R.
checklwpls.lsp
页: 1 [2]
查看完整版本: 顶点重叠