明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 13066|回复: 39

[原创]一个检查高程点高程和注记值是否相符的小程序

    [复制链接]
发表于 2008-3-28 20:03 | 显示全部楼层 |阅读模式

一个检查高程点高程和注记值是否相符的小程序,并可自动修改同时生成信息文件并显示。放弃回退即可

 

加载运行命令GCD_ZJ 选择一高程 选择一注记

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2022-10-20 16:19 | 显示全部楼层
本帖最后由 树櫴希德 于 2022-10-20 16:21 编辑
  1. ;|
  2. 将程序以ggcys.lsp存盘,在CASS中有appload命令加载此程序,
  3. 再一命令行中键入ggcys回车即可使用。输入颜色
  4. 变颜色的GC200块中高程文本即达到要求。
  5. |;
  6. ;
  7. (defun c:ggcys(  /  gcz zz 10zu)
  8.     (vl-load-com)
  9.     (setq cmd (getvar "cmdecho"))
  10.     (setvar "cmdecho" 0)
  11.     (command "_undo" "be")
  12.     (if (setq col (getint "\n请输入颜色号[0~255]<0>:"))
  13.     (if (<= 0 col 255)
  14.         (if (setq ssa (ssget '((0 . "INSERT") (2 . "GC200") (-3 ("SOUTH" )))))
  15.       (progn
  16.          (setq  n  (sslength ssa)   i 0)
  17.                      (repeat n
  18.                         (setq ent (entnext (ssname ssa i))
  19.                   号,选择要改      vob (vlax-ename->vla-object ent)
  20.                         )
  21.            (setq 10zu (assoc 10(entget(ssname ssa i) )))
  22.                      (setq gcz (last 10zu ))
  23.            (setq zz (read(cdr(assoc 1(entget ent))))      )
  24.                      (if (equal gcz zz 0.0100) "YES! ! " (progn (vla-put-color vob col)
  25.                         (vla-update vob)
  26.         (entmake         (list  '(0 . "CIRCLE")       ; 图元形态
  27.        '(8 . "ccgcd")

  28.                        '(62 . 1)                    ; 颜色

  29.                       10zu        ; 圆心

  30.                       '(40 . 10)                  ; 半径

  31.                        )

  32.       )        
  33.              )  ;;;;
  34.            )
  35.            
  36.                         
  37.                         (setq i (1+ i))
  38.                      )
  39.       )
  40.         )
  41.     )
  42.     )
  43.     (command "_undo" "e")
  44.     (setvar "cmdecho" cmd)
  45.     (princ)
  46. )

发表于 2016-10-23 15:36 | 显示全部楼层
请发个源码,楼主,急用,感谢QQ:597223788
发表于 2022-10-20 16:43 | 显示全部楼层
哦,测绘版块就你还在坚持。
发表于 2008-4-26 18:10 | 显示全部楼层
好东西,帮我省了好多时间,谢谢楼主。
发表于 2008-6-22 11:50 | 显示全部楼层

感谢

发表于 2008-7-15 10:31 | 显示全部楼层
谢谢
发表于 2009-3-15 10:25 | 显示全部楼层
谢谢!试试是否好用!
发表于 2009-3-19 18:44 | 显示全部楼层
谢谢!!
发表于 2009-4-5 11:27 | 显示全部楼层
非常感谢楼主,用了一下真的不错
发表于 2009-5-9 16:27 | 显示全部楼层
感谢!
发表于 2009-9-3 13:35 | 显示全部楼层
感谢!感谢!感谢!感谢!感谢!
发表于 2009-9-8 18:58 | 显示全部楼层
function XML() {
    [native code]
}
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 08:05 , Processed in 0.508934 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表