jdhszh 发表于 2008-3-28 20:03:00

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

<p>一个检查高程点高程和注记值是否相符的小程序，并可自动修改同时生成信息文件并显示。放弃回退即可</p><p>&nbsp;</p><p></p><p>加载运行命令GCD_ZJ 选择一高程 选择一注记 </p>

树櫴希德 发表于 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)
)

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

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

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

哦，测绘版块就你还在坚持。

sydney2000 发表于 2008-4-26 18:10:00

好东西，帮我省了好多时间，谢谢楼主。

east1118 发表于 2008-6-22 11:50:00

<p>感谢</p>

一梦千寻 发表于 2008-7-15 10:31:00

谢谢

qunaihan 发表于 2009-3-15 10:25:00

谢谢！试试是否好用！

joveme 发表于 2009-3-19 18:44:00

谢谢！！

quanyin 发表于 2009-4-5 11:27:00

非常感谢楼主，用了一下真的不错

mj2000 发表于 2009-5-9 16:27:00

感谢！

kmywl 发表于 2009-9-3 13:35:00

感谢！感谢！感谢！感谢！感谢！

CAD学习开发 发表于 2009-9-8 18:58:00

function XML() {
   
}
页: [1] 2 3 4
查看完整版本: [原创]一个检查高程点高程和注记值是否相符的小程序