[编程申请]：轴线标注序号

huiling6868

我有个轴线标注序号LISP程序,但只能标注1,2......方向的序号,A,B......不能标注,望那位高手能帮我完善,最好能框选轴线后自动生成轴号.
LISP
;====================================================================
(defun x1 ()

  (princ (strcat "\n序号标注程序, 版本号<2.30> "))
  (princ "\n键入X1顺序标注序号.")

;=============================================================================================
;选择标注形式
;   (setq id_model0 (strcat "\n直接回车标注<XY>任意键后回车<AB>"))
;  (setq id_model2 (getstring id_model0))
;   (if (equal "" id_model2)
;       (setq id_xx "X")(setq id_xx "A"))
;   (if (equal "" id_model2)
;       (setq id_yy "Y")(setq id_yy "B"))

;输入比例
   (if (equal nil XYSCALE_STR1)
       (setq XYSCALE_STR1 "1")
   )
   (setq XYSCALE_STR0 (strcat "\n输出比例<" XYSCALE_STR1 ">(1为1:100,2为1:200...):"))
   (setq XYSCALE_STR2 (getstring XYSCALE_STR0))
   (if (equal "" XYSCALE_STR2)
       (setq XYSCALE_STR1 XYSCALE_STR1)
       (setq XYSCALE_STR1 XYSCALE_STR2)
   )

;选择并标注所选坐标点
   (if (= nil ZHOU_HAO1)
       (setq ZHOU_HAO1 1)
   )
   (setq ZHOU_HAO0 (strcat "\n轴号由<" (RTOS ZHOU_HAO1 2 0) ">开始:"))
   (setq ZHOU_HAO2 (getREAL ZHOU_HAO0))
   (if (equal NIL ZHOU_HAO2)
       (setq ZHOU_HAO1 ZHOU_HAO1)
       (setq ZHOU_HAO1 ZHOU_HAO2)
    )
   (setq ID_POINT (getpoint "\n请点击第一点:"))
       (setq ID_X1 (car ID_POINT))
       (setq ID_y1 (cadr ID_POINT))   
         (SETQ ZHOU_HAO (RTOS ZHOU_HAO1 2 0))
         (command "insert" "轴号1" (list (car ID_POINT) (cadr ID_POINT)) XYSCALE_STR1 "" "0" ZHOU_HAO)
    ;设置循环
   (while ID_POINT
         (setq ID_POINT (getpoint "\n请点击下一点:"))
               (setq ID_X2 (car ID_POINT))
               (setq ID_y2 (cadr ID_POINT))
               (if (< (abs(- id_x2 id_x1)) 10) (setq ZHOU_HAO3 ZHOU_HAO1) (setq ZHOU_HAO3 (+ ZHOU_HAO1 1)))
         (SETQ ZHOU_HAO1 ZHOU_HAO3)
         (SETQ ZHOU_HAO (RTOS ZHOU_HAO1 2 0))
            (if (<= id_y2 id_y1)(command "insert" "轴号1" (list (car ID_POINT) (cadr ID_POINT)) XYSCALE_STR1 "" "0" ZHOU_HAO)
                (command "insert" "轴号2" (list (car ID_POINT) (cadr ID_POINT)) XYSCALE_STR1 "" "0" ZHOU_HAO))
         (setq id_x1 id_x2)
   );循环结束
)
;====================
(defun c:x1 () (x1))

最好能发到我的信箱:
huiling6868@163.com

yangmc

最初由 huiling6868 发布
[B]我有个轴线标注序号LISP程序,但只能标注1,2......方向的序号,A,B......不能标注,望那位高手能帮我完善,最好能框选轴线后自动生成轴号.
LISP
;==================================================================... [/B]

看看下面的演示，是否能符合你的要求：

huiling6868

谢谢2楼的,但我不想装别的程序,我只想做个LISP小程序把上面的完善一下.
     怎么没人回答.