求助……代码

Cass生手……

1. (defun c:jjgcd(/ cr)
   
2. (setvar "cmdecho" 0)
   
3. (setq  cr  (/ 3.0 (getvar 'DIMSCALE)))
   
4.   (setq k1 (getint "\n[请输入成图比例尺<1：500(1)/1000(2)/2000(3)<默认1:500>>：") )
   
5.   (cond ((= k1 1)    (setq blc 1.0 d1 0.5))
   
6.         ((= k1 2)    (setq blc 2.0 d1 1))
   
7.         ((= k1 3)    (setq blc 4.0 d1 2))
   
8.         (t    (setq blc 1.0 d1 0.5))
   
9.   )
   
10.   (setq k1 (getint "\n[请输入高程点小数位]<3>"))
    
11.   (cond ((= k1 1) (setq gcws 1))
    
12.         ((= k1 2) (setq gcws 2))
    
13.         ((= k1 3) (setq gcws 3))
    
14.         (t (setq gcws 3))
    
15.   )
    
16.   (setvar "osmode" 4)  ;捕捉圆心
    
17.   (setq p1 (getpoint "\n请选择第一个高程点:"))
    
18. 
    
19.    (setq ptl '())
    
20.    (setq cd 0.000)
    
21.    (setq cdl '())
    
22.    (setq a3 0.000)   (setq i 0)
    
23.    (setvar "osmode" 1)  ;捕捉端点节点交点最近点
    
24.    (setq pt2 p1)
    
25.    (while (setq pt (getpoint "\n请按顺序输入内插高程点位置:"))
    
26.      (setq ptl (cons pt ptl))
    
27.      (setq cd (+ cd (disuser1 pt pt2)))
    
28.      (setq pt2 pt)
    
29.      (setq cdl (cons cd cdl))
    
30.    )
    
31.   (setq cdl (reverse cdl))  
    
32.   (setq ptl (reverse ptl))
    
33.   (setvar "osmode" 4)  ;捕捉圆心
    
34.   (setq p2 (getpoint "\n请选择第二个高程点:"))
    
35.   (setq cd (+ cd (disuser1 pt2 p2)))
    
36.   (setq a1 (caddr p1))
    
37.   (setq a2 (caddr p2))
    
38. (command "layer" "s" "gcd" "" "")
    
39.   (while (nth i ptl)
    
40.         (setq a3 (+ a1 (* (- a2 a1) (/ (nth i cdl) cd))))
    
41.         (command "_insert" "gc200" (list (car (nth i ptl)) (cadr (nth i ptl)) a3) d1 d1 0 );调用块gc200高程点
    
42.         (command "text"  "s" "hz" "j" "ml" (list (+ (car (nth i ptl)) cr) (cadr (nth i ptl))) blc 0 (rtos a3 2 gcws) );注记高程点
    
43.         (setq i (+ i 1))
    
44.    )
    
45.   (command "layer" "s" "0" "" "")
    
46. (setvar "cmdecho" 1)
    
47.    (princ)
    
48. )

(defun c:jjgcd(/ cr)<br /> (setvar "cmdecho" 0)<br /> (setq  cr  (/ 3.0 (getvar 'DIMSCALE)))<br />   (setq k1 (getint "\n[请输入成图比例尺<1：500(1)/1000(2)/2000(3)<默认1:500>>：") )<br />   (cond ((= k1 1)    (setq blc 1.0 d1 0.5))<br />         ((= k1 2)    (setq blc 2.0 d1 1))<br />         ((= k1 3)    (setq blc 4.0 d1 2))<br />         (t    (setq blc 1.0 d1 0.5))<br />   ) <br />   (setq k1 (getint "\n[请输入高程点小数位]<3>"))<br />   (cond ((= k1 1) (setq gcws 1))<br />         ((= k1 2) (setq gcws 2))<br />         ((= k1 3) (setq gcws 3))<br />         (t (setq gcws 3))<br />   )<br />   (setvar "osmode" 4)  ;捕捉圆心<br />   (setq p1 (getpoint "\n请选择第一个高程点:"))<br /> <br />    (setq ptl '())<br />    (setq cd 0.000)<br />    (setq cdl '())<br />    (setq a3 0.000)   (setq i 0)<br />    (setvar "osmode" 1)  ;捕捉端点节点交点最近点<br />    (setq pt2 p1)<br />    (while (setq pt (getpoint "\n请按顺序输入内插高程点位置:"))<br />      (setq ptl (cons pt ptl))<br />      (setq cd (+ cd (disuser1 pt pt2)))<br />      (setq pt2 pt)<br />      (setq cdl (cons cd cdl))<br />    )<br />   (setq cdl (reverse cdl))  <br />   (setq ptl (reverse ptl))<br />   (setvar "osmode" 4)  ;捕捉圆心<br />   (setq p2 (getpoint "\n请选择第二个高程点:"))<br />   (setq cd (+ cd (disuser1 pt2 p2)))<br />   (setq a1 (caddr p1))<br />   (setq a2 (caddr p2))<br /> (command "layer" "s" "gcd" "" "")<br />   (while (nth i ptl)<br />         (setq a3 (+ a1 (* (- a2 a1) (/ (nth i cdl) cd))))<br />         (command "_insert" "gc200" (list (car (nth i ptl)) (cadr (nth i ptl)) a3) d1 d1 0 );调用块gc200高程点<br />         (command "text"  "s" "hz" "j" "ml" (list (+ (car (nth i ptl)) cr) (cadr (nth i ptl))) blc 0 (rtos a3 2 gcws) );注记高程点<br />         (setq i (+ i 1))<br />    )<br />   (command "layer" "s" "0" "" "")<br /> (setvar "cmdecho" 1)<br />    (princ)<br /> )

这个代码谁能修改一下:

一、能不能选取在选取的两个高程点之间插随机数值的高程，而不是单一的高程。
二、能不能注记成高程点，而不是打散的点和数字。
谢谢大家了，这个代码也是在网上找的。自己对这个方面也不会，所以向大家求助