新手请帮忙插件修改。。。

w754852378

(defun qbc (pts / n bc_list b h pt1 pt2 pt3 pt4)
        (setq n 0 bc_list nil)
        (setq pt1 (nth n pts))
        (setq pt2 (nth (+ 1 n) pts))
        (setq pt3 (nth (+ 2 n) pts))
        (setq pt4 (nth (+ 3 n) pts))
        (setq b (distance pt1 pt4))
        (setq h (distance pt1 pt2))
        (setq bc_list (cons b h))
      );结束子函数
  
(defun c:tg (  / bclst pts ss el bc_new i p1 p3 m x1 x2)
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setq clay (getvar "clayer"))
   (setvar "osmode" 0)
   (command "layer" "s" "DIM" "")
   ;(setvar "lunits" 1)
   (princ "\n框选矩形:")
   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   ;(setq ee (ssname ss 0))
   (setq i 0 x 0 bclst nil pts nil bc_new nil)
   ;(setq la (cdr (assoc 8 (entget ee))))
   (setq x (sslength ss))
   (repeat x
               (setq el (entget (ssname ss i)))
                             (foreach pt el
                    (if (= (car pt) 10)
                        (setq pts (append pts (list (cdr pt))))
                     );结束IF
                 );结束foreach遍历元素      
                (setq bc (qbc pts))
                (setq bclst(cons bc bclst))
                (setq pts nil)
               ;(setq la (cdr (assoc 8 (entget ee))))
                (setq i (+ 1 i))
             );结束repeat         
         
    (setq bc_new nil)
    (while bclst
          (setq m (car bclst) x1 (length bclst))
          (setq bclst (vl-remove m bclst))
          (setq x2 (length bclst))
          (setq n (- x1 x2))
          (setq bc_new (cons (append (list m) (list n))bc_new))
    )
   (setq p1 (getpoint "\起始位置"))
   (setq p2 (polar p1  0 60))
   (setq p3 (polar p2  0 56))
   (setq ph (polar p1 (* pi 1.5) 2.5))
   (setq pha (polar ph (* pi 1) 15))
   (setq phb (polar pha 0 150))
      (command "text" "j" "c" (polar p2 (* pi 0.5) 10) "5" "0" "尺寸")
      (command "text" "j" "c" (polar p3 (* pi 0.5) 10) "5" "0" "数量")
      (command "line" pha phb "")
    (foreach bg bc_new
    (command "text" "j" "c" p2 "5" "0" (strcat (rtos (car (car bg)) 2)"*"(rtos (cdr (car bg))2)))；；；长宽尺寸
    (command "text" "j" "c" p3 "5" "0" (cadr bg))
     (command "line" pha phb "")
     (setq p1 (polar p1 (* pi 1.5) 12))
     (setq p2 (polar p1  0 60))
     (setq p3 (polar p2  0 56))
     (setq pha (polar pha (* pi 1.5) 12))
     (setq phb (polar phb (* pi 1.5) 12))
     )
     ;(setvar "lunits" 4)
     (setvar "osmode" os)
     (command "layer" "S" clay  "")
     (princ)
   )cad统计矩形边长和数量并列出的工具，选择内容包含非矩形时返回‘参数类型错误: 二维/三维点: nil，’请帮忙修改一下忽略选中的非矩形构件，谢谢，

原地踏步

你在子函数中加上判断吧。比如说对应两边相等，有一个角为直角，满足条件才加入bc_list。然后将主程序的选择改为(setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4) (70 . 1))))，可以保证你选到的为四个点的封闭多段线。
此外，在(sslength ss)之前最好加上 if ss，否则你没选到时程序会出错。

w754852378

谢谢大神，我想把下划线变成表格，您能告诉我改哪一句怎么改吗？

liunian0524

路过支持楼主

関吣

矩形统计工具么，挺好的，不过院长的插件包里面有啊~e派工具

w754852378

大哥，能发个链接吗？