修改函数

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) 统计矩形边长数量的插件，我想把输出的下划线变成表格，有人能告诉我怎么改吗，谢谢

newer

变成什么样的，自己手工画个图，贴上来。