高手帮我看看要实现这个目的,LISP应该怎么写?

YANGF85

\
要点选这些矩形内部就生成一个编号,并提取规格,数量,
我现在只能实现第一步,后面的不知道应该怎么实现相同的规格给他相同的编号,并且统计数量.求高手指点,LISP在这里
(defun c:tt()
  (setvar "cmdecho" 0)
     (setq txt_str (getstring "\n输入字符前缀"))
     (setq txt_h (getreal "\n输入字符高度"))
     (setq pt (getpoint "\n选择内部点"))
     (setq rec_sget nil)
     (setq i 0)

  (while pt
    (progn
     (command "_bpoly" pt "")
     (setq rec (entlast))
     (redraw rec 3)
     (setq rec_sget (ssadd rec))
     (setq pt1 (cdr (nth 14 (entget rec))))
     (setq pt2 (cdr (nth 18 (entget rec))))
     (setq pt3 (cdr (nth 22 (entget rec))))
     (setq pt4 (cdr (nth 26 (entget rec))))
     (setq L (car (mapcar '- pt1 pt2))

   W (cadr (mapcar '- pt2 pt3))

   zx (inters pt1 pt3 pt2 pt4)

   )
     (entdel (entlast))
     (repeat (sslength rec_sget)
             (command "text" "j" "mc" zx txt_h 0 (strcat txt_str "-" (itoa i)) )
             (setq i (1+ i))
     )
     (print L)
     (print W)
     )
     (setq pt (getpoint "\n选择内部点"))
  )
  (princ)
  )

NJZX05

你要提取什么东西的规格、数量啊
不过可以明确地告诉你，要想实现相同的规格给他相同的编号,并且统计数量.必须先将所有的东东读入一个表中，然后通过对表的检索操作，来进行统计计算，这是普通的算法问题。不要企图不读入整个表而得到统计数据

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

YANGF85

回复 ZZXXQQ 的帖子

版主,好像不行哦.

守仁格竹GM

先顶一个再说