手工采集数字为CASS高程点源码

zhanglangjing

(defun C:cgc()
;控制AutoCAD 是否回显提示和输入。
       (setvar "cmdecho" 0)
       (vl-load-com)
(setq e(entsel"\n请在图面上选择高程注记"))
(setq e1(car e));读出当前选择的任意图斑线的图元名
(setq th(entget e1 '("*")));读出所有图元名的图元属性及扩展属性
  (setq d(cdr (assoc 1 th)))
  (setq wz(getpoint"\n请在图面指定高程点位置"))
  (command "DRAWGCD" "" wz d ""  )
     (prin1)
  )
  (prompt "\n :云秀浪静提示你！成功加载文字采集高程点程序(命令：cgc)，有问题请联系云秀浪静，QQ：735800335")
    (prin1)

chenhuixo

顶你！！！！！！

纵横

太感谢了

yshf

2. 
   
3. ;应加加入判断
   
4. (defun C:cgc()
   
5.     ;控制AutoCAD 是否回显提示和输入。
   
6.     (setvar "cmdecho" 0)
   
7.     (vl-load-com)
   
8.     (setq e(entsel"\n请在图面上选择高程注记"))
   
9.     (setq th(entget e1 '("*")));读出所选图元的数据库数据及非图形数据
   
10.     (if (assoc 1 th)
    
11.         (progn
    
12.            (setq d (cdr (assoc 1 th)))
    
13.            (setq wz(getpoint"\n请在图面指定高程点位置"))
    
14.            (command "DRAWGCD" "" wz d ""  )
    
15.         )
    
16.     )
    
17.     (prin1)
    
18. )
    
19. (prompt "\n :云秀浪静提示你！成功加载文字采集高程点程序(命令：cgc)，有问题请联系云秀浪静，QQ：735800335")
    
20. (prin1)
    

<br /> ;应加加入判断<br /> (defun C:cgc() <br />     ;控制AutoCAD 是否回显提示和输入。<br />     (setvar "cmdecho" 0)<br />     (vl-load-com)<br />     (setq e(entsel"\n请在图面上选择高程注记"))<br />     (setq th(entget e1 '("*")));读出所选图元的数据库数据及非图形数据<br />     (if (assoc 1 th)<br />         (progn<br />            (setq d (cdr (assoc 1 th)))<br />            (setq wz(getpoint"\n请在图面指定高程点位置"))<br />            (command "DRAWGCD" "" wz d ""  )<br />         )<br />     )<br />     (prin1)<br /> )<br /> (prompt "\n :云秀浪静提示你！成功加载文字采集高程点程序(命令：cgc)，有问题请联系云秀浪静，QQ：735800335")<br /> (prin1)<br />