新手代码疑问请求解答

bbs970056782

自己写了一个代码，是要实现窗选所有的闭合矩形，通过获取矩形的四个顶点来计算矩形的中心点坐标，然后在中心点上添加文字
但是添加的文字都只是显示在第一个图元上面，有没有高手帮看一下到底是什么问题

代码如下：
(defun c:mhs ()
  (setvar "cmdecho" 0)
  (princ "\n请选择对象:")
  (setq _ssget (ssget))
  (setq _ssget_length (sslength _ssget))
  (setq _num 0)
  (setq _list_index 0)
  
  (repeat _ssget_length
    (setq _entget_object (ssname _ssget _num)) ;遍历选择集图元
    (setq _entget_data (entget _entget_object)) ;获取图元组码信息
    (setq _entget_type (cdr (assoc 0 _entget_data))) ;获取图元类型
    (setq _list_70_value (cdr (assoc 70 _entget_data)))
    (if (and (wcmatch _entget_type "LWPOLYLINE,POLYLINE")(= _list_70_value 1))   
      (progn
(repeat (length _entget_data);获取矩形坐标开始
   (if (= (car (nth _list_index _entget_data)) 10)
       (setq _list_point (append _list_point (list (cdr (nth _list_index _entget_data)))))
   ) ;获取矩形坐标结束
   (setq _list_index (1+ _list_index))
)
      )
    )
    ;拼凑中心点坐标
     (setq _list_xp1 (car (nth 0 _list_point)))
     (setq _list_xp2 (car (nth 1 _list_point)))
     (setq _list_yp1 (car (cdr (nth 1 _list_point))))
     (setq _list_yp2 (car (cdr (nth 2 _list_point))))
     (setq _point_x (+ _list_xp1 (/ (- _list_xp2 _list_xp1) 2)))
     (setq _point_y (- _list_yp1 (/ (- _list_yp1 _list_yp2) 2)))
     (setq _index_point (list _point_x _point_y))
     (command "TEXT" _index_point "500" 0 "中心点")   
            (setq _num (1+ _num))
  )
)

tzfcn

选择上加循环就可以了。

lovezp

变量_list_index读取完一根多段线顶点之后要从0开始
变量_list_point设置好中心点后要重新设置成nil

bbs970056782

lovezp 发表于 2019-7-22 08:50
变量_list_index读取完一根多段线顶点之后要从0开始
变量_list_point设置好中心点后要重新设置成nil

非常感谢   已经解决了