[编程申请]：求一自动编号的LSP程序！！！谢谢

li_seagull

求一自动编号的LSP程序！！！谢谢

lsjjm

你的问题太笼统，什么编号？序号球？ 表格中的序号？ 说不清楚，别人怎么帮忙呀？

li_seagull

表格中的序号

ljylsx

;点取文本写说明序号
(defun c:xhs()
  ;
        (setq old_style (getvar "textstyle"))
        (setq new_style "standard")
  ;1.读取从几始<默认为：1>
          (setq xh_st (getint "\n从几开始<1>:"))
           (if (= xh_st nil) (setq xh_st 1)())
  ;2. 进行无限循环 1－穷
        (setq xx "y")
          (while (= xx "y")
       
  ;3.点取文本（并用过滤）
        (setq txt_sel (entget (car (entsel"点取文本:"))))
       
        (while (= txt_sel nil)   (setq txt_sel (entget (car (entsel"点取文本:")))))
  ;4.用（entget (car (entsel))）,得到文字表
        
  ;5.用（accsoc 项 列表）找到 （10. 文本左下角对齐点）（40 . 文本高）（41. 宽度比）
          (setq txt_wz (assoc 10 txt_sel))
        (setq txt_h (assoc 40 txt_sel))
           (setq txt_kd (assoc 41 txt_sel))
  ;6.用cdr读取 10.  40. 41.
          (setq wz (cdr txt_wz))
        (setq wz_x (car wz ) wz_y (cadr wz) wz_z (cddr wz))
  
          (setq h (cdr txt_h))
          (setq kd (cdr txt_kd))
  
           (setq xh_dx (* h 1.5))
   ;7.写号.
          (setq text_size (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
          
          (if (= text_size 0)
            (progn
            (setq xh_wz (mapcar '- wz (list xh_dx 0 0)))
            (command "text" "s" "standard"   xh_wz (* h 0.8) 0  (strcat (rtos  (fix xh_st) 2 0) ".") )
            )

            (progn
            (setq xh_wz (mapcar '- wz (list xh_dx 0 0)))
            (command "text" "s" "standard"   xh_wz 0  (strcat (rtos  (fix xh_st) 2 0) ".") )
            )
          )
            
          (setq xh_st (1+ xh_st))
        )
  ;8.重复3～7
  
  ;9.复原
  (setvar "textstyle" old_style)
)
; ----------- Creator : ljylsx  -----------

xyp1964

组成编号程序：
http://www.xdcad.net/forum/showthread.php?s=&threadid=279675