打断插文字

hncjddd

;***打断插文字
(defun c:ddt ()
(setq th (getdist "\请输入文字高度:"))
(setq r(* th 1.25))
(setq t (getstring "请输入要插入的文字:"))
(setq h1 (entsel))
(setq h2 (getpoint"\n选择插入点:"))
(while h2
(command "circle" h2 r)
(setq na (entlast))
(command "trim" na "" h1"")
(command "text""J""M" h2 th""t)
(command "erase" na"")
(setq h1 (entsel))
(setq h2 (getpoint"\n选择插入点:"))
  )
)

hncjddd

;批量修改文字角度程序