[原创]：针对cass7.0展高程点值文字大小的修改程序

ljttjl

cass7.0展的高程点是一个属性块，因此给修改高程值的文字高度带来不便，本程序实现修改高程值文字高度的功能。

1、下载后将xggcdzg.lsp文件放在autocad支持搜索路径下

2、打开要修改的图形，然后在命令行键入 (load "xggcdzg.lsp")  回车   


3、加载成功后，在命令行键入  xggcdzg  回车后按提示操作即可。

欢迎下载，如有问题联系李先生，电话:13837185909 或至邮箱：ljttjl@tom.com

zbweixkj

怎么下载不了，李先生能否把源码直接贴出来。

ljttjl

应该可以下载，下载时可能需要爱心币

WSHYDQZ

好像确实不能下载噢！

ljttjl

;;;本程序实现批量修改高程值文字大小,仅针对cass7.0展高程点值文字大小修改
(defun c:xggcdzg ( )
  (setvar "errno" 0)
  (setq olderr *error*)
  (defun *error* (msg)
    (princ "\n已取消修改!")
    (setq *error* olderr)
    (princ)
  )
  
  (initget 7)
  (setq b1 (getint "请输入高程标注值文本高度: "))
  (initget 7)
  (setq b2 (getreal "请输入高程标注值文本宽度比例因子: "))

  (if (and b1 b2)
    (progn
      (vl-load-com)
      (setq s (ssget "x" '((0 . "INSERT")(8 . "GCD"))))
      (setq s1 (sslength s))
      (setq i 0)
      (while (< i s1)
        (setq s2 (ssname s i))

        (setq t1 (vlax-ename->vla-object s2))
        (setq t2 (vla-GetAttributes t1))
        (setq t3 (vlax-variant-value t2))
        (setq t4 (vlax-safearray->list t3))
        (setq t5 (car t4))
       
        (vla-put-height t5 b1)
        (vla-put-ScaleFactor t5 b2)


        (vla-update t5)
       
        (setq i (1+ i))
      )
      (princ "\n已修改完成!")
    )
  )
  (princ)
)

还有一些关于cass7.0修改高程点的程序，详见：测绘信息网论坛 → 测绘软件专题 → AutoCAD二次开发  http://www.othermap.com/dvbbs

homy

高程点的值大一点就算了，不太影响使用。

ljttjl

还有一些关于cass7.0展高程点的相关程序，详见：测绘信息网论坛 → 测绘软件专题 → AutoCAD二次开发    http://www.othermap.com/dvbbs

stsjn

晕，也不知道能不能用

ljttjl

试试就知道了！

rgdjl5188

我正需要这个东东啊，高程注记国家有标准的

ljttjl

感谢rgdj15188的关注与支持。

TSZ2004

高程值大点可以用批量文字进行缩小,或改变比例尺的方法进行缩放

zhanghui1104

如果是刚展完点就觉得大小不合适，可以重新展一下，文件-CASS参数配置 里面设置字高；
如果是把别的东西绘上了不好重新展点，就全选图面后在特性里选GC200图块，重新设置X，Y的比例就可以了

dengtianen

我正好需要啊，谢谢了

yjwxb

真的有用的吗?楼主，一张图里高程点文字放大能用吗？