[编程申请]：交叉点标高

freefly

已知线段（管道）起点，终点标高，求交叉点标高。
我希望的lsp:
1。点取起点标高（文本），
2。点取终点标高（文本），
3。点取线段
4。点取线段中任意点，
5。自动标注管中所需点标高。
谁有空帮写一下。

XDSoft

最初由 freefly 发布
[B]已知线段（管道）起点，终点标高，求交叉点标高。
我希望的lsp:
1。点取起点标高（文本），
2。点取终点标高（文本），
3。点取线段
4。点取线段中任意点，
5。自动标注管中所需点标高。
谁有空帮写一下。 [/B]

贴一张你的专业图上来吧，上面详细标下，并说明怎么交互，怎么得到结果等等。

ydf7332462

图上有:  2d(3d)线段AB（管道）,
            2d(3d)线段CD（管道）,
program
_1>给标高：交互-- 取端点A，input(z坐标);
                              取端点B,input(z坐标);
                     交互-- 对线段CD作 1>的动作
_2>给管经：交互-- 点线段AB管，给管经input 100/2，管中连接
                             如给管经input 100，管顶连接
              交互-- 对线段CD作 2>的动作
_3>标交叉点标高：交互-- 最小间距 input 200
             标出上下管标高，<200时，下面的管线变虚

freefly

因网站访问有问题，所有很久没有回复，sorry.ydf7332462先生的显然是专业人士,给出的流程太复杂了。我的原意是只想让computer计算沿线段的线性变化情况。做检查之用。跟交叉点
没有直接关系。但可以解决交叉点标高问题。前几天写的贴子如下：
这是一个纯粹的线性数学问题,有点专业了，不好意思。:已知线段起点的标高，和终点的标高，假设线段中的点的标高沿线段呈线性变化，求线段中任意点的标高。
lsp的流程:1.选择线段起点 2.点取起点的标高值（文本）3.选择线段终点4.点取终点的标高值（文本）5.选择线段中任意点。6.标注点取点标高值（文本）

XDSoft

最初由 freefly 发布
[B]因网站访问有问题，所有很久没有回复，sorry.ydf7332462先生的显然是专业人士,给出的流程太复杂了。我的原意是只想让computer计算沿线段的线性变化情况。做检查之用。跟交叉点
没有直接关系。但可以解决交叉点标高?.. [/B]

线段就是LINE吗？有没有其他曲线实体，比如POLYLINE等等，如果有，有什么？线段端点处就有一个附近的标高文字吗？如果是，程序可以简化交互，直接根据端点，就可以找到所需要的文字。

你还是贴一个图吧，看看标注文字是什么样的？是否只依据文字，而不是根据点的实际坐标？坐标系是是固定的世间坐标系吧？

freefly

1。线段就是LINE或者POLYLINE
2。线段端点处就有一个附近的标高文字。
3。坐标系不一定是世界坐标系.
4.线段长（管长）就是当前坐标系线段在此平面上的长度，注意不是实际三维长度
5。目标点标高值是根据其于起点与终点距离的比例确定。
6。附图如下。 有一个注释层

eachy

这个东西象总图中道路的竖向标注。

梦断江南

2. 
   
3.   [FONT=courier new]
   
4. (defun c:ptz ()
   
5.   (setq pt1 (getpoint "\n第一点:")
   
6.           pt1z (rtos (cdr (assoc 1 (entget (car(entsel "\n第一点标高文字:"))))) 2 2)
   
7.           pt2 (getpoint "\n第二点:")
   
8.           pt2z (rtos (cdr (assoc 1 (entget (car(entsel "\n第二点标高文字:"))))) 2 2)
   
9.           pt3 (osnap (getpoint "\n点取测量点:") "int,nea,end,mid")
   
10.           dis (distance pt1 pt2)
    
11.           dis13 (/ (distance pt3 pt1) dis)
    
12.           disz (- pt1z pt2z)
    
13.           valz (＋ pt1z (* (- pt1z pt2z) (/ dis13 dis)))
    
14.    )
    
15.   (princ "\n测量点标高:")(princ valz)
    
16.   (princ)
    
17. )
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:ptz ()<br />   (setq pt1 (getpoint "\n第一点:")<br />           pt1z (rtos (cdr (assoc 1 (entget (car(entsel "\n第一点标高文字:"))))) 2 2)<br />           pt2 (getpoint "\n第二点:")<br />           pt2z (rtos (cdr (assoc 1 (entget (car(entsel "\n第二点标高文字:"))))) 2 2)<br />           pt3 (osnap (getpoint "\n点取测量点:") "int,nea,end,mid")<br />           dis (distance pt1 pt2)<br />           dis13 (/ (distance pt3 pt1) dis)<br />           disz (- pt1z pt2z)<br />           valz (＋ pt1z (* (- pt1z pt2z) (/ dis13 dis)))<br />    )<br />   (princ "\n测量点标高:")(princ valz)<br />   (princ)<br /> )<br />   [/FONT]<br />

另，画成3维的线条不好么？直接用id测量，不用每次选标高文字那么麻烦。

ydf7332462

根据文字，不够直观，但使用2d操作方便,如天正.
1 3d线应该可以,如Hongye,haochen(R4.0)
2 但r12后,fillet等不能处理3d线（我有另一贴,未果!!!）,
3 id只是查寻,标出z坐标也要编程,提供一programe,可以吗？
4 input z虽可过滤，
5 解决楼主的问题后，用3d来一个可以吗

梦断江南

3d线上查询标注很简单

2. 
   
3. 
   
4. (defun c:pt3 ()
   
5. (if (= nil (setq txth (getdist "\n字高:")) ) (setq txth 300))
   
6. (setq jd (getint "\n标注精度:"))
   
7. (while (setq zval (caddr (getpoint "\n取点:")))
   
8.     (setq wz (getpoint "\n 点取z标高标注位置:"))
   
9.     (command ".text" wz (rtos txth 2 jd) "0" (rtos zval 2 jd) ^c)
   
10. )
    
11. )
    
12. 
    
13. 
    

<br /> <br /> (defun c:pt3 ()<br /> (if (= nil (setq txth (getdist "\n字高:")) ) (setq txth 300))<br /> (setq jd (getint "\n标注精度:"))<br /> (while (setq zval (caddr (getpoint "\n取点:")))<br />     (setq wz (getpoint "\n 点取z标高标注位置:"))<br />     (command ".text" wz (rtos txth 2 jd) "0" (rtos zval 2 jd) ^c)<br /> )<br /> )<br /> <br /> <br />

freefly

第一个程序有点错误，请用我的注释图查实一下。

错误信息：

第一点标高文字:error: bad argument type

ydf7332462

1 3d线要输入z,
2 一般Change or stretch只能改端点,但pline的中间点不会倾斜跟变
3 输入一点的z+给坡度-->推算另一点的z
以上3点尤其第2+3 都要programe,来个全的如何

无痕

最初由 freefly 发布
[B]第一个程序有点错误，请用我的注释图查实一下。

错误信息：

第一点标高文字:error: bad argument type [/B]

我试了，正常。第一点要点在物体的端点上。最好先设定好捕捉。