请大佬帮忙修改一下

huisguiji

我是做柜子的，这个统计程序也是在本论坛下载的，现在想按我这行的使用要求请大佬帮忙修改一下规则
1 前面再加1列编号  后面数据和数量可不可以成1行文字
2 大小按宽排一起，不是现在这样一条大一条小的  200宽以内（含200）归小  以上归大
3 宽200以内长度自动加20
4 排序  按从左到右 上到下  
5 这里统计还有0的，宽小于4的不统计

以下是代码

(defun qbc (pts / b h)
(setq b (distance (car pts) (cadddr pts)))
(setq h (distance (car pts) (cadr pts)))
(cons (max b h) (min b h))
);结束qbc
(defun c:tg ( / bclst pts ss el bc_new i p2 p3 m x1 x2)
(princ "\n请框选矩形:")
(setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4))))
(setq i 0 bclst nil pts nil)
(repeat (sslength ss)
  (setq el (entget (ssname ss i)))
  (setq pts nil)
  (foreach pt el (if (= (car pt) 10) (setq pts (cons (cdr pt) pts))))      
  (setq bclst (cons (qbc pts) bclst))
  (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 (list m n) bc_new))
)
(setq p2 (getpoint "\起始位置"))
(setq p3 (polar p2 0 400))
(command "_.TEXT" "c" (polar p2 (* pi 0.5) 140) "70" "0" "高*宽=");指定书写标题的位置
(command "_.TEXT" "c" (polar p3 (* pi 0.5) 140) "70" "0" "数量")
(foreach bg bc_new                                                      ;设定重复次数为新表的长度
  (command "_.TEXT" "c" p2 "70" "0" (strcat (rtos (car (car bg)) 2)"*" (rtos (cdr (car bg))2)"="))      
  (command "_.TEXT" "c" p3 "70" "0" (cadr bg))
  (setq p2 (polar p2 (* pi 1.5) 140))
  (setq p3 (polar p2 0 400))
)
(princ)
)

huisguiji

怎么没有大佬来帮帮忙啊，自己顶顶了

SdlFreeCAD

QQ上发的ARX程序没有满足你的需求吗?

huisguiji

SdlFreeCAD 发表于 2023-4-23 12:03
QQ上发的ARX程序没有满足你的需求吗?

没有，，，，，，，，，，，，，，，，，

SdlFreeCAD

huisguiji 发表于 2023-4-23 15:40
没有，，，，，，，，，，，，，，，，，

哈哈，看来你比较喜欢lisp程序。 那就找lisp的高手帮你解决下吧。

huisguiji

没有解决的帖子怎么删除呢