救命啊，，救命啊，，大虾们，，哭求一个小程序。。。。

changyiran

cass下面有这功能，lisp也很容易实现的。

zhong879

一窍不通，求源代码...

ynhh

连哭带跪
大呼要命
快打110

tm20038175

ynhh 发表于 2012-4-24 09:28
连哭带跪
大呼要命
快打110

论坛有专门的交易区，如果真的很急就去那里招标吧！顺便支持下论坛发展！……

changyiran

czc520hx 发表于 2012-4-24 09:29
,,,急急急

2. (defun c:tt( / EL1 EL2 F F1 GCB GCZ JZGC LCB LCGC LCGCB N V1 V2 V3 WJM YGCZ)
   
3.   (command"undo""m")
   
4.   (setq v1(getvar"osmode"))
   
5.   (setq v2(getvar"cmdecho"))
   
6.   (setq v3(getvar"blipmode"))
   
7.   (setq v4(getvar"dimzin"));保存控制对主单位值的消零处理的当前值
   
8.   (setvar"blipmode"0)
   
9.   (setvar"cmdecho"0)
   
10.   (setvar "osmode"0)
    
11.   (setvar"dimzin"0);保留小数位数时如果位数不足可以补零
    
12.   (setq f(getfiled"请选择数据文件""""dmt"0))
    
13.   (setq f1(open f "r")n 0)
    
14.   (setq wjm(read-line f1)lcb'()gcb'()jzgc 0)
    
15.   (while wjm
    
16.     (while(vl-string-search","(if(setq lcgc(read-line f1))lcgc "tcb"));如果是nil就退出吧
    
17.         (setq lcgcb(read(strcat"("(thdh lcgc)")")));获得里程高程表
    
18.         (setq ygcz(cadr lcgcb));保存原高程表
    
19.         (setq lcgcb(list (car lcgcb)(+ (cadr lcgcb)jzgc 60)));获得增加基准高程后的里程高程表
    
20.         (entmake(list'(0 . "line")(list 10 (car lcgcb)(+ 60 jzgc))(list 11 (car lcgcb)(cadr lcgcb))));生成竖线
    
21.         (entmake(list'(0 . "text")(cons 1 (rtos ygcz 2 3))'(40 . 2)(list 10 (-(car lcgcb)6.33333)(+ 70 jzgc))));高程值注记
    
22.         (entmake(list'(0 . "text")(cons 1 (rtos (car lcgcb) 2 3))'(40 . 2)(list 10 (-(car lcgcb)6.33333)(+ jzgc 50))));里程点注记
    
23.         (setq lcb(cons(list 10(car lcgcb)(+ 60 jzgc))lcb))
    
24.         (setq gcb(cons (cons 10 lcgcb) gcb))
    
25.         (setq gcz(cons (cadr lcgcb)gcz))
    
26.         (setq n(1+ n));计算里程点数
    
27.     )
    
28.         (setq el1(append(list'(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline"))(list(cons 90 n)) lcb ));里程图元表
    
29.         (setq el2(append(list'(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline"))(list(cons 90 n)) gcb ));高程图元表
    
30.         (setq el3(append(list'(0 . "text")(cons 1 wjm)'(40 . 10)(list 10 (-(/ (cadr(car lcb))2)6.33333)(+ jzgc 30)))));剖面线名图元表
    
31.         (entmake el1);生成里程线
    
32.           (entmake el2);生成高程线
    
33.         (entmake el3);生成剖面线名
    
34.         (setq wjm lcgc lcb'()gcb'()n 0 jzgc(apply'max gcz))
    
35.   )
    
36.   (close f1)
    
37.   (setvar "osmode"v1)
    
38.   (setvar"cmdecho"v2)
    
39.   (setvar"blipmode"v3)
    
40.   (setvar"dimzin"v4)
    
41.   (alert"运行完毕")
    
42. )

(defun c:tt( / EL1 EL2 F F1 GCB GCZ JZGC LCB LCGC LCGCB N V1 V2 V3 WJM YGCZ)<br />   (command"undo""m")<br />   (setq v1(getvar"osmode"))<br />   (setq v2(getvar"cmdecho"))<br />   (setq v3(getvar"blipmode"))<br />   (setq v4(getvar"dimzin"));保存控制对主单位值的消零处理的当前值<br />   (setvar"blipmode"0)<br />   (setvar"cmdecho"0)<br />   (setvar "osmode"0)<br />   (setvar"dimzin"0);保留小数位数时如果位数不足可以补零<br />   (setq f(getfiled"请选择数据文件""""dmt"0))<br />   (setq f1(open f "r")n 0)<br />   (setq wjm(read-line f1)lcb'()gcb'()jzgc 0)<br />   (while wjm<br />     (while(vl-string-search","(if(setq lcgc(read-line f1))lcgc "tcb"));如果是nil就退出吧<br />         (setq lcgcb(read(strcat"("(thdh lcgc)")")));获得里程高程表<br />         (setq ygcz(cadr lcgcb));保存原高程表<br />         (setq lcgcb(list (car lcgcb)(+ (cadr lcgcb)jzgc 60)));获得增加基准高程后的里程高程表<br />         (entmake(list'(0 . "line")(list 10 (car lcgcb)(+ 60 jzgc))(list 11 (car lcgcb)(cadr lcgcb))));生成竖线<br />         (entmake(list'(0 . "text")(cons 1 (rtos ygcz 2 3))'(40 . 2)(list 10 (-(car lcgcb)6.33333)(+ 70 jzgc))));高程值注记<br />         (entmake(list'(0 . "text")(cons 1 (rtos (car lcgcb) 2 3))'(40 . 2)(list 10 (-(car lcgcb)6.33333)(+ jzgc 50))));里程点注记<br />         (setq lcb(cons(list 10(car lcgcb)(+ 60 jzgc))lcb))<br />         (setq gcb(cons (cons 10 lcgcb) gcb))<br />         (setq gcz(cons (cadr lcgcb)gcz))<br />         (setq n(1+ n));计算里程点数<br />     )<br />         (setq el1(append(list'(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline"))(list(cons 90 n)) lcb ));里程图元表<br />         (setq el2(append(list'(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline"))(list(cons 90 n)) gcb ));高程图元表<br />         (setq el3(append(list'(0 . "text")(cons 1 wjm)'(40 . 10)(list 10 (-(/ (cadr(car lcb))2)6.33333)(+ jzgc 30)))));剖面线名图元表<br />         (entmake el1);生成里程线<br />           (entmake el2);生成高程线<br />         (entmake el3);生成剖面线名<br />         (setq wjm lcgc lcb'()gcb'()n 0 jzgc(apply'max gcz))<br />   )<br />   (close f1)<br />   (setvar "osmode"v1)<br />   (setvar"cmdecho"v2)<br />   (setvar"blipmode"v3)<br />   (setvar"dimzin"v4)<br />   (alert"运行完毕")<br /> )

记得每个里程数据的第一行为其名字
学习重要，不能只求源代码