可否快速写入某些文字？

琴剑江山_10184

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

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

freeok

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

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

鱼与熊掌

拜托拜托~

xyp1964

琴剑江山_10184

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

1. (defun c:A (/ A ANG B DD DST EN ENT OS P1 P2 PL PP SEL STR X10 X11)  
   
2.   (setvar "cmdecho" 0)
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (princ "\n文字加外圈")
   
6.   (if (setq sel (entsel "\n选择平行直线 <退出>:"))
   
7.     (progn
   
8.   (setq dd  (getdist "\n输入圆直径:"))
   
9.   (setq  x10 (cdr (assoc 10 (entget (car sel))))
   
10.   x11 (cdr (assoc 11 (entget (car sel))))
    
11.   ang (angle x10 x11)
    
12.   PL  (polar (cadr sel) (+ (/ pi 2) ang) dd)
    
13.   )
    
14.   (vl-cmdf "_ucsicon" "off")
    
15.   (setq str (getstring "\n输入文字:")
    
16.   dst (* dd 1.2))  
    
17.   (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pL) (cons 40 dst) (cons 50 ang)))
    
18.   (setq en (entlast))
    
19.   (vl-cmdf "ucs" "OB" en)
    
20.   (setq ent (entget en)
    
21.         pp  (textbox ent)
    
22.         p1  (car pp)
    
23.         p2  (cadr pp)
    
24.         pp  (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2))
    
25.   (vl-cmdf "circle" pp DD)
    
26.   (vl-cmdf "ucs" "w")
    
27.   (vl-cmdf "_ucsicon" "on")
    
28.   (setvar "osmode" os)
    
29.   )
    
30.     )
    
31.   (princ)
    
32.   )

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

freeok

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

非常感谢老兄。。。

freeok

也谢谢院长