文字加圈，出错了！循环不了。。。求助！

freeok

(defun C:JQ()
(setvar "cmdecho" 0)
(setq dd (getdist "\n 输入字间与圆周距离<2>: "))
(if (null dd) (setq dd 2.0))
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
        (setq ssn (ssname ss i))
        (setq ssdata (entget ssn))
        (setq sstyp (cdr (assoc 0 ssdata)))
        (if (= sstyp "TEXT")
            (progn
                 (command "ucs" "e" ssn)
                 (setq box (textbox ssdata)) ;取得文字外框坐标
                 (setq p1 (car box))
                 (setq p3 (cadr box))
                 (setq p2 (list (car p3) (cadr p1)))
                 (setq p4 (list (car p1) (cadr p3)))
                 (setq dda (+ (/ (distance p1 p2) 2) dd))
                 (setq cen (inters p1 p3 p2 p4))
                 (command "circle" cen dda)
           )
        )
   (setq i (1+i))
)
(command "ucs" "")
(prin1)
)


；；；；；
; 错误: no function definition: 1+I

琴剑江山_10184

1. (defun C:JQ (/ A B DD EN ENT LEN OS P1 P2 PL PP SS)
   
2.   (setvar "cmdecho" 0)
   
3.   (setq os (getvar 'osmode))
   
4.   (setvar 'osmode 0)
   
5.   (setq dd (getdist "\n 输入字间与圆周距离<2>: "))
   
6.   (if (null dd)
   
7.     (setq dd 2.0)
   
8.   )
   
9.   (setq  ss  (ssget '((0 . "TEXT")))
   
10.   Len (sslength ss)
    
11.   )  
    
12.   (repeat Len
    
13.     (setq en (ssname ss (setq Len (1- Len))))        
    
14.     (vl-cmdf "ucs" "OB" en)
    
15.     (setq ent (entget en)
    
16.           pp  (textbox ent)
    
17.           p1  (car pp)
    
18.           p2  (cadr pp)
    
19.           pL  (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)
    
20.           dr  (+ (/ (distance p1 p2) 2) dd)
    
21.     )
    
22.     (command "circle" pL dr)
    
23.   )
    
24.   (vl-cmdf "ucs" "W")
    
25.   (setvar 'osmode os)
    
26.   (prin1)
    
27. )
    
28. 
    
29. 
    
30. 
    
31. 
    
32. 
    
33. 
    

(defun C:JQ (/ A B DD EN ENT LEN OS P1 P2 PL PP SS)<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar 'osmode))<br />   (setvar 'osmode 0)<br />   (setq dd (getdist "\n 输入字间与圆周距离<2>: "))<br />   (if (null dd)<br />     (setq dd 2.0)<br />   )<br />   (setq  ss  (ssget '((0 . "TEXT")))<br />   Len (sslength ss)<br />   )  <br />   (repeat Len<br />     (setq en (ssname ss (setq Len (1- Len))))        <br />     (vl-cmdf "ucs" "OB" en)<br />     (setq ent (entget en)<br />           pp  (textbox ent)<br />           p1  (car pp)<br />           p2  (cadr pp)<br />           pL  (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)<br />           dr  (+ (/ (distance p1 p2) 2) dd)<br />     )<br />     (command "circle" pL dr)<br />   )<br />   (vl-cmdf "ucs" "W")<br />   (setvar 'osmode os)<br />   (prin1)<br /> )<br /> <br /> <br /> <br /> <br /> <br /> <br />

依然小小鸟

yaoyang1018 发表于 2016-6-24 15:33
确定字高后选出字中心点以字高的1.25倍画圈不就好了,我写过一个到现在还在用呢.而且无论多少数字都可以搞定 ...

能分享一下吗

llsheng_73

根据提示找到1+i你就知道为什么出错了

freeok

llsheng_73 发表于 2015-11-29 12:27
根据提示找到1+i你就知道为什么出错了

谢谢LLsheng 大师

freeok

llsheng_73 发表于 2015-11-29 12:27
根据提示找到1+i你就知道为什么出错了

大神，为什么出来是前者，而不是后者效果么？

434939575

2. (defun C:tt()
   
3. (setvar "cmdecho" 0)
   
4. (setq dd (getdist "\n 输入字间与圆周距离<2>: "))
   
5. ;
   
6.   (if (null dd) (setq dd 2.0)dd)
   
7. (setq ss (ssget))
   
8. (setq i 0)
   
9. (repeat (sslength ss)
   
10.         (setq ssn (ssname ss i))
    
11.         (setq ssdata (entget ssn))
    
12.   (setq text_hei (cdr(assoc 40 ssdata)))
    
13.         (setq sstyp (cdr (assoc 0 ssdata)))
    
14.         (if (= sstyp "TEXT")
    
15.             (progn
    
16.                  (command "ucs" "e" ssn)
    
17.                  (setq box (textbox ssdata)) ;取得文字外框坐标
    
18.                  (setq p1 (car box))
    
19.                  (setq p3 (cadr box))
    
20.                  (setq p2 (list (car p3) (cadr p1)))
    
21.                  (setq p4 (list (car p1) (cadr p3)))
    
22.                  (setq dda (+ (/ (distance p1 p2) 2) dd))
    
23.                  (setq cen (inters p1 p3 p2 p4))
    
24.                  (command "circle" cen (+ dd(* 0.5 text_hei)))
    
25.            )
    
26.         )
    
27.    (setq i (1+ i))
    
28. )
    
29. (command "ucs" "")
    
30. (prin1)
    
31. )
    

(defun C:tt()<br /> (setvar "cmdecho" 0)<br /> (setq dd (getdist "\n 输入字间与圆周距离<2>: "))<br /> ;<br />   (if (null dd) (setq dd 2.0)dd)<br /> (setq ss (ssget))<br /> (setq i 0)<br /> (repeat (sslength ss)<br />         (setq ssn (ssname ss i))<br />         (setq ssdata (entget ssn))<br />   (setq text_hei (cdr(assoc 40 ssdata)))<br />         (setq sstyp (cdr (assoc 0 ssdata)))<br />         (if (= sstyp "TEXT")<br />             (progn<br />                  (command "ucs" "e" ssn)<br />                  (setq box (textbox ssdata)) ;取得文字外框坐标<br />                  (setq p1 (car box))<br />                  (setq p3 (cadr box))<br />                  (setq p2 (list (car p3) (cadr p1)))<br />                  (setq p4 (list (car p1) (cadr p3)))<br />                  (setq dda (+ (/ (distance p1 p2) 2) dd))<br />                  (setq cen (inters p1 p3 p2 p4))<br />                  (command "circle" cen (+ dd(* 0.5 text_hei)))<br />            )<br />         )<br />    (setq i (1+ i))<br /> )<br /> (command "ucs" "")<br /> (prin1)<br /> )<br />

freeok

434939575 发表于 2015-11-29 18:23

谢谢兄弟回复，但是还有点不如意

freeok

434939575 发表于 2015-11-29 18:23

能否再看看。。。

freeok

这个也有问题了，第一圈的点不对，不删除此圈，第二个就是对的了

434939575

2. (defun C:tt()
   
3. (setvar "cmdecho" 0)
   
4. (setq dd (getdist "\n 输入字间与圆周距离<2>: "))
   
5. ;
   
6.   (if (null dd) (setq dd 2.0)dd)
   
7. (setq ss (ssget))
   
8. (setq i 0)
   
9. (repeat (sslength ss)
   
10.         (setq ssn (ssname ss i))
    
11.         (setq ssdata (entget ssn))
    
12.   (setq text_hei (cdr(assoc 40 ssdata)))
    
13.         (setq sstyp (cdr (assoc 0 ssdata)))
    
14.         (if (= sstyp "TEXT")
    
15.             (progn
    
16.                  (command "ucs" "e" ssn)
    
17.                  (setq box (textbox ssdata)) ;取得文字外框坐标
    
18.                  (setq p1 (car box))
    
19.                  (setq p3 (cadr box))
    
20.               (setq dis(/(distance p1 p3)2))
    
21.                  (setq p2 (list (car p3) (cadr p1)))
    
22.                  (setq p4 (list (car p1) (cadr p3)))
    
23.                  (setq dda (+ (/ (distance p1 p2) 2) dd))
    
24.                  (setq cen (inters p1 p3 p2 p4))
    
25.                  (command "circle" cen (+ dd dis))
    
26.            )
    
27.         )
    
28.    (setq i (1+ i))
    
29. )
    
30. (command "ucs" "")
    
31. (prin1)
    
32. )

(defun C:tt()<br /> (setvar "cmdecho" 0)<br /> (setq dd (getdist "\n 输入字间与圆周距离<2>: "))<br /> ;<br />   (if (null dd) (setq dd 2.0)dd)<br /> (setq ss (ssget))<br /> (setq i 0)<br /> (repeat (sslength ss)<br />         (setq ssn (ssname ss i))<br />         (setq ssdata (entget ssn))<br />   (setq text_hei (cdr(assoc 40 ssdata)))<br />         (setq sstyp (cdr (assoc 0 ssdata)))<br />         (if (= sstyp "TEXT")<br />             (progn<br />                  (command "ucs" "e" ssn)<br />                  (setq box (textbox ssdata)) ;取得文字外框坐标<br />                  (setq p1 (car box))<br />                  (setq p3 (cadr box))<br />               (setq dis(/(distance p1 p3)2))<br />                  (setq p2 (list (car p3) (cadr p1)))<br />                  (setq p4 (list (car p1) (cadr p3)))<br />                  (setq dda (+ (/ (distance p1 p2) 2) dd))<br />                  (setq cen (inters p1 p3 p2 p4))<br />                  (command "circle" cen (+ dd dis))<br />            )<br />         )<br />    (setq i (1+ i))<br /> )<br /> (command "ucs" "")<br /> (prin1)<br /> )

freeok

434939575 发表于 2015-11-29 19:39

还是不行呢，这个代码是以插入点（对齐点）为圆心画圆的。奇怪了。。。