vlisp&测绘

修改高程值文字大小lisp源码

修改高程值文字大小lisp源码来源于网络,作者不可查,如果涉及侵权请邮件联系我。

;;;本程序实现批量修改高程值文字大小,仅针对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)

)


«   2019年2月   »
123
45678910
11121314151617
18192021222324
25262728
网站分类
搜索
文章归档
网站收藏
友情链接
  • RainbowSoft Studio Z-Blog
  • 订阅本站的 RSS 2.0 新闻聚合

Powered By Z-BlogPHP 1.5.1 Zero

Copyright 青云小站. Some Rights Reserved.【ICP备案:滇ICP备17005149号】【滇公网安备 53011202000333号