[讨论]已知直线与曲线的距离，和水平线与垂直线的交点，求曲线上与水平线上垂直的距

mmttzj

这个就是我说的三条线的DWG

mmttzj

highflybir

直线与曲线的距离就是：

水平的 LINE 与 SPLINE其中一点 的之间的垂直距离

不用选择的原因主要是在很多的情况下都有可能遇到这种要定的点，需要的时候只要用一个自定义函数来调用就可以，就像是zml84说的内插。

已知条件：

假设两条直线之间的交点为P1点（或者PT）

曲线上的任意一点P3点（这个点是曲线点，任意的点，并不是所求的点）

曲线和水平线的垂直的距离为D（或者BB）

我做了个测试用的LISP可以直接调用好了。。这样还方便点

(defun c:ex()
  (setq p1 '(1 0)
 p2 '(25 166)
 p3 '(34 33)
 p4 '(160 16)
 p5 '(200 0)
 p6 '(1 200)
 d 80
 )
  (command "line" p5 p1 p6 "")
  (command "spline" p2 p3 p4 """""")
  )

Andyhon

1. 假设两条直线之间的交点为P1点（或者PT）
2. 曲线上的任意一点P3点
3. 曲线和水平线的垂直的距离为D点（或者BB）

复制代码

什么是 '距离为D点'
距离是距离 / 点是点  <=== 什么是 '距离为D点'
又如果已知 曲线上的任意一点P3点
那么 曲线和水平线的垂直的距离 岂不是一减即得?
依 第 12 楼 Run c:ex 所得的图形 c:ex
(car
  (intobj
    (mapcar '+ pt (list 0 dd))
    (mapcar '+ pt (list 1 dd))
    ee
    acExtendThisEntity
  )
)
===>
(55.9524 20.0 0.0)
~("55.95244860942859 20.0 0.0)
您的问题点在那儿呀?

mmttzj

Andyhon发表于2009-3-31 16:11:00

 什么是 '距离为D点'

距离是距离 / 点是点  <=== 什么是 '距离为D点'

又如果已知 曲线上的任意一点P3点
那么 曲线和水平线的垂直的距离 岂不是一减即得?

依 第 12 楼 Run c:ex 所得的图形 c:ex

(car
  (intobj
    (mapcar '+ pt (list 0 dd))
    (mapcar '+ pt (list 1 dd))
    ee
    acExtendThisEntity
  )
)

===>

~("55.95244860942859 20.0 0.0)

您的问题点在那儿呀?

上面错误的地方我已经修改了。。。

(55.9524 20.0 0.0)这个是怎么得到的啊？我运行了出错。。。

Andyhon

假设两条直线之间的交点为P1点（或者PT）
删此条件 xxxx 曲线上的任意一点P3点
曲线和水平线的垂直的距离为D（或者BB）

===================================

依 第 12 楼 Run c:ex 所得的图形 c:ex

则 pt 为 (1 0 0)  即 p1 点
令 spline 为 ee ; dd = 20  即 D（或者BB）

返回 ===> (55.9524 20.0 0.0)

mmttzj

令 spline 为 ee

这里是怎么选取的SPLINE？

另外，如果将程序插入到其他的LISP程序里面会不会删除其他的线？

Andyhon

这里是怎么选取的SPLINE？
若图面单纯的如 C:ex 所绘制
那么可以这样取得 ee
(setq ee (ssname (ssget "X" '((0 . "SPLINE"))) 0))

另外，如果将程序插入到其他的LISP程序里面会不会删除其他的线？

删除其他的什么线? / 这个么直接调试会有答案的

mmttzj

因为我需要插入个程序里面会有很多的SPLINE，所以(setq ee (ssname (ssget "X" '((0 . "SPLINE"))) 0))一定会选择到其他的SPLIEN上吧？

还有就是加载的时候出现了; 错误: no function definition: INTOBJ

如果合适的话，我把我做的前面的LIPS传你看下。。

我把我的邮箱短信给你了

Andyhon

INTOBJ函数在 第3楼
第11楼的图面请转降至AC1018以下
或另给 '有很多的SPLINE' 的调试用图
我们的机子老,跑新版超慢....

ZZXXQQ

mmttzj发表于2009-3-30 19:44:00中间不要用鼠标去选取点的哦。。。最后直接得出曲线上的坐标点。。

不用鼠标选如何得到直线坐标及坐标系的原点？
不用鼠标选择曲线如何求出曲线到直线的距离？
最少也要框选图元才行。