[求助]：求Qun能否把天正中“修改标高”移植到理正中

hoikin · 发表于 2004-9-5 23:47:20

接着会提示“是否把选中的6个楼层层高是否都加上差值[Yes or No]<Yes>”选No就可以了

hoikin · 发表于 2004-9-6 00:02:02

最后看看修改后的结构吧，所选的6个标高都改过来了。不过需要说明的是全部标高都需要在Pub_dim的那个层里才能用。

Qun · 发表于 2004-9-6 07:40:39

请传一个dwg图更好一些（压缩一下就可上传）。谢谢！

l19811102 · 发表于 2004-9-6 10:37:46

这个跟我的要求很相似啊，就是将所有选中的标注全部减去或加上一个数值！
http://www.xdcad.net/forum/showthread.php?s=&threadid=250583

hoikin · 发表于 2004-9-7 01:27:19

附上别墅区总图一份，dwg文件

Free-Lancer · 发表于 2004-9-7 06:36:09

可用于2.2正式版，升级后的不知道，也许每个版本的函数名不同，至于为什么不同就不得而知了。

所以吗还是不要自己写，有什么要求提出来，理正的服务是有目共睹的，另外函数名称可能不是一成不变的。

;;; 本程序可以窗口多选要改变层高的标注值，程序找出最下面的层高值，
;;;然后提示后的最下面层的层高
;;; 然后，计算出差值，连续修改选中的最下层及其上部各层的标注值
;;; c:e_chdim 连续改变立面层高标注值
;;; c:s_chdim 连续改变剖面层高标注值
;;; 两个命令基本相同，仅仅是提示不同
;;; 为考虑以后兼容，请朋友们把本程序保存为elev_chdim.lsp
(defun e_s_chdim (lay_prefix / pick_dim e el pt_min1 pt_min2 p10 newtxt
oldtxt chaval len tf chval1 i
)
(defun pick_dim (prefix / p1 p2 ss)
(prompt (strcat "\n请窗口选取要改变的" prefix "标高的文本:"))
(if (and
(setq p1 (getpoint "\n窗口第一点<退出>:"))
(setq p2 (getcorner p1 "\n窗口第二点<退出>:"))
)
(setq ss (ssget "c" p1 p2 (list (cons 8 (_rxsld_ "公共标注")) '
(0 . "TEXT")
)
)
)
)
)
(if (setq ss (pick_dim lay_prefix))
(progn
(_xdin3_ ss 0)
(prompt (strcat "\n选中了" (itoa (setq len (sslength ss)))
"个要改变的" lay_prefix "标高!"
)
)
(setq pt_min1 (getvar "extmin")
pt_min2 (polar pt_min1 0 10)
)
(while (setq e (_arcp0_ 0))
(redraw e 3)
(setq p10 (_vk_down_ 10)
dis1 (abs (cadr p10))
el (cons (list dis1 e) el)
)
)
(setq el (mapcar 'cadr (vl-sort el '(lambda (e1 e2) (< (car e1) (car e2))))))
(initget 1)
(_atop_ (car el))
(setq newtxt (getreal (strcat "\n请输入修改后最下层的标高<"
(setq oldtxt (_vk_down_ 1))
">:"
)
)
oldtxt (atof oldtxt)
tf nil
)
(if (/= newtxt oldtxt)
(progn
(setq chaval (- newtxt oldtxt))
(if (> len 1)
(progn
(initget "Yes No")
(if (not (setq tf (getkword (strcat "\n是否把选中的 "
(itoa len) " 个楼层层高是否都加上差值 "
(rtos chaval 2 3)
" [Yes or No]<Yes>:"
)
)
)
)
(setq tf "Yes")
)
)
)
(setq i -1)
(setq chaval1 chaval)
(while (car el)
(_atop_ (car el))
(if (= tf "Yes")
(progn
(setq chaval1 (+ (* (setq i (1+ i))
chaval
) chaval
)
)
)
)
(_lxa_ 1 (rtos (+ (atof (_vk_down_ 1)) chaval1) 2 3))
(redraw (car el) 4)
(setq el (cdr el))
)
)
(progn
(prompt "\n新旧标高相同，程序退出!")
(foreach n el
(redraw n 4)
)
)
)
)
)
(princ)
)
(defun c:e_chdim ()
(e_s_chdim "立面")
)
(defun c:s_chdim ()
(e_s_chdim "剖面")
)

