lisp移动高程压盖_移动高程点注记压盖图块、文字等地物避让最快算法思路征集...

(defun c:mgcd( / *error* data data_next dis e e_next i ii in_id key p1 p10 p11 p1010 p1-1 p2 p2-1 p3 p3-1 p4 p4-1 p5 p5-1 p6 p6-1 p7 p7-1 ppp ppp11 ss ssss  wz_cd wz_cd2 wz_gd)

(alert"高程点移位程序:\n只能处理1:500地形图。

\n\n不考虑等高线

\n\n高程点是CASS展出来没有拖动过的。

\n如果已经拖动了的不做处理。

\n\n如果程序无效

\n建议把高程回收一遍再重新展一次,然后运行本程序")

(defun *error*(msg)(princ))

(setq ssss(ssget '((2 . "GC200"))))

(setvar 'cmdecho 0)(setvar 'osmode 0)

(command "undo" "be")

(if(tblsearch "layer" "dgx")(command "._layer" "off" "dgx" ""))

(setq i -1)

(repeat(setq ii(sslength ssss))

(princ "\n")

(princ (setq ii(- ii 1)))

(setq e(ssname ssss (setq i(1+ i))))

(setq data(entget e '("*")))

(setq e_next(entnext e))

(setq data_next(ent