一个平面图形里有若干不规则曲线，想得到每条曲线隔一小段距离的坐标值，

旱龙

一个平面图形里有若干不规则曲线，想得到每条曲线隔一小段距离的坐标值，谢谢先！

旱龙

给大家建一个可以交流的群，cad交流群：2517263

欢迎大家加入交流

xyp1964

2. (load "xyp_lib")
3. ;|加载通用函数
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. 通用函数下载地址:
12. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|;
13. ;;;线任意等分并标注坐标
14. ;;;等分坐标
15. (defun c:dfzb ()
16.   (cmdla0)
17.   (setvar "osmode" 0)
18.   (setq no1    (ureal 1 "" "\n边数" no1)
19. div-number no1
20. ss    (ssget '((0 . "ELLIPSE,CIRCLE,*LINE,ARC")))
21. i    -1
22. tx1    (ukword 1 "1 2" "\n原线 : 1-删除/2-保留" tx1)
23.   )
24.   (mkla "等分坐标" 4)
25.   (while (setq e (ssname ss (setq i (1+ i))))
26.     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
27.    df (/ leng no1)
28.    n 0
29.    etype (dxf 0 (entget e))
30.     )
31.     (if (or
32.    (= etype "LWPOLYLINE")
33.    (= etype "POLYLINE")
34.    (= etype "SPLINE")
35. )
36.       (setq mode       (dxf 70 (entget e))
37.      div-number (+ div-number 1)
38.       )
39.     )
40.     (if (or (= etype "LINE") (= etype "ARC"))
41.       (setq div-number (+ div-number 2))
42.     )
43.     (repeat (fix div-number)
44.       (setq pt1 (vlax-curve-getPointAtDist
45.     (vlax-ename->vla-object e)
46.     (* n df)
47.   )
48.      n (1+ n)
49.       )
50.       (X_ZB pt1)
51.     )
52.   )
53.   (if (= tx1 "1")
54.     (command "erase" ss "")
55.   )
56.   (cmdla1)
57. )
58. (princ "命令 : dfzb  (等分坐标)")
59. (princ)

(load "xyp_lib") ;|加载通用函数 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|; ;;;线任意等分并标注坐标 ;;;等分坐标 (defun c:dfzb ()   (cmdla0)   (setvar "osmode" 0)   (setq no1    (ureal 1 "" "\n边数" no1) div-number no1 ss    (ssget '((0 . "ELLIPSE,CIRCLE,*LINE,ARC"))) i    -1 tx1    (ukword 1 "1 2" "\n原线 : 1-删除/2-保留" tx1)   )   (mkla "等分坐标" 4)   (while (setq e (ssname ss (setq i (1+ i))))     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))    df (/ leng no1)    n 0    etype (dxf 0 (entget e))     )     (if (or    (= etype "LWPOLYLINE")    (= etype "POLYLINE")    (= etype "SPLINE") )       (setq mode       (dxf 70 (entget e))      div-number (+ div-number 1)       )     )     (if (or (= etype "LINE") (= etype "ARC"))       (setq div-number (+ div-number 2))     )     (repeat (fix div-number)       (setq pt1 (vlax-curve-getPointAtDist     (vlax-ename->vla-object e)     (* n df)   )      n (1+ n)       )       (X_ZB pt1)     )   )   (if (= tx1 "1")     (command "erase" ss "")   )   (cmdla1) ) (princ "命令 : dfzb  (等分坐标)") (princ)

旱龙

能解释一下怎么用么？我在这里谢谢先

2002-ytf

楼主"隔一小段距离"是曲线长,还是等直线长?

yxp

是要做滑坡推力计算吗？

在这个程序里就大量用到了你提出的问题。

在程序中选择地面线、浸润线、滑面（均为曲线）及输入水位高度等其他参数，可以算出各块的推力及安全系数。

    滑坡推力条分法计算程序
************************************************************************************

一、参数取值
条块数:25   水位高程(m):156.000   天然重度:22.50   饱和重度:23.50
浮重度:13.50    暴雨入渗:0.25    水上Ф:18.75      水下Ф:16.00
水上c:50.00     水下c:28.00    条块安全系数:1.05   不考虑动水压力

二、数据分析
块   水上面   水下面   滑块重度  滑带长   倾角    抗滑力    下滑力   传递系   推力     稳定
号   积(㎡)   积(㎡)    (G/kN)    (m)     (°)     (kN)      (kN)     数ψ    F(kN)    系数
 1  207.680    0.000  4724.723  45.777  46.405  3394.765  3592.911   0.980   198.146   0.945
 2  130.626    0.000  2971.749  14.427  43.242  1456.202  2137.672   0.886   875.602   0.845
 3  156.760    0.000  3566.297  15.658  29.013  1841.602  1816.148   1.000   750.227   0.890
 4  143.130    0.000  3256.207  16.153  29.013  1774.261  1658.233   1.000   634.199   0.925
 5  162.266    0.000  3691.558  17.933  29.013  1992.495  1879.937   0.824   521.640   0.950
 6  109.561    0.000  2492.508  10.000   9.091  1335.460   413.511   1.052  -491.860   1.055
 7  227.442    0.000  5174.311  21.974  32.630  2577.911  2929.519   1.000   351.608   1.013
 8  549.948    0.000 12511.322  37.906  32.630  5472.054  7083.485   0.968  1963.039   0.926
 9  595.871    0.000 13556.075  32.252  27.759  5684.684  6629.372   0.999  2844.054   0.908
10  303.560    0.000  6905.991  15.786  27.666  2865.531  3366.890   1.001  3343.850   0.901
11  311.526    0.000  7087.213  15.641  27.852  2909.138  3476.614   0.926  3914.992   0.894
12  408.417    0.000  9291.483  18.514  17.907  3926.963  2999.758   1.000  2699.455   0.932
13  288.577    0.000  6565.133  12.860  17.907  2763.605  2119.555   1.000  2055.405   0.955
14  147.939    0.000  3365.601   6.654  17.907  1419.802  1086.585   1.000  1722.188   0.965
15  188.878   13.078  4473.537   9.455  17.907  1485.367  1444.282   1.017  1681.104   0.968
16  261.932   92.763  7211.252  16.669  21.708  2387.874  2800.603   1.000  2122.087   0.960
17   64.013   48.592  2112.285   5.211  21.708   708.649   820.339   1.000  2233.777   0.958
18   74.559  107.381  3145.861   9.111  21.708  1093.208  1221.744   1.000  2362.314   0.956
19   30.580  103.618  2094.551   7.110  21.708   757.102   813.452   1.000  2418.663   0.956
20   12.787  145.710  2258.001   8.449  21.708   838.123   876.930   1.000  2457.470   0.956
21    0.000   55.084   743.629   3.829  21.708   305.333   288.800   1.000  2440.937   0.956
22    0.000   14.215   191.898   1.756  21.708   100.305    74.527   1.000  2415.158   0.957
23    0.000   73.327   989.913   9.472  21.708   528.931   384.448   0.906  2270.676   0.960
24    0.000  119.059  1607.292  22.521   8.317  1086.620   244.132   1.000  1215.675   0.981
25    0.000   39.637   535.096  22.521   8.317   782.406    81.276   0.000   514.545   0.998

三、计算结果
    在156.000m静止水位工况下，对滑坡进行了传递系数法验算。最末块的稳定系数为0.998，推力为514.545kN

旱龙

是直线长，意思是一条平面曲线，按每隔一小段距离（即用平行于X坐标或ｙ坐标等分）该曲线，求交点。

旱龙

我是做曲线的数字化工作