旱龙 发表于 2005-7-27 11:10:00

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

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

旱龙 发表于 2005-7-27 11:38:00

<P>给大家建一个可以交流的群，cad交流群：2517263</P>
<P>欢迎大家加入交流</P>

xyp1964 发表于 2005-7-28 20:24:00

(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)

旱龙 发表于 2005-7-29 15:37:00

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

2002-ytf 发表于 2005-7-29 18:57:00

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

yxp 发表于 2005-7-31 09:04:00

<P>是要做滑坡推力计算吗？</P>
<P>在这个程序里就大量用到了你提出的问题。</P>
<P>在程序中选择地面线、浸润线、滑面（均为曲线）及输入水位高度等其他参数，可以算出各块的推力及安全系数。</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;滑坡推力条分法计算程序<BR>************************************************************************************</P>
<P>一、参数取值<BR>条块数:25&nbsp;&nbsp; 水位高程(m):156.000&nbsp;&nbsp; 天然重度:22.50&nbsp;&nbsp; 饱和重度:23.50<BR>浮重度:13.50&nbsp;&nbsp;&nbsp; 暴雨入渗:0.25&nbsp;&nbsp;&nbsp; 水上Ф:18.75&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 水下Ф:16.00<BR>水上c:50.00&nbsp;&nbsp;&nbsp;&nbsp; 水下c:28.00&nbsp;&nbsp;&nbsp; 条块安全系数:1.05&nbsp;&nbsp; 不考虑动水压力</P>
<P>二、数据分析<BR>块&nbsp;&nbsp; 水上面&nbsp;&nbsp; 水下面&nbsp;&nbsp; 滑块重度&nbsp; 滑带长&nbsp;&nbsp; 倾角&nbsp;&nbsp;&nbsp; 抗滑力&nbsp;&nbsp;&nbsp; 下滑力&nbsp;&nbsp; 传递系&nbsp;&nbsp; 推力&nbsp;&nbsp;&nbsp;&nbsp; 稳定<BR>号&nbsp;&nbsp; 积(㎡)&nbsp;&nbsp; 积(㎡)&nbsp;&nbsp;&nbsp; (G/kN)&nbsp;&nbsp;&nbsp; (m)&nbsp;&nbsp;&nbsp;&nbsp; (°)&nbsp;&nbsp;&nbsp;&nbsp; (kN)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (kN)&nbsp;&nbsp;&nbsp;&nbsp; 数ψ&nbsp;&nbsp;&nbsp; F(kN)&nbsp;&nbsp;&nbsp; 系数<BR>&nbsp;1&nbsp; 207.680&nbsp;&nbsp;&nbsp; 0.000&nbsp; 4724.723&nbsp; 45.777&nbsp; 46.405&nbsp; 3394.765&nbsp; 3592.911&nbsp;&nbsp; 0.980&nbsp;&nbsp; 198.146&nbsp;&nbsp; 0.945<BR>&nbsp;2&nbsp; 130.626&nbsp;&nbsp;&nbsp; 0.000&nbsp; 2971.749&nbsp; 14.427&nbsp; 43.242&nbsp; 1456.202&nbsp; 2137.672&nbsp;&nbsp; 0.886&nbsp;&nbsp; 875.602&nbsp;&nbsp; 0.845<BR>&nbsp;3&nbsp; 156.760&nbsp;&nbsp;&nbsp; 0.000&nbsp; 3566.297&nbsp; 15.658&nbsp; 29.013&nbsp; 1841.602&nbsp; 1816.148&nbsp;&nbsp; 1.000&nbsp;&nbsp; 750.227&nbsp;&nbsp; 0.890<BR>&nbsp;4&nbsp; 143.130&nbsp;&nbsp;&nbsp; 0.000&nbsp; 3256.207&nbsp; 16.153&nbsp; 29.013&nbsp; 1774.261&nbsp; 1658.233&nbsp;&nbsp; 1.000&nbsp;&nbsp; 634.199&nbsp;&nbsp; 0.925<BR>&nbsp;5&nbsp; 162.266&nbsp;&nbsp;&nbsp; 0.000&nbsp; 3691.558&nbsp; 17.933&nbsp; 29.013&nbsp; 1992.495&nbsp; 1879.937&nbsp;&nbsp; 0.824&nbsp;&nbsp; 521.640&nbsp;&nbsp; 0.950<BR>&nbsp;6&nbsp; 109.561&nbsp;&nbsp;&nbsp; 0.000&nbsp; 2492.508&nbsp; 10.000&nbsp;&nbsp; 9.091&nbsp; 1335.460&nbsp;&nbsp; 413.511&nbsp;&nbsp; 1.052&nbsp; -491.860&nbsp;&nbsp; 1.055<BR>&nbsp;7&nbsp; 227.442&nbsp;&nbsp;&nbsp; 0.000&nbsp; 5174.311&nbsp; 21.974&nbsp; 32.630&nbsp; 2577.911&nbsp; 2929.519&nbsp;&nbsp; 1.000&nbsp;&nbsp; 351.608&nbsp;&nbsp; 1.013<BR>&nbsp;8&nbsp; 549.948&nbsp;&nbsp;&nbsp; 0.000 12511.322&nbsp; 37.906&nbsp; 32.630&nbsp; 5472.054&nbsp; 7083.485&nbsp;&nbsp; 0.968&nbsp; 1963.039&nbsp;&nbsp; 0.926<BR>&nbsp;9&nbsp; 595.871&nbsp;&nbsp;&nbsp; 0.000 13556.075&nbsp; 32.252&nbsp; 27.759&nbsp; 5684.684&nbsp; 6629.372&nbsp;&nbsp; 0.999&nbsp; 2844.054&nbsp;&nbsp; 0.908<BR>10&nbsp; 303.560&nbsp;&nbsp;&nbsp; 0.000&nbsp; 6905.991&nbsp; 15.786&nbsp; 27.666&nbsp; 2865.531&nbsp; 3366.890&nbsp;&nbsp; 1.001&nbsp; 3343.850&nbsp;&nbsp; 0.901<BR>11&nbsp; 311.526&nbsp;&nbsp;&nbsp; 0.000&nbsp; 7087.213&nbsp; 15.641&nbsp; 27.852&nbsp; 2909.138&nbsp; 3476.614&nbsp;&nbsp; 0.926&nbsp; 3914.992&nbsp;&nbsp; 0.894<BR>12&nbsp; 408.417&nbsp;&nbsp;&nbsp; 0.000&nbsp; 9291.483&nbsp; 18.514&nbsp; 17.907&nbsp; 3926.963&nbsp; 2999.758&nbsp;&nbsp; 1.000&nbsp; 2699.455&nbsp;&nbsp; 0.932<BR>13&nbsp; 288.577&nbsp;&nbsp;&nbsp; 0.000&nbsp; 6565.133&nbsp; 12.860&nbsp; 17.907&nbsp; 2763.605&nbsp; 2119.555&nbsp;&nbsp; 1.000&nbsp; 2055.405&nbsp;&nbsp; 0.955<BR>14&nbsp; 147.939&nbsp;&nbsp;&nbsp; 0.000&nbsp; 3365.601&nbsp;&nbsp; 6.654&nbsp; 17.907&nbsp; 1419.802&nbsp; 1086.585&nbsp;&nbsp; 1.000&nbsp; 1722.188&nbsp;&nbsp; 0.965<BR>15&nbsp; 188.878&nbsp;&nbsp; 13.078&nbsp; 4473.537&nbsp;&nbsp; 9.455&nbsp; 17.907&nbsp; 1485.367&nbsp; 1444.282&nbsp;&nbsp; 1.017&nbsp; 1681.104&nbsp;&nbsp; 0.968<BR>16&nbsp; 261.932&nbsp;&nbsp; 92.763&nbsp; 7211.252&nbsp; 16.669&nbsp; 21.708&nbsp; 2387.874&nbsp; 2800.603&nbsp;&nbsp; 1.000&nbsp; 2122.087&nbsp;&nbsp; 0.960<BR>17&nbsp;&nbsp; 64.013&nbsp;&nbsp; 48.592&nbsp; 2112.285&nbsp;&nbsp; 5.211&nbsp; 21.708&nbsp;&nbsp; 708.649&nbsp;&nbsp; 820.339&nbsp;&nbsp; 1.000&nbsp; 2233.777&nbsp;&nbsp; 0.958<BR>18&nbsp;&nbsp; 74.559&nbsp; 107.381&nbsp; 3145.861&nbsp;&nbsp; 9.111&nbsp; 21.708&nbsp; 1093.208&nbsp; 1221.744&nbsp;&nbsp; 1.000&nbsp; 2362.314&nbsp;&nbsp; 0.956<BR>19&nbsp;&nbsp; 30.580&nbsp; 103.618&nbsp; 2094.551&nbsp;&nbsp; 7.110&nbsp; 21.708&nbsp;&nbsp; 757.102&nbsp;&nbsp; 813.452&nbsp;&nbsp; 1.000&nbsp; 2418.663&nbsp;&nbsp; 0.956<BR>20&nbsp;&nbsp; 12.787&nbsp; 145.710&nbsp; 2258.001&nbsp;&nbsp; 8.449&nbsp; 21.708&nbsp;&nbsp; 838.123&nbsp;&nbsp; 876.930&nbsp;&nbsp; 1.000&nbsp; 2457.470&nbsp;&nbsp; 0.956<BR>21&nbsp;&nbsp;&nbsp; 0.000&nbsp;&nbsp; 55.084&nbsp;&nbsp; 743.629&nbsp;&nbsp; 3.829&nbsp; 21.708&nbsp;&nbsp; 305.333&nbsp;&nbsp; 288.800&nbsp;&nbsp; 1.000&nbsp; 2440.937&nbsp;&nbsp; 0.956<BR>22&nbsp;&nbsp;&nbsp; 0.000&nbsp;&nbsp; 14.215&nbsp;&nbsp; 191.898&nbsp;&nbsp; 1.756&nbsp; 21.708&nbsp;&nbsp; 100.305&nbsp;&nbsp;&nbsp; 74.527&nbsp;&nbsp; 1.000&nbsp; 2415.158&nbsp;&nbsp; 0.957<BR>23&nbsp;&nbsp;&nbsp; 0.000&nbsp;&nbsp; 73.327&nbsp;&nbsp; 989.913&nbsp;&nbsp; 9.472&nbsp; 21.708&nbsp;&nbsp; 528.931&nbsp;&nbsp; 384.448&nbsp;&nbsp; 0.906&nbsp; 2270.676&nbsp;&nbsp; 0.960<BR>24&nbsp;&nbsp;&nbsp; 0.000&nbsp; 119.059&nbsp; 1607.292&nbsp; 22.521&nbsp;&nbsp; 8.317&nbsp; 1086.620&nbsp;&nbsp; 244.132&nbsp;&nbsp; 1.000&nbsp; 1215.675&nbsp;&nbsp; 0.981<BR>25&nbsp;&nbsp;&nbsp; 0.000&nbsp;&nbsp; 39.637&nbsp;&nbsp; 535.096&nbsp; 22.521&nbsp;&nbsp; 8.317&nbsp;&nbsp; 782.406&nbsp;&nbsp;&nbsp; 81.276&nbsp;&nbsp; 0.000&nbsp;&nbsp; 514.545&nbsp;&nbsp; 0.998</P>
<P><BR>三、计算结果<BR>&nbsp;&nbsp;&nbsp; 在156.000m静止水位工况下，对滑坡进行了传递系数法验算。最末块的稳定系数为0.998，推力为514.545kN</P>

旱龙 发表于 2005-8-1 16:34:00

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

旱龙 发表于 2005-8-1 16:35:00

我是做曲线的数字化工作
页: [1]
查看完整版本: 一个平面图形里有若干不规则曲线，想得到每条曲线隔一小段距离的坐标值，