琴剑江山_10184 发表于 2015-10-28 09:01:10

freeok 发表于 2015-10-27 22:49 static/image/common/back.gif
非常感谢！
但是效果还不是很好，文字齐了，但圆没齐。

自己动手改下，很简单的了，尝试下啊

freeok 发表于 2015-10-31 00:16:22

琴剑江山_10184 发表于 2015-10-28 09:01 static/image/common/back.gif
自己动手改下，很简单的了，尝试下啊

我只会画画瓢改个颜色啥的，这个不简单了，大师再次出下手吧，拜托了！

鱼与熊掌 发表于 2015-10-31 09:42:21

拜托拜托~

xyp1964 发表于 2015-10-31 10:25:38


琴剑江山_10184 发表于 2015-10-31 14:40:45

freeok 发表于 2015-10-31 00:16 static/image/common/back.gif
我只会画画瓢改个颜色啥的，这个不简单了，大师再次出下手吧，拜托了！

(defun c:A (/ A ANG B DD DST EN ENT OS P1 P2 PL PP SEL STR X10 X11)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n文字加外圈")
(if (setq sel (entsel "\n选择平行直线 <退出>:"))
    (progn
(setq dd(getdist "\n输入圆直径:"))
(setqx10 (cdr (assoc 10 (entget (car sel))))
x11 (cdr (assoc 11 (entget (car sel))))
ang (angle x10 x11)
PL(polar (cadr sel) (+ (/ pi 2) ang) dd)
)
(vl-cmdf "_ucsicon" "off")
(setq str (getstring "\n输入文字:")
dst (* dd 1.2))
(entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pL) (cons 40 dst) (cons 50 ang)))
(setq en (entlast))
(vl-cmdf "ucs" "OB" en)
(setq ent (entget en)
      pp(textbox ent)
      p1(car pp)
      p2(cadr pp)
      pp(mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2))
(vl-cmdf "circle" pp DD)
(vl-cmdf "ucs" "w")
(vl-cmdf "_ucsicon" "on")
(setvar "osmode" os)
)
    )
(princ)
)

freeok 发表于 2015-10-31 22:34:27

琴剑江山_10184 发表于 2015-10-31 14:40 static/image/common/back.gif


非常感谢老兄。。。

freeok 发表于 2015-10-31 22:35:55

也谢谢院长
页: 1 [2]
查看完整版本: 可否快速写入某些文字？