[LISP程序]：一个简单好用的自动标注序号的程序

402326352

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                DrC(DrawCode)LISP程序                              ;;
;;;                By 罗邦杰   二００五年九月                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;       一个自动编写序号的程序，要求的参数为：                      ;;
;;;             1. 序号的高度                                         ;;
;;;             2. 序号的前缀                                         ;;
;;;             3. 序号的逐步等级（默认为"1")                         ;;
;;;             4. 序号的开始数字                                     ;;
;;;             5. 序号的最终结尾数字                                 ;;
;;;                                                                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun C:tt(/ p1 x1 y1 p2 x2 y2 pt t0 t1 t2 t3 e)
  (setq h  (getint "Enter Text Height:"))
  (setq t0 (getstring "Enter text Word:"))
  (setq t1 (getint "Enter Start Number:"))
  (setq t1 (itoa t1))
  (setq t2 (strcat t0 t1))
  (setq p1 (getpoint "Enter P1 Point:"))
  (setq x1 (car p1))
  (setq y1 (cadr p1))
  (setq p2 (getpoint "Enter p2 Point:"))
  (setq x2 (car p2))
  (setq y2 (cadr p2))
  (setq pt (list (/ (+ x1 x2) 2) (- (/ (+ y1 y2) 2) (/ h 2.0 ))))
  (command "osanp" "off" )
  (command "text" "j" "c" pt h "0" t2 )
  (command "osmode" 163 "")
  (setq p1 (getpoint "Enter P1 Point:"))
  (while ( /= p1 null)
    (progn
       (setq t1 (atoi t1))
       (setq t1 (+ t1 1))
       (setq t1 (itoa t1))
       (setq t2 (strcat t0 t1))
       (setq x1 (car p1))
       (setq y1 (cadr p1))
       (setq p2 (getpoint "Enter p2 Point:"))
       (setq x2 (car p2))
       (setq y2 (cadr p2))
       (setq pt (list (/ (+ x1 x2) 2) (- (/ (+ y1 y2) 2) (/ h 2.0 ))))
       (command "osnap" "off" )
       (command "text" "j" "c" pt h "0" t2 )
       (command "osmode" 163 "" )
       (setq p1 (getpoint "Enter P1 Point:"))
       (if (= p1 null)
         (exit)
         (princ)
       )
    )
  )
  (princ)
)
  ?

胖娃娃

下来看下。挺好用的哦！~~支持下，呵呵

xiaotang

谁能帮助调整一下，达到下面要求
. 序号的高度（默认为4，可直接回车默认，或重新输入）;;;
2. 序号的前缀 ;;
;;; 3. 序号的逐步等级（默认为"1") ;;
;;; 4. 序号的开始数字 ;;
;;; 5. 序号的最终结尾数字
直接标注在鼠标点击的地方，不用确定两点（命令: Enter P1 Point:Enter p2 Point）

402326352

;;;************以下为编号程序代码**************************************************************
(defun c:n()                                                                                 ;*
  (setq ColorCode (getint "\n请输入字体颜色代码(红1/黄2/绿3/青4/蓝5/紫6/白7):"))             ;*
  (command "-layer" "m" "编号" "c" "7" " " "")                                               ;*
  (command "-style""编号""romans""0""0.5""0""n""n""n")                                       ;*
  (command "osmode" "0")                                                                     ;*
  (command "_color" ColorCode)                                                               ;*
  (setq Radius (getdist  "\n请输入圆圈半径: "))                                              ;*
  (setq Num (getint "\n请输入起始编号:"))                                                    ;*
   (while (> ColorCode 0)                                                                    ;*
    (setq CenterPt (getpoint  "\n请指定下一个点: "))                                         ;*
     (if CenterPt                                                                            ;*
       (progn                                                                                ;*
         (command "circle" CenterPt Radius)                                                  ;*
         (command "text" "j" "m" CenterPt (* 1.2 Radius) "0"  Num)                           ;*
         (setq Num (+ Num 1))                                                                ;*
       )                                                                                     ;*
       (setq ColorCode 0)                                                                    ;*
     )                                                                                       ;*
  )
  (command "-layer" "m" "0" "c" "7" " " "")
  (command "-style""standard""宋体""0""1""0""n""n""n")
  (command "color" "bylayer")
  (command "osmode" "699")
  (princ)
)
;;;*******************************************

;;;************以下为新建圆形视口程序*************
(defun c:wc()
  (setq CenPt (getpoint  "\n请指定圆心: "))  
  (setq SenPt (getpoint  CenPt   "\n请指定圆周点: "))
  (command "-vports" "p" SenPt "a" "ce" CenPt "a" 359.99999 SenPt "cl")
  (princ)
)
;;;*******************************************

(defun c:tt()
    (command "undo" "1" )  
  (princ)
)

001_boy

可以提供一個修改數字排序的程式嗎

ccvcc

找了好久的LSP   用的挺顺的

sun197782

支持英文吗

jeson0113

不知怎么的，我的爱心币都没有了！下不了，郁闷！

ZHJ0034

很好用,能不能让数字在圆的外面....

zyg_box

2002支持吗

gyc2001

能演示一下吗？？？

lemonx

需要输入这么多参数还能算好用？

ysp1111

好东西，楼主把其他的都贴出来撒

3xxx

能够自带将pl线编号么？

lab_001

又一个件号标注程序,试试看
  命令：lable