Question

autolisp 关于怎么替换标注的文字

(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)
)
这个代码不能实现换标注里面内容的功能么？

Answer 1

文字内容代码为1

(defun c:b1() 

   (setq gj_list_32 (entget (car (entsel)))

         gj_text_old_32 (assoc 1 gj_list_32)

         gj_text_new_32 (cons 1 "%%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)

  )

(defun c:b1 ( / &k1 #k1 %k %k1 %k2)
 (setq &k1 (entsel "\n请选择文字"))
 (if (/= &k1 nil);如果有选择
  (progn
   (setq #k1 (entget (car &k1));取得属性列表
         %k (cdr (assoc 0 #k1));取得图元名
   )
   (if (= %k "TEXT");如果是文字
    (progn
     (setq %k1 (assoc 1 #k1);取得内容元素
           %k2 (cons 1 "%%1308@200(2)");文字替换内容
           #k1 (subst %k2 %k1 #k1);替换
     )
     (entmod #k1);刷新
    )
   )
  )
 )
 (prin1)
)

追问

那怎么实现直接标注出来的内容就是自己想要的呢？

那怎么实现直接标注出来的内容就是自己想要的呢？

追答

(entmake (list '(0 . "TEXT") (cons 1 #k) (cons 40 L) (cons 41 0.7) (cons 10 pt) (cons 7 "宋体") (cons 8 "A001") (cons 51 (* (/ pi 180) L1))));;生成文字;0文字；1内容；40文字长度；41文字比例；10文字插入点；7文字样式；8文字图层；51文字角度
根据以上直接生成文字，如果要生成多行文字(0 . "MTEXT")即可，TEXT是文字