怎么替换标注里面的内容呢？

bingshuier

(defun c:b1()
   (setq gj_list_32 (entget (car (entsel)))
         gj_text_old_32 (assoc 42 gj_list_32)
         gj_text_new_32 (cons 42 "%%1308@200(2)") ;用于8间距200，一级钢
         gj_list_32 (subst gj_text_new_32 gj_text_old_32 gj_list_32)
    )
  (entmod gj_list_32)
  (princ)
  )
这种代码好像实现不了呢？

ZZXXQQ

2. (defun c:b1()
   
3.    (setq gj_list_32 (entget (car (entsel "\n选择标注: ")))
   
4.          gj_text_new_32 (cons 1 "%%1308@<>(2)") ;用于8间距200，一级钢
   
5.     )
   
6.   (entmod (subst gj_text_new_32 (assoc 1 gj_list_32) gj_list_32))
   
7.   (princ)
   
8. )
   

(defun c:b1() <br />    (setq gj_list_32 (entget (car (entsel "\n选择标注: ")))<br />          gj_text_new_32 (cons 1 "%%1308@<>(2)") ;用于8间距200，一级钢<br />     )<br />   (entmod (subst gj_text_new_32 (assoc 1 gj_list_32) gj_list_32))<br />   (princ)<br /> )<br />

xyp1964

2. (defun c:tt ()
   
3.   (setq gj_list_32 (entget (car (entsel)))
   
4.         gj_text_old_32 (assoc 1 gj_list_32)
   
5.         gj_text_new_32 (cons 1 "8%%130@200(2)") ;用于8间距200，一级钢
   
6.         gj_list_32 (subst gj_text_new_32 gj_text_old_32 gj_list_32)
   
7.   )
   
8.   (entmod gj_list_32)
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   (setq gj_list_32 (entget (car (entsel)))<br />         gj_text_old_32 (assoc 1 gj_list_32)<br />         gj_text_new_32 (cons 1 "8%%130@200(2)") ;用于8间距200，一级钢<br />         gj_list_32 (subst gj_text_new_32 gj_text_old_32 gj_list_32)<br />   )<br />   (entmod gj_list_32)<br />   (princ)<br /> )

ll_j

1. (defun c:nt()(command "dim1" "newtext"))

(defun c:nt()(command "dim1" "newtext"))

bingshuier

那又怎么实现标注出来的文字内容是自己想要的的呢？

bingshuier

xyp1964 发表于 2014-7-15 07:56

那又怎么实现标注出来的文字内容是自己想要的的呢？

1993063

(Defun C:b1 (/ pt1 pt2 gj_list_32 gj_text_new_32)
  (setq pt1 (Getpoint "\n指定第一条尺寸界线原点:"))
  (setq pt2 (Getpoint pt1 "\n指定第二条尺寸界线原点:"))
  (Command "DIMLINEAR" pt1 pt2 pause)
  (setq        gj_list_32     (entget (entlast))
        gj_text_new_32 (cons 1 "%%1308@<>(2)")
  )
  (entmod
    (subst gj_text_new_32 (assoc 1 gj_list_32) gj_list_32)
  )
  (princ)
)

xyp1964

2. (defun c:tt ()
   
3.   (setq en  (entget (car (entsel)))
   
4.         old (assoc 1 en)
   
5.         en  (subst (cons 1 "%%c8@200(2)") (assoc 1 en) en)
   
6.   )
   
7.   (entmod en)
   
8.   (princ)
   
9. )

(defun c:tt ()<br />   (setq en  (entget (car (entsel)))<br />         old (assoc 1 en)<br />         en  (subst (cons 1 "%%c8@200(2)") (assoc 1 en) en)<br />   )<br />   (entmod en)<br />   (princ)<br /> )

bingshuier

xyp1964 发表于 2014-7-16 13:14

需要的是%%132，这个符号，但是在多行文字不能正常显示，只能在单行文字才正常显示，这个符号是结构设计的探索者软件带的！    只有在把标注炸成单行文字了才能正常显示！这个要怎么处理呢？？？？？

bingshuier

1993063 发表于 2014-7-16 08:59
(Defun C:b1 (/ pt1 pt2 gj_list_32 gj_text_new_32)
  (setq pt1 (Getpoint "\n指定第一条尺寸界线原点:" ...

需要的是%%132，这个符号，但是在多行文字不能正常显示，只能在单行文字才正常显示，这个符号是结构设计的探索者软件带的！    只有在把标注炸成单行文字了才能正常显示！这个要怎么处理呢？？？？？