快速选取

xdzcp

cad里怎么快速找出相同尺寸的矩形 ，谢谢。

vlisp2012

得到每个点的坐标，然后统计相邻的边长长度相同，就可以了啊，点坐标论坛有源码的

xdzcp

vlisp2012 发表于 2020-4-2 07:37
得到每个点的坐标，然后统计相邻的边长长度相同，就可以了啊，点坐标论坛有源码的

大师 我的意思是有许多大小 尺寸相同和不同的矩形，我要选取其中相同的一部分。有点类似“快速选取”的功能。怎么选取呢。

vlisp2012

那用total length就可以了吧！

Lisphk

xdzcp 发表于 2020-4-2 07:57
大师 我的意思是有许多大小 尺寸相同和不同的矩形，我要选取其中相同的一部分。有点类似“快速选取”的功 ...

相同的部分是指什么？  面积相等的都算，还是 长宽分别相等的都算？
搜索论坛，统计 相关的，有很多

vlisp2012

你可以用这个修改一下就可以了，应该。
https://www.cadtutor.net/forum/topic/64-length-of-polyline/
;| Length/Area By Pline

David Watson 1995 with minor revisions 2004

This command will give a total area and/or length for all polylines on a specified layer.

05-02-2004  Edited for CADTutuor
05-03-2004  Area To Include All Open And Closed PLINES

|;

(defun c:zone ( / ss la rv i tv op en)

  (while (not ss)
         (princ "\nPick any object on the required layer")
         (setq ss (ssget)))

  (initget "Length Area")
  (setq rv (getkword "\nWould you like to measure Length/<Area> : "))
  (and (not rv)
       (setq rv "Area"))

  (setq la (cdr (assoc 8 (entget (ssname ss 0))))
        ss (ssget "X" (list (cons 0 "*POLYLINE")
                            (cons 8 la)))
         i (sslength ss)
        tv 0
        op 0)
  (while (not (minusp (setq i (1- i))))
         (setq en (ssname ss i))
         (command "_.AREA" "_E" en)
         (cond ((= rv "Length")
                (setq tv (+ tv (getvar "PERIMETER"))))
               (T
                (setq tv (+ tv (getvar "AREA")))
                (if (/= (logand (cdr (assoc 70 (entget en))) 1) 1)
                    (setq op (1+ op))))))

  (princ (strcat "\nTotal " rv
                 " for layer " la
                 " = " (rtos tv 2 2)
                 " in " (itoa (sslength ss)) " polylines\n"
                 (if (/= rv "Length")
                     (strcat (itoa op) " with open polylines") "")))
  (prin1))

xdzcp

Lisphk 发表于 2020-4-2 08:56
相同的部分是指什么？  面积相等的都算，还是 长宽分别相等的都算？
搜索论坛，统计 相关的，有很多

谢谢大师 小白一个 没有说清楚 我就是选取 长宽分别相等的长方形 大师能给写个 lisp程序吗 谢谢