[编程申请]：求编一个标注里程的小程序回复

yshf

;请试用以下程序,并按下面提示输入数据
; 请指定用于里程定向的点:(必须是第一个横断面设计顶面线的中点)
; 请输入定向点的里程:1870
; 请指定里程标注点距横断面线中点的距离:10
; 请输入标注文字的高度<默认为2.5>:1
; 请指定横断面线的中点:

2. 
   
3. (defun c:cc()
   
4.     (setq cm (getvar "cmdecho") os (getvar "osmode"))
   
5.     (setvar "cmdecho" 0)(setvar "osmode" 2)
   
6.     (setq p0 (getpoint "\n 请指定用于里程定向的点:")
   
7.           s0 (getreal "\n 请输入定向点的里程:")
   
8.           dd (getdist "\n 请指定里程标注点距横断面线中点的距离:")
   
9.           hg (getreal "\n 请输入标注文字的高度<默认为2.5>:")
   
10.     )
    
11.     (command "undo" "be")
    
12.     (if (= hg nil)(setq hg 2.5))
    
13.     (while (setq p1 (getpoint "\n 请指定横断面线的中点:"))
    
14.         (setq ds (+ s0 (distance p0 p1))      k (fix (/ ds 1000.0))
    
15.               ds (/ (+ 0.5 (* 1000.0 (- ds (* k 1000.0)))) 1000.0)
    
16.               m  (fix ds)
    
17.               ds (fix (* 1000.0 (- ds m)))
    
18.               z1 (itoa m)              z2 (itoa ds)
    
19.         )
    
20.         (setvar "osmode" 0)
    
21.         (while (< (strlen z1) 3) (setq z1 (strcat "0" z1)))
    
22.         (while (< (strlen z2) 3) (setq z2 (strcat "0" z2)))
    
23.         (setq zfc (cond ((= z2 "0") (strcat "K" (itoa k) "+" z1))
    
24.                         (t          (strcat "K" (itoa k) "+" z1 "." z2))
    
25.                   )
    
26.         )
    
27.         (setvar "osmode" 0)
    
28.         (command "text" (mapcar '+ p1 (list 0 (* -1.0 dd))) hg 0 zfc
    
29.                  "chprop" (entlast) "" "c" "2" ""
    
30.         )
    
31.         (setvar "osmode" 2)   
    
32.      )
    
33.      (command "undo" "e")
    
34.      (setvar "cmdecho" cm)(setvar "osmode" os)(princ)
    
35. )

<br /> (defun c:cc()<br />     (setq cm (getvar "cmdecho") os (getvar "osmode"))<br />     (setvar "cmdecho" 0)(setvar "osmode" 2)<br />     (setq p0 (getpoint "\n 请指定用于里程定向的点:")<br />           s0 (getreal "\n 请输入定向点的里程:")<br />           dd (getdist "\n 请指定里程标注点距横断面线中点的距离:")<br />           hg (getreal "\n 请输入标注文字的高度<默认为2.5>:")<br />     )<br />     (command "undo" "be")<br />     (if (= hg nil)(setq hg 2.5))<br />     (while (setq p1 (getpoint "\n 请指定横断面线的中点:"))<br />         (setq ds (+ s0 (distance p0 p1))      k (fix (/ ds 1000.0)) <br />               ds (/ (+ 0.5 (* 1000.0 (- ds (* k 1000.0)))) 1000.0)<br />               m  (fix ds)<br />               ds (fix (* 1000.0 (- ds m)))<br />               z1 (itoa m)              z2 (itoa ds)<br />         )<br />         (setvar "osmode" 0)<br />         (while (< (strlen z1) 3) (setq z1 (strcat "0" z1)))<br />         (while (< (strlen z2) 3) (setq z2 (strcat "0" z2)))<br />         (setq zfc (cond ((= z2 "0") (strcat "K" (itoa k) "+" z1))<br />                         (t          (strcat "K" (itoa k) "+" z1 "." z2))<br />                   )<br />         )<br />         (setvar "osmode" 0)<br />         (command "text" (mapcar '+ p1 (list 0 (* -1.0 dd))) hg 0 zfc<br />                  "chprop" (entlast) "" "c" "2" ""<br />         )<br />         (setvar "osmode" 2)   <br />      )<br />      (command "undo" "e")<br />      (setvar "cmdecho" cm)(setvar "osmode" os)(princ)<br /> )