spp_wall 发表于 2014-9-10 17:10:09

wmz 发表于 2014-7-4 08:58 static/image/common/back.gif
(vl-load-com)

;;;测点高程值与高程注记匹配


在08怎么无法用呢

zhangxin0298 发表于 2016-10-23 15:27:55

楼主，能分享下原代码吗？

zhangxin0298 发表于 2016-10-23 15:34:49

支持楼主共享源码

zhangxin0298 发表于 2016-10-23 15:36:36

请发个源码，楼主，急用，感谢QQ:597223788

jxy308 发表于 2016-10-25 17:44:43

楼主辛苦，支持下

yoyoho 发表于 2017-8-20 08:57:50

支持楼主分享源码!!!!

乡村小溪 发表于 2022-10-10 07:42:36

感谢楼主分享源码

树櫴希德 发表于 2022-10-20 16:19:28

本帖最后由 树櫴希德 于 2022-10-20 16:21 编辑

;|
将程序以ggcys.lsp存盘，在CASS中有appload命令加载此程序，
再一命令行中键入ggcys回车即可使用。输入颜色
变颜色的GC200块中高程文本即达到要求。
|;
;
(defun c:ggcys(/gcz zz 10zu)
    (vl-load-com)
    (setq cmd (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (command "_undo" "be")
    (if (setq col (getint "\n请输入颜色号<0>:"))
    (if (<= 0 col 255)
      (if (setq ssa (ssget '((0 . "INSERT") (2 . "GC200") (-3 ("SOUTH" )))))
      (progn
         (setqn(sslength ssa)   i 0)
                     (repeat n
                        (setq ent (entnext (ssname ssa i))
                  号，选择要改      vob (vlax-ename->vla-object ent)
                        )
         (setq 10zu (assoc 10(entget(ssname ssa i) )))
                     (setq gcz (last 10zu ))
         (setq zz (read(cdr(assoc 1(entget ent))))      )
                     (if (equal gcz zz 0.0100) "YES! ! " (progn (vla-put-color vob col)
                        (vla-update vob)
      (entmake         (list'(0 . "CIRCLE")       ; 图元形态
       '(8 . "ccgcd")

                     '(62 . 1)                  ; 颜色

                      10zu      ; 圆心

                      '(40 . 10)                  ; 半径

                     )

      )      
             );;;;
         )
         
                        
                        (setq i (1+ i))
                     )
      )
      )
    )
    )
    (command "_undo" "e")
    (setvar "cmdecho" cmd)
    (princ)
)

gzxl 发表于 2022-10-20 16:43:22

哦，测绘版块就你还在坚持。
页: 1 2 3 [4]
查看完整版本: [原创]一个检查高程点高程和注记值是否相符的小程序