修改多段线起终点宽度

依托项目：XZ

问题背景：地质层转坐标过程中，带箭头的块（如断层倾向符号、产状符号）不能转换。将块炸开后，可以转换，但炸成了直线，多段线宽度消失了。

解决思路：将块炸开后，使用PE命令将直线转为多段线。通过修改多段线的起终点宽度重新构建三角形符号。

注意：如果多段线有全局宽度定义，不管怎么替换图元的41号参数，都不起作用。猜测是43号全局宽度参数的优先级更高！需要删除全局宽度定义，使用vl-remove命令来实现这一步操作。

存在问题：暂时没发现。

(defun c:aaa ()
  (setq ss (ssget))
  (setq i 0)
  (while (<= i 120)
  (setq ent (ssname ss i)) 
  (setq data (entget ent))
  (setq newdata (entmod (subst (cons 41 2.0) (assoc 41 data) data)));替换线段末端宽度为2.0
  (setq newdata (vl-remove (assoc 43 newdata) newdata));去掉43号参数，删除全局宽度
  (entmod newdata)
   (setq i (+ 1 i))
    )
)