[编程申请]：求多线段自动编号的LSP程序

jban

1。我希望用PL画多线段时在每个点上自动编号；
2。我画的的线段如果是闭合图形的话，请对这个图形进行自动编号！见图！！

jban

图没有连接上，我重新上传一下！

li809

还是看不到

xxming

defun c:bh()
(setq  j 0 key 10)
(setq s1 (entsel"\n\t选择对象<退出>"))
(setq ent (entget(car s1)))
(if (or (= (cdr(assoc 0 ent))  "POLYLINE")
            (= (cdr(assoc 0 ent))  "LWPOLYLINE")
        )
(foreach xy ent
(if (eq (car xy) key)
   (progn
     (setq j (1+ j))
     (setq pe (cdr xy))
     (command "text" pe "50" "0" j)
   )
  )
)
(alert"\n选择类型错误,请重新选择")
)
)

开始处缺左括号，修改：by xyp1964[/COLOR]

2. [FONT=courier new](defun c:bh ()
   
3.   (setq        j   0
   
4.         key 10
   
5.         s1  (entsel "\n\t选择对象<退出>")
   
6.         ent (entget (car s1))
   
7.   )
   
8.   (if (or (= (cdr (assoc 0 ent)) "POLYLINE")
   
9.           (= (cdr (assoc 0 ent)) "LWPOLYLINE")
   
10.       )
    
11.     (foreach xy        ent
    
12.       (if (eq (car xy) key)
    
13.         (progn
    
14.           (setq        j  (1+ j)
    
15.                 pe (cdr xy)
    
16.           )
    
17.           (command "text" pe "50" "0" j)
    
18.         )
    
19.       )
    
20.     )
    
21.     (alert "\n选择类型错误,请重新选择")
    
22.   )
    
23. )[/FONT]

[FONT=courier new](defun c:bh ()<br />   (setq        j   0<br />         key 10<br />         s1  (entsel "\n\t选择对象<退出>")<br />         ent (entget (car s1))<br />   )<br />   (if (or (= (cdr (assoc 0 ent)) "POLYLINE")<br />           (= (cdr (assoc 0 ent)) "LWPOLYLINE")<br />       )<br />     (foreach xy        ent<br />       (if (eq (car xy) key)<br />         (progn<br />           (setq        j  (1+ j)<br />                 pe (cdr xy)<br />           )<br />           (command "text" pe "50" "0" j)<br />         )<br />       )<br />     )<br />     (alert "\n选择类型错误,请重新选择")<br />   )<br /> )[/FONT]

jban

谢谢XXming，自从用了CAD2006我的自动编号方法没有用了，这次真是太好了！

dwg001

可否增加选项，顺时针和逆时针两种。

xyp1964

对POLYLINE实体无效。

unbos2

XXMING写的程序怎么不用敲命令，一加载就直接运行了？

xxming

以前编了一个：可增加选项，顺时针和逆时针及任意起始点三种

wetower

怎么看不到呀