[原创]：针对cass7.0展高程点值文字大小的修改程序
cass7.0展的高程点是一个属性块，因此给修改高程值的文字高度带来不便，本程序实现修改高程值文字高度的功能。1、下载后将xggcdzg.lsp文件放在autocad支持搜索路径下
2、打开要修改的图形，然后在命令行键入 (load "xggcdzg.lsp")回车
3、加载成功后，在命令行键入xggcdzg回车后按提示操作即可。
欢迎下载，如有问题联系李先生，电话:13837185909 或至邮箱：ljttjl@tom.com 怎么下载不了，李先生能否把源码直接贴出来。 应该可以下载，下载时可能需要爱心币 好像确实不能下载噢！ ;;;本程序实现批量修改高程值文字大小,仅针对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 高程点的值大一点就算了，不太影响使用。 还有一些关于cass7.0展高程点的相关程序，详见：测绘信息网论坛 → 测绘软件专题 → AutoCAD二次开发 http://www.othermap.com/dvbbs 晕，也不知道能不能用 试试就知道了！ 我正需要这个东东啊，高程注记国家有标准的 感谢rgdj15188的关注与支持。 高程值大点可以用批量文字进行缩小,或改变比例尺的方法进行缩放 如果是刚展完点就觉得大小不合适，可以重新展一下，文件-CASS参数配置 里面设置字高；
如果是把别的东西绘上了不好重新展点，就全选图面后在特性里选GC200图块，重新设置X，Y的比例就可以了 我正好需要啊，谢谢了 真的有用的吗?楼主，一张图里高程点文字放大能用吗？
页:
[1]
2