请教怎么实现在多段线起始端点处添加一个文字序号

sulj2010

请教怎么实现在多段线起始端点处添加一个文字序号，比如框选5条多段线，自动在每条多段线的起始端点处添加一个1、2、3、4、5之类的序号！忘各位大侠指教！

该贴已经同步到 sulj2010的微博

ZZXXQQ

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
5.   (repeat (setq i (sslength ss))
   
6.    (setq ent (entget(ssname ss (setq i (1- i)))))
   
7.    (setq pt (cdr(assoc 10 ent)))
   
8.    (command "_.TEXT" pt "" "" (itoa (1+ i)))
   
9.   )
   
10. )
    
11. (setvar "CMDECHO" 1)
    
12. (princ)
    
13. )

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (repeat (setq i (sslength ss))<br />    (setq ent (entget(ssname ss (setq i (1- i)))))<br />    (setq pt (cdr(assoc 10 ent)))<br />    (command "_.TEXT" pt "" "" (itoa (1+ i)))<br />   )<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

易云网络

2. (defun c:ttb ()
   
3. 
   
4.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
5. (setq b 0)
   
6. (repeat (setq n  (sslength ss))
   
7. (setq a  (cdr (assoc 10 (entget (ssname ss (setq n (1- n))) '("*")))))
   
8. 
   
9. (setq #k (rtos  (setq b (1+ b))2 0))
   
10.   (entmake
    
11.           (list '(0 . "MTEXT") '(100 . "AcDbEntity")  '(100 . "AcDbMText")
    
12.             (cons 1 #k)        ;;文字内容
    
13.             (cons 40 3.)      ;;文字高度
    
14.             (cons 41 0.7)      ;;文字倾斜度
    
15.             (cons 10 a)       ;;文字插入点
    
16.             (cons 7 "standard");; 文字样式
    
17.             (cons 8 "0")       ;;文字图层
    
18.           )
    
19.         )
    
20. )
    
21. (princ)
    
22.   )

(defun c:ttb ()<br /> <br />   (setq ss (ssget '((0 . "LWPOLYLINE"))))<br /> (setq b 0)<br /> (repeat (setq n  (sslength ss))<br /> (setq a  (cdr (assoc 10 (entget (ssname ss (setq n (1- n))) '("*")))))<br /> <br /> (setq #k (rtos  (setq b (1+ b))2 0))<br />   (entmake <br />           (list '(0 . "MTEXT") '(100 . "AcDbEntity")  '(100 . "AcDbMText")<br />             (cons 1 #k)        ;;文字内容 <br />             (cons 40 3.)      ;;文字高度 <br />             (cons 41 0.7)      ;;文字倾斜度 <br />             (cons 10 a)       ;;文字插入点 <br />             (cons 7 "standard");; 文字样式 <br />             (cons 8 "0")       ;;文字图层 <br />           )<br />         )<br /> )<br /> (princ)<br />   )