cad高程点怎么抽稀_地形图缩编1：500变成2000，植被符号抽稀功能，

[code="lisp]

(defun c:fhcx ()

(vl-load-com)

(setvar "cmdecho" 0)

(setq v1 (getvar "osmode"))

(setvar "osmode" 0)

(setq blc(getreal "请输入当前图形的比例尺<500>:"))

(if (= b1 nil)

(setq b1 500))

(setq blxs (* 0.001 blc));新插入块的比例系数

(setq xzl (- (* 0.02 blc) 1.5))

(setq yzl (- (* 0.01 blc) 1.5))

(setq s1 (entsel "\n请选择一个植被符号:"))

(command "zoom" "e" "")

(setq tyb (entget(car s1)))；图元表

(setq gjz0 (assoc 0 tyb));关键字0

(setq tkm (assoc 2 tyb));图块名

(setq tcm (assoc 8 tyb));图层名

(setq glb (list gjz0 tcm tkm));选择集过滤表

(setq s (ssget "x" glb ));植被选择集

(setq tygs (sslength s));选择集内图元个数

(setq ff (open "d:/坐标表.txt" "w"))；新建植被插入点坐标文档

(setq i 0)

(repeat tygs