(更新6.09)[编程申请]：图上的数字都加上0.1

冬冬 · 发表于 2003-6-7 07:30:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

偶有一件麻烦事急寻大侠帮助!

偶费了好大劲在小区总图上注好了各处道路标高拿去给头,
头却说应该减小住宅室内外高差,这样每个道路标高都要修改了!

高差要减小0.1(如原标高为-0.700要改为-0.600),
若是没几种标高偶用cht改改也罢了,现在这个总图是个坡,
有20多种共50多个标高,改来改去就算不怕麻烦也怕改错呀,
现来向各位请教有无高招把我图上的数字都加上0.1呢?

(我的标高是用天正标注的,也就是普通的text, 而且该图层pub_dim中无其他文字)
:6

eachy · 发表于 2003-6-7 09:16:14

最初由冬冬发布
[B]偶有一件麻烦事急寻大侠帮助!

偶费了好大劲在小区总图上注好了各处道路标高拿去给头,
头却说应该减小住宅室内外高差,这样每个道路标高都要修改了!

高差要减小0.1(如原标高为-0.700要改为-0.600),
若是没几种... [/B]

以前帮一个朋友写到

[font=courier]
;;检查 .80.80 这样的数字，用来处理矢量化后图形中文字识别的问题
;;用前还要检查是否有一个高程识别成两个数字的情况
(defun c:chk_dot (/ ss n e str)
(xdrx_begin)
(xdrx_ucson)
(xdrx_sysvar_push "osmode")
(setq ss (ssget "x" '((0 . "text") (1 . ".*"))))
(setq n 0)
(if ss
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq str (xdrx_getentdxf 1))
(if (= (substr str 1 1) ".")
(progn
(if (numberp (read (substr str 2)))
(progn
(xdrx_modent 1 (xdrx_string_trimleft str "."))
(setq n (1+ n))
)
)
)
)
)
(if (not (zerop n))
(princ (strcat "\n共更新 " (itoa n) " 个文字"))
)
)
(princ "\n检查完毕，没有错误!")
)
(xdrx_sysvar_pop)
(xdrx_ucsoff)
(xdrx_end)
(princ)
)
;;对数字增加一个常数(正负均可)，使用前请先用上面的检查程序
;;检查数字，否则对 .80.80 这样的数字将出错.
(defun c:XDTB_taddn (/ ent n num ss num e oldstr newstr)
(xdrx_begin)
(xdrx_ucson)
(xdrx_sysvar_push "osmode")
(setq ent (xdrx_entsel "\n选择典型文字: " '((0 . "text"))))
(princ "\n选择范围[All - 全选]....")
(if ent
(progn
(setq
ss (ssget (list '(0 . "text") (assoc 8 (entget (car ent)))))
)
(setq n 0)
(if ss
(progn
(setq num (getreal "\n增加数值: "))
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq oldstr (xdrx_getentdxf 1))
(if (numberp (read oldstr))
(progn
(setq newstr (rtos (+ (read oldstr) num) 2 3))
(xdrx_modent 1 newstr)
(setq n (1+ n))
)
)
)
(if (not (zerop n))
(princ (strcat "\n共更新 " (itoa n) " 个数字!"))
)
)
)
(princ "\n没有选择文字!")
)
)
(xdrx_sysvar_pop)
(xdrx_ucsoff)
(xdrx_end)
(princ)
)[/font]

[font=courier] 
;;检查 .80.80 这样的数字，用来处理矢量化后图形中文字识别的问题 
;;用前还要检查是否有一个高程识别成两个数字的情况 
(defun c:chk_dot (/ ss n e str) 
  (xdrx_begin) 
  (xdrx_ucson) 
  (xdrx_sysvar_push "osmode") 
  (setq ss (ssget "x" '((0 . "text") (1 . ".*")))) 
  (setq n 0) 
  (if ss 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq str (xdrx_getentdxf 1)) 
        (if (= (substr str 1 1) ".") 
          (progn 
            (if        (numberp (read (substr str 2))) 
              (progn 
                (xdrx_modent 1 (xdrx_string_trimleft str ".")) 
                (setq n (1+ n)) 
              ) 
            ) 
          ) 
        ) 
      ) 
      (if (not (zerop n)) 
        (princ (strcat "\n共更新 " (itoa n) " 个文字")) 
      ) 
    ) 
    (princ "\n检查完毕，没有错误!") 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_ucsoff) 
  (xdrx_end) 
  (princ) 
) 
;;对数字增加一个常数(正负均可)，使用前请先用上面的检查程序 
;;检查数字，否则对 .80.80 这样的数字将出错. 
(defun c:XDTB_taddn (/ ent n num ss num e oldstr newstr) 
  (xdrx_begin) 
  (xdrx_ucson) 
  (xdrx_sysvar_push "osmode") 
  (setq ent (xdrx_entsel "\n选择典型文字: " '((0 . "text")))) 
  (princ "\n选择范围[All - 全选]....") 
  (if ent 
    (progn 
      (setq 
        ss (ssget (list '(0 . "text") (assoc 8 (entget (car ent))))) 
      ) 
      (setq n 0) 
      (if ss 
        (progn 
          (setq num (getreal "\n增加数值: ")) 
          (xdrx_setsstodb ss 0) 
          (while (setq e (xdrx_getentdata 0)) 
            (setq oldstr (xdrx_getentdxf 1)) 
            (if        (numberp (read oldstr)) 
              (progn 
                (setq newstr (rtos (+ (read oldstr) num) 2 3)) 
                (xdrx_modent 1 newstr) 
                (setq n (1+ n)) 
              ) 
            ) 
          ) 
          (if (not (zerop n)) 
            (princ (strcat "\n共更新 " (itoa n) " 个数字!")) 
          ) 
        ) 
      ) 
      (princ "\n没有选择文字!") 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_ucsoff) 
  (xdrx_end) 
  (princ) 
)[/font]

yyl_1 · 发表于 2003-6-22 20:31:07

或者在配详图时,将建筑标高同意降0.030的批处理程序.谢谢了.
对了,上面程序的怎么用呀?

coolzhb · 发表于 2003-6-27 17:01:07

到lisp程序版块下载我的文字修改大师，很容易搞定你的要求。
http://www.xdcad.net/forum/showthread.php?s=&threadid=51286
批量操作

habit · 发表于 2003-7-14 17:23:50

;程序功能:改高程数字,加一个值
(defun c：ggc( / la i a b)
  (setq add (getreal "输入要加的高程值:"))
  (setq la (ssget "X" '((0 . "TEXT")(8 . "10"))))             ;高程值都放在"10"层上
  (setq i 0)
  (repeat (sslength la)
(setq a (entget (ssname la i)))
(setq b (rtos (+ (atof (cdr (assoc 1 a))) add) 2 1))       ;加值
(setq a (subst (cons 1  b) (assoc 1 a) a))
(entmod a)
(setq i (1+ i))
  )
)

怎么不能用冒号？

chhm · 发表于 2003-8-3 11:21:12

我提供：能对数字进行四则运算的程序，我从别处下载得到，愿与大家分享。
此程序能对选定的数字进行四则运算。

ytjddd · 发表于 2004-11-16 11:42:41

太好了，我正好遇到这样的问题

zxf309 · 发表于 2004-11-25 12:48:46

(xdrx_begin)
(xdrx_ucson)
这2个是什么？？我编译时总是通不过啊，提示未定义。
是不是在某个环境下的函数？？

li809 · 发表于 2005-2-18 12:24:28

好，也经常遇到

xyp1964 · 发表于 2005-2-18 18:05:29

test048：高程增减 ★
http://www.xdcad.net/forum/showthread.php?s=&threadid=325268

li809 · 发表于 2005-2-19 12:59:09

楼上的也下了，也可以，谢谢

ss1025 · 发表于 2005-2-21 12:45:38

最初由 zxf309 发布
[B](xdrx_begin)
(xdrx_ucson)
这2个是什么？？我编译时总是通不过啊，提示未定义。
是不是在某个环境下的函数？？ [/B]

这两个是晓东工具箱中的自定义函数里的。要加载了晓东工具箱或者xdapi函数后才可以用。

账号		自动登录	找回密码
密码			立即注册

(更新6.09)[编程申请]：图上的数字都加上0.1

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：图上的数字都加上0.1