一段程序“自动引线编号”的如何把数字出变成圆或者直线

lvrenfei

一段程序“自动引线编号”的如何把数字处变成圆或者直线的，现在是正方形的， 正方形不合标准。哪位大侠帮我修改下


(defun C:TX()
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq dd (getdist "\n正方形边长 <10>: "))
   (if (null dd) (setq dd 10))
   (setq num (getint "\n起始编号 <1>: "))
   (if (null num) (setq num 1))
   (setq dd2 (/ dd 5))
   (setq pt1 (getpoint "\n第一点: "))
   (while (/= pt1 nil)
      (command "donut" 0 dd2 pt1 "")
      (setq pt2 (getpoint pt1 "\n第二点: "))
      (command "line" pt1 pt2 "")
      (command "polygon" 4 "e" pt2 (polar pt2 0 dd))
      (setq en1 (entlast))
      (command "text" "m" (polar (polar pt2 0 (/ dd 2)) (/ pi 2) (/ dd 2))
                     (/ dd 2) 0 (itoa num))
      (setq en2 (entlast))
      (setq pp1 pt2)
      (setq pp2 (polar pp1 0 dd))
      (setq pp3 (polar pp2 (/ pi 2) dd))
      (setq pp4 (polar pp1 (/ pi 2) dd))
      (setq pp_0 (polar pp1 (/ pi 2) (/ dd 2)))
      (setq pp_90 (polar pp1 0 (/ dd 2)))
      (setq pp_180 (polar pp2 (/ pi 2) (/ dd 2)))
      (setq pp_270 (polar pp3 pi (/ dd 2)))
      (setq pp pt2)
      (setq ang (angle pt1 pt2))
      (cond ((and (> ang (* pi 0.5)) (< ang pi)) (setq pp pp2))
            ((and (> ang pi) (< ang (* pi 1.5))) (setq pp pp3))
            ((and (> ang (* pi 1.5)) (< ang (* pi 2))) (setq pp pp4)))
      (cond ((= ang 0) (setq pp pp_0))
            ((= ang (/ pi 2)) (setq pp pp_90))
            ((= ang pi) (setq pp pp_180))
            ((= ang (* pi 1.5)) (setq pp pp_270)))
      (command "move" en1 en2 "" pp pt2)
      (setq num (1+ num))
      (setq pt1 (getpoint "\n第一点: ")))
   (princ)
)

cabinsummer

看来最近关于标号的程序比较受人关注。可是我的大规模程序“明细表”有那么多方法反倒沉没了

xingyun300

http://bbs.mjtd.com/thread-92888-1-1.html

你看看这个贴子，上面有结果了，你可以直接用了

xyp1964

2. (defun c:tt ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setq dd (getdist "\n圆半径<10>: "))
   
7.   (if (null dd)
   
8.     (setq dd 10)
   
9.   )
   
10.   (setq num (getint "\n起始编号<1>: "))
    
11.   (if (null num)
    
12.     (setq num 1)
    
13.   )
    
14.   (setq dd2 (/ dd 5.))
    
15.   (while (setq pt1 (getpoint "\n第一点<退出>: "))
    
16.     (command "donut" 0 dd2 pt1 "")
    
17.     (setq pt2  (getpoint pt1 "\n第二点<退出>: ")
    
18.           pt2a (polar pt2 (angle pt2 pt1) dd)
    
19.     )
    
20.     (command "line" pt1 pt2a "")
    
21.     (command "circle" pt2 dd)
    
22.     (command "text" "m" pt2 (/ dd 2) 0 (itoa num))
    
23.     (setq num (1+ num))
    
24.   )
    
25.   (princ)
    
26. )

(defun c:tt ()<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq dd (getdist "\n圆半径<10>: "))<br />   (if (null dd)<br />     (setq dd 10)<br />   )<br />   (setq num (getint "\n起始编号<1>: "))<br />   (if (null num)<br />     (setq num 1)<br />   )<br />   (setq dd2 (/ dd 5.))<br />   (while (setq pt1 (getpoint "\n第一点<退出>: "))<br />     (command "donut" 0 dd2 pt1 "")<br />     (setq pt2  (getpoint pt1 "\n第二点<退出>: ")<br />           pt2a (polar pt2 (angle pt2 pt1) dd)<br />     )<br />     (command "line" pt1 pt2a "")<br />     (command "circle" pt2 dd)<br />     (command "text" "m" pt2 (/ dd 2) 0 (itoa num))<br />     (setq num (1+ num))<br />   )<br />   (princ)<br /> )

xyp1964

2. ;; 伪源码方式，需要e派工具箱的支持
   
3. (defun c:tt (/ p1 p2 p2a s1 s2 s3 s4)
   
4.   (cmdla0)
   
5.   (xyp-initSet '(dd num) '(10. 1))
   
6.   (setvar "osmode" 0)
   
7.   (setq        dd  (Udist 7 "" "圆半径<输入或鼠标直接量取>" dd nil)
   
8.         num (Uint 7 "" "起始编号" num)
   
9.   )
   
10.   (while (and (setq p1 (getpoint "\n第一点<退出>: "))
    
11.               (setq p2 (getpoint p1 "\n第二点<退出>: "))
    
12.          )
    
13.     (xyp-Group0)
    
14.     (setq p2a (polar p2 (angle p2 p1) dd)
    
15.           s1  (XYP-ENTMAKE-DONUT 0 (/ dd 5.) p1)
    
16.           s2  (xyp-line p1 p2a)
    
17.           s3  (xyp-circle p2 dd)
    
18.           s4  (xyp-Text 5 p2 (itoa num))
    
19.           num (1+ num)
    
20.     )
    
21.     (xyp-SubUpd s4 40 dd)
    
22.     (xyp-Group1)
    
23.   )
    
24.   (cmdla1)
    
25. )

;; 伪源码方式，需要e派工具箱的支持<br /> (defun c:tt (/ p1 p2 p2a s1 s2 s3 s4)<br />   (cmdla0)<br />   (xyp-initSet '(dd num) '(10. 1))<br />   (setvar "osmode" 0)<br />   (setq        dd  (Udist 7 "" "圆半径<输入或鼠标直接量取>" dd nil)<br />         num (Uint 7 "" "起始编号" num)<br />   )<br />   (while (and (setq p1 (getpoint "\n第一点<退出>: "))<br />               (setq p2 (getpoint p1 "\n第二点<退出>: "))<br />          )<br />     (xyp-Group0)<br />     (setq p2a (polar p2 (angle p2 p1) dd)<br />           s1  (XYP-ENTMAKE-DONUT 0 (/ dd 5.) p1)<br />           s2  (xyp-line p1 p2a)<br />           s3  (xyp-circle p2 dd)<br />           s4  (xyp-Text 5 p2 (itoa num))<br />           num (1+ num)<br />     )<br />     (xyp-SubUpd s4 40 dd)<br />     (xyp-Group1)<br />   )<br />   (cmdla1)<br /> )

lvrenfei

cabinsummer 发表于 2012-4-11 20:09
看来最近关于标号的程序比较受人关注。可是我的大规模程序“明细表”有那么多方法反倒沉没了

谢谢楼上同学的批评与支持，一定努力学习

皇上快溜

xyp1964 发表于 2012-4-11 22:20

你好，你这个程序，编号字符插入点pt2之外，可不可以帮我增设另外一个字符插入点，，，就像图片那样。至于字符内容 (itoa ，，，))我自己定义。谢谢你，我摸索了好久，一直没法定义那个点