yzr2002626 发表于 2009-7-12 11:41:00

请老大编个小程序

<div class="t_msgfont" id="postmessage_1750">框选个文字和一个圆，自动把那文字移动到那圆的中心。主要用于轴线和编号，索引</div>

ZZXXQQ 发表于 2009-7-16 12:15:00

试试看：

;文字移圆心 明经 ZZXXQQ 2009.7.16
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(if (and (princ "\n框选圆和文字")
          (setq ss (ssget '((0 . "CIRCLE,TEXT"))))
          (= (sslength ss) 2)) (progn
(setq en (ssname ss 0) ent (entget en))
(if (= (cdr(assoc 0 ent)) "TEXT")
   (setq en1 (ssname ss 1) ent1 (entget en1))
   (setq en1 en ent1 ent en (ssname ss 1) ent (entget en))
)
(setq pc (cdr(assoc 10 ent1))
      ptt (txtcen ent))
(setvar "OSMODE" 0)
(command ".move" en "" ptt pc)
))
(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
(princ)
)
(defun txtcen (ent2 / tmp pt ang t_h)
(setvar "TEXTSIZE" (cdr(assoc 40 ent2)))
(setq tmp (textbox (list (assoc 1 ent2)))
       pt(cdr (assoc 10 ent2))
       ang (cdr (assoc 50 ent2))
       t_h (* (cadadr tmp) 0.5))
(polar (polar pt ang (/ (+ (caadr tmp) (caar tmp)) 2)) (+ (/ PI 2) ang) t_h)
)

rbji 发表于 2009-7-16 15:21:00

<p>好东西</p><p></p>

yzr2002626 发表于 2009-7-16 20:12:00

那文字移动后位置不在那圆的中心与轴号那相比

ly8zx2109 发表于 2009-7-30 10:39:00

不是很好使，文字有点偏。

BSTWHX 发表于 2009-8-11 20:03:00

我也正需要呢,占了个便宜<br/><br/>

freehand8008 发表于 2012-7-17 17:59:37

顶个看看！！
页: [1]
查看完整版本: 请老大编个小程序