[LISP程序]：修改地形图图层的程序，也许有用哟...

urljit

自己写的，希望你喜欢并提出意见。[php](defun c:lr (/ I LAYERNM_LST LAY_CR_NM)
  (command "undo" "be")
  (SETVAR "CMDECHO" 0)
  (SETQ        LAYERNM_LST
         (LIST "JMD"             "居民地"           "DLDW"         "独立地物"
               "DLSS"             "道路及附属设施"                 "SXSS"
               "水系及附属设施"                   "ZBTZ"         "植被土质"
               "DGX"             "等高线"           "GCD"         "高程注记层"
               "KZD"             "测量控制点"  "GXYZ"
               "管线及附属设施"                   "JJ"                 "境界"
               "ZJ"             "注记"
              )
        lay_cr_nm t
        i 0
  )
  (while (< i (length LAYERNM_LST))
    (setq lay_cr_nm (nth i layernm_lst))
    (if        (tblsearch "LAYER" lay_cr_nm)
      (progn
        (setq n_lay_nm (strcat "ur" (nth (1+ i) layernm_lst)))
        (command "-rename"
                 "layer"
                 lay_cr_nm
                 n_lay_nm
        )
        (princ (strcat "\n" lay_cr_nm "->" n_lay_nm "   ok!"))
      )
      (PRINC (strcat "\n没有图层: " lay_cr_nm))
    )
    (setq i (+ 2 i))
  )
  (command "undo" "end")
  (princ)
)
;;;----------------------------------------------------------------------------
(princ
  "\n  LR0 已加载，以LR启动命令。By 小河弯弯 QQ 332672574"
)
(princ)
[/php]

linsankai

请说明具体用处,谢谢

urljit

最初由 linsankai 发布
[B]请说明具体用处,谢谢 [/B]

地形图里面的图层是字母,这个小程序可以将名子rename,当然如果自己改造一下,也可以用在其他大量的图层需要更名的图里面.

图层名称列表:"JMD"         "居民地"
            "DLDW"     "独立地物"
           "DLSS"         "道路及附属设施"         "SXSS"
           "水系及附属设施"           "ZBTZ"     "植被土质"
           "DGX"         "等高线"       "GCD"     "高程注记层"
           "KZD"         "测量控制点"  "GXYZ"
           "管线及附属设施"           "JJ"         "境界"
           "ZJ"         "注记"

zhitu

对我来说有用！