hncjddd 发表于 2019-4-21 12:49:10

打断插文字

;***打断插文字
(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 发表于 2019-4-21 13:08:55

;批量修改文字角度程序
页: [1]
查看完整版本: 打断插文字