大神帮忙看下

ferious

最后一步怎么没有更新标注显示？


(defun c:bz()
   (setvar "cmdecho" 0)
   (setq en (entsel "\n 选取尺寸标注"))
  
   (setq ZONGBIAO (entget (car en)))
        (setq OLDZIBIAO (assoc 42 ZONGBIAO))
             (setq OLDZIBIAOY (cdr OLDZIBIAO))
        (print OLDZIBIAOY)
             (princ "\n")
        (setq Y (getreal "\n 是否要更改尺寸？是请输入1.不是请输入0:"))
           (if (= Y 1)
              (progn (setq NEWZIBIAOY(getreal "\n 请输入新尺寸:"))
                       (setq ZONGBIAO (subst (cons 42 NEWZIBIAOY)  OLDZIBIAO  ZONGBIAO ))
                       (entmod ZONGBIAO)
                       
              )
              )
  (prin1)
  )

ferious

飞雪神光

42 是实际测量值 不能改 你这个要改1 文字替代 或者改 13 14

ferious

谢谢
http://bbs.mjtd.com/forum.php?mo ... DF%B4%E7&page=3

liuhe

2. (defun c:bz ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq en (entsel "\n 选取尺寸标注"))
   
5.   (setq ZONGBIAO (entget (car en)))
   
6.   (setq OLDZIBIAO (assoc 42 ZONGBIAO))
   
7.   (setq OLDZIBIAOY (cdr OLDZIBIAO))
   
8.   (print OLDZIBIAOY)
   
9.   (princ "\n")
   
10. (if (not (setq        NEWZIBIAOY
    
11.                  (getreal (strcat "\n 请输入新尺寸:<"
    
12.                                   (vl-princ-to-string OLDZIBIAOy)
    
13.                                   ">"
    
14.                           )
    
15.                  )
    
16.           )
    
17.      )
    
18.    (setq NEWZIBIAOY OLDZIBIAOy)
    
19. )
    
20.   (if (or (/= OLDZIBIAOY NEWZIBIAOY)
    
21.           (/= (vl-princ-to-string NEWZIBIAOY)
    
22.               (cdr (assoc 1 (entget (car en))))
    
23.           )
    
24.       )
    
25.     (progn
    
26.       (setq ZONGBIAO (subst (cons 1 (vl-princ-to-string NEWZIBIAOY))
    
27.                             (assoc 1 (entget (car en)))
    
28.                             (entget (car en))
    
29.                      )
    
30.       )
    
31.       (entmod ZONGBIAO)
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

(defun c:bz ()<br />   (setvar "cmdecho" 0)<br />   (setq en (entsel "\n 选取尺寸标注"))<br />   (setq ZONGBIAO (entget (car en)))<br />   (setq OLDZIBIAO (assoc 42 ZONGBIAO))<br />   (setq OLDZIBIAOY (cdr OLDZIBIAO))<br />   (print OLDZIBIAOY)<br />   (princ "\n")<br /> (if (not (setq        NEWZIBIAOY<br />                  (getreal (strcat "\n 请输入新尺寸:<"<br />                                   (vl-princ-to-string OLDZIBIAOy)<br />                                   ">"<br />                           )<br />                  )<br />           )<br />      )<br />    (setq NEWZIBIAOY OLDZIBIAOy)<br /> )<br />   (if (or (/= OLDZIBIAOY NEWZIBIAOY)<br />           (/= (vl-princ-to-string NEWZIBIAOY)<br />               (cdr (assoc 1 (entget (car en))))<br />           )<br />       )<br />     (progn<br />       (setq ZONGBIAO (subst (cons 1 (vl-princ-to-string NEWZIBIAOY))<br />                             (assoc 1 (entget (car en)))<br />                             (entget (car en))<br />                      )<br />       )<br />       (entmod ZONGBIAO)<br />     )<br />   )<br />   (princ)<br /> )

ferious

感谢各位大神，目前可以更改，还未学习到VLISP.

另外附上论坛前辈做的改尺寸，以及将修改尺寸变红。
还有一个问题就是，能否将修改后的尺寸按照新的数值重画并更新于屏幕？

飞雪神光

ferious 发表于 2023-10-20 08:54
感谢各位大神，目前可以更改，还未学习到VLISP.

另外附上论坛前辈做的改尺寸，以及将修改尺寸变红。

没太懂你的问题 图片里是修改的标注文字替代 且已经更新成功了 你要是想改实际测量值 需要去改13 或14 就没必要去改组码1

ferious

更改标注并移动基线

(defun c:gbz()
   (setvar "cmdecho" 0)
   (setq en (entsel "\n 选取尺寸标注"))
   (setq zongbiao (entget (car en)))
        (setq zibiao1 (assoc 42 zongbiao ))
             (setq dim(cdr zibiao1))
               （princ "\n 标注实测值："）(princ dim)
                         (setq dim(getreal "\n 请输入新尺寸:"))
                          (setq oldzibiao2 (assoc 14 zongbiao))
                  (setq oldzibiao3 (assoc 13 zongbiao))
                           (setq pt1 (cdr oldzibiao3))
                           (setq pt2 (cdr oldzibiao2))
                          (setq X1 (cdr pt1))
                           (setq pt2  (list  (+ dim  ) (cadr pt2) (caddr pt2)))
                          (setq newzibiao2 (cons 14 pt2 ))
                          (setq zongbiao (subst newzibiao2  oldzibiao2  zongbiao ))
                   (entmod zongbiao)
       
  (prin1)
  )

ferious

感谢大神指点
(defun c:gbz()
   (setvar "cmdecho" 0)
   (setq en (entsel "\n 选取尺寸标注"))
  
       (setq zongbiao (entget (car en)))
        (setq zibiao1 (assoc 42 zongbiao ))
             (setq dim(cdr zibiao1))
               （princ "\n 标注实测值："）(princ dim)
                         (setq dim(getreal "\n 请输入新尺寸:"))
                          (setq oldzibiao2 (assoc 14 zongbiao))
                  (setq oldzibiao3 (assoc 13 zongbiao))
                           (setq pt1 (cdr oldzibiao3))
                           (setq pt2 (cdr oldzibiao2))
                          (setq X1 (cdr pt1))
                           (setq pt2  (list  (+ dim  ) (cadr pt2) (caddr pt2)))
                          (setq newzibiao2 (cons 14 pt2 ))
                          (setq zongbiao (subst newzibiao2  oldzibiao2  zongbiao ))
                   (entmod zongbiao)
       
  (prin1)
  )

ferious

(defun c:gbz()
   (setvar "cmdecho" 0)
   (setq en (entsel "\n 选取尺寸标注"))
  
       (setq zongbiao (entget (car en)))
        (setq zibiao1 (assoc 42 zongbiao ))
             (setq dim(cdr zibiao1))
               （princ "\n 标注实测值："）(princ dim)
                         (setq dim(getreal "\n 请输入新尺寸:"))
                          (setq oldzibiao2 (assoc 14 zongbiao))
                  (setq oldzibiao3 (assoc 13 zongbiao))
                           (setq pt1 (cdr oldzibiao3))
                           (setq pt2 (cdr oldzibiao2))
                          (setq X1 (car pt1))
                           (setq pt2  (list  (+ dim x1 ) (cadr pt2) (caddr pt2)))
                          (setq newzibiao2 (cons 14 pt2 ))
                          (setq zongbiao (subst newzibiao2  oldzibiao2  zongbiao ))
                   (entmod zongbiao)
      
  (prin1)
  )