;;以含有输入内容的文本坐标为基准，插入指定的图块
;;主要语句取材chtext.lsp

(defun c:Tb (/ last_o tot_o ent o_str n_str st s_temp n_slen o_slen si chf chm cont ans class ename sta_x sta_y pt name1 x_offset y_offset)
                      
;; Select objects if running standalone

  (setq name1 nil)
  (if obj_block
    (progn
      (princ "\n请点选将要插入的块(默认块为<")
      (princ obj_block )
      (princ ">):")  )
    (print "请点选将要插入的块:"))
  (while (= name1 nil)
    (progn
      (setq p1 (getpoint ))
      (if p1
 (progn
   (setq name1 (ssname (ssget p1) 0))
   (setq ent (entget name1))
   (setq obj_block_temp   (cdr (assoc 2 ent)))

   (if obj_block_temp (setq obj_block obj_block_temp)
     (print "没有图块被选中，重新选择")
     )

   )
 (if obj_block (setq name1 1))
 )
      )
    )

  (princ "\n\t你将插入的图块名称为:《")
  (PRINC obj_block)
  (princ "》")
 

  (princ "\n请框选作为基准坐标的文字范围")
  (setq objs (ssget (list(cons 0 "TEXT")(cons 100 "AcDbText"))))
  (setq chm 0)              ;统计工作次数
  (if objs    
    (progn                                 ;; If any objects selected
      (if (= (type objs) 'ENAME)           ;如果objs为一个实体名
        (progn
          (setq ent (entget objs))         ;将以OBJS为名的表抽出放入ENT
          (princ (strcat "\nExisting string: " (cdr (assoc 1 ent))))
        )       ;搜出ENT中的文字内容
        (if (= (sslength objs) 1)    ;又或OBJS集合里只有一个内容
          (progn
            (setq ent (entget (ssname objs 0)))   ;将集里的东西的表抽出
            (princ (strcat "\nExisting string: " (cdr (assoc 1 ent))))
          )       ;将其文字内容搜出来
        )
      )
      (setq o_str (getstring "\n匹配的字符内容   : " t))   ;匹配的字符内容输入！      (setq x_offset 0  y_offset 0)
      (setq x_offset (getint "\n输入“X”偏移量（整数）: "))           ;输（整数）！
      (setq y_offset (getint "\n输入“Y”偏移量（整数）: "))           ;输（整数）！
      (if (= x_offset nil) (setq x_offset 0))
      (if (= y_offset nil) (setq y_offset 0))
      (setq o_slen (strlen o_str))    ;求输入的字长
      (if (/= o_slen 0)      ;字长为非0
        (progn       ;则
          (setq last_o 0
                tot_o  (if (= (type objs) 'ENAME)  ;tot_o设为集合的实体数量
                         1
                         (sslength objs)
                       )
          )
                 ;; For each selected object...
          (while (< last_o tot_o
      )
     (setq ename (ssname objs last_o))
            (setq class (cdr (assoc 0 (setq ent (entget ename)))))
            (if (or (= "TEXT" class)    ;ENT为被动手术的表
                    (= "MTEXT" class) )
              (progn
                (setq chf nil si 1)
                (setq s_temp (cdr (assoc 1 ent)))  ;ENT中的文字内容
                (while (= o_slen (strlen (setq st (substr s_temp si o_slen))))
                  (if (= st o_str)    ;o_slen为输入旧的串的长
                    (progn     ;比较！

                      (setq chf t)       ;; 标记Found old string
                      (setq si (+ si o_slen))   ;指针往下跳
                    )
                    (setq si (1+ si))    ;若不同，则指针只跳一
                  )
                )
                (if chf
                  (progn                 ;; 替代 new string for old
                          ;; 开始插入块
                    (print "TEXT:")
                    (print (cdr (assoc 1 ent)))
      (setq class (cdr (assoc 10 ent)))
      (setq sta_x (car class)
     sta_y (car (cdr class)))
      (setq sta_x (+ sta_x x_offset))
      (setq sta_y (+ sta_y y_offset))     
      (setq pt (list sta_x sta_y))
                    (print "位置:")
                    (print pt)     
      (command "insert" obj_block pt "" "" "")
                    (setq chm (1+ chm))    ;统计修改次数
                  )
                )
              )
            )
            (setq last_o (1+ last_o))    ;做下一个目标的手术
          )
        )
               ;; else go on to the next line...
      )
    )
  )
  (print)
  (if (/= (type objs) 'ENAME)
            ;; Print total lines changed
    (if (/= (sslength objs) 1)
      (princ (strcat (rtos chm 2 0) " 个图块插入"))
    )
  )
  (terpri)
)
(PRINC "\n\t Insert the block on the text you select.")
(princ "\n\tTB command loaded.")
(princ)

评论