;;; 本程序可以窗口多选要改变层高的标注值，程序找出最下面的层高值， 
;;;然后提示后的最下面层的层高 
;;; 然后，计算出差值，连续修改选中的最下层及其上部各层的标注值 
;;; c:e_chdim 连续改变立面层高标注值 
;;; c:s_chdim 连续改变剖面层高标注值 
;;; 两个命令基本相同，仅仅是提示不同 
;;; 为考虑以后兼容，请朋友们把本程序保存为elev_chdim.lsp 
(defun e_s_chdim (lay_prefix / pick_dim e el pt_min1 pt_min2 p10 newtxt 
                             oldtxt chaval len tf chval1 i 
                 ) 
  (defun pick_dim (prefix / p1 p2 ss) 
    (prompt (strcat "\n请窗口选取要改变的" prefix "标高的文本:")) 
    (if (and 
          (setq p1 (getpoint "\n窗口第一点<退出>:")) 
          (setq p2 (getcorner p1 "\n窗口第二点<退出>:")) 
        ) 
      (setq ss (ssget "c" p1 p2 (list (cons 8 (_rxsld_ "公共标注")) ' 
                                      (0 . "TEXT") 
                                ) 
               ) 
      ) 
    ) 
  ) 
  (if (setq ss (pick_dim lay_prefix)) 
    (progn 
      (_xdin3_ ss 0) 
      (prompt (strcat "\n选中了" (itoa (setq len (sslength ss))) 
                      "个要改变的" lay_prefix "标高!" 
              ) 
      ) 
      (setq pt_min1 (getvar "extmin") 
            pt_min2 (polar pt_min1 0 10) 
      ) 
      (while (setq e (_arcp0_ 0)) 
        (redraw e 3) 
        (setq p10 (_vk_down_ 10) 
              dis1 (abs (cadr p10)) 
              el (cons (list dis1 e) el) 
        ) 
      ) 
      (setq el (mapcar 'cadr (vl-sort el '(lambda (e1 e2) (< (car e1) (car e2)))))) 
      (initget 1) 
      (_atop_ (car el)) 
      (setq newtxt (getreal (strcat "\n请输入修改后最下层的标高<" 
                                    (setq oldtxt (_vk_down_ 1)) 
                                    ">:" 
                            ) 
                   ) 
            oldtxt (atof oldtxt) 
            tf nil 
      ) 
      (if (/= newtxt oldtxt) 
        (progn 
          (setq chaval (- newtxt oldtxt)) 
          (if (> len 1) 
            (progn 
              (initget "Yes No") 
              (if (not (setq tf (getkword (strcat "\n是否把选中的 " 
                                                  (itoa len) " 个楼层层高是否都加上差值 " 
                                                  (rtos chaval 2 3) 
                                                  " [Yes or No]<Yes>:" 
                                          ) 
                                ) 
                       ) 
                  ) 
                (setq tf "Yes") 
              ) 
            ) 
          ) 
          (setq i -1) 
          (setq chaval1 chaval) 
          (while (car el) 
            (_atop_ (car el)) 
            (if (= tf "Yes") 
              (progn 
                (setq chaval1 (+ (* (setq i (1+ i)) 
                                    chaval 
                                 ) chaval 
                              ) 
                ) 
              ) 
            ) 
            (_lxa_ 1 (rtos (+ (atof (_vk_down_ 1)) chaval1) 2 3)) 
            (redraw (car el) 4) 
            (setq el (cdr el)) 
          ) 
        ) 
        (progn 
          (prompt "\n新旧标高相同，程序退出!") 
          (foreach n el 
            (redraw n 4) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
) 
(defun c:e_chdim () 
  (e_s_chdim "立面") 
) 
(defun c:s_chdim () 
  (e_s_chdim "剖面") 
)

Qun · 发表于 2004-9-7 09:57:34

准备改进一下【单词替换】命令，再配合【图元过滤】筛选文字，应该可以解决这个问题！

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