已知X，如何得到曲线上Y？

tm20038175

已知二维曲线上X坐标，如何得到曲线上对应的Y坐标？

tm20038175

自己顶一个………

Gu_xl

回复 tm20038175 的帖子

过点画垂直的xline，计算xline与曲线交点即可，计算完成后删除xline

tm20038175

回复 Gu_xl 的帖子

好的，谢谢了。。。。。。

zhynt

回复 tm20038175 的帖子

2. 
   
3. (defun c:x>y (/ )                    
   
4.   (vl-load-com)
   
5.   (setq en1 (car (entsel "\n请选择一条曲线:")))       
   
6.   (while (setq pt1 (getpoint "\n请点取一点以获得X值:"))
   
7.     (setq pt2 (polar pt1 (* 0.5 pi) 1))
   
8.     (command "_.xline" pt1 pt2 "")
   
9.     (setq en2 (entlast))
   
10.     (setq pty '())
    
11.     (setq AOBJ1        (vlax-ename->vla-object en1)
    
12.           AOBJ2        (vlax-ename->vla-object en2)
    
13.           IPTS        (vla-intersectwith AOBJ1 AOBJ2 0)
    
14.           IPTS        (vlax-variant-value IPTS)
    
15.     )
    
16.     (if        (> (vlax-safearray-get-u-bound IPTS 1) 0)
    
17.       (progn (setq IPTS (vlax-safearray->list IPTS))
    
18.              (while (> (length IPTS) 0)
    
19.                (setq PTy  (cons  (cadr IPTS)  PTy)
    
20.                      IPTS (cdddr IPTS)
    
21.                )
    
22.              )
    
23.       )
    
24.     )
    
25.     (entdel en2)
    
26.     (prompt "\nX值在曲线上相应的Y值列表:")
    
27.     (print pty)
    
28.     (princ)
    
29.   )
    
30. )
    

<br /> (defun c:x>y (/ )                    <br />   (vl-load-com)<br />   (setq en1 (car (entsel "\n请选择一条曲线:")))        <br />   (while (setq pt1 (getpoint "\n请点取一点以获得X值:"))<br />     (setq pt2 (polar pt1 (* 0.5 pi) 1))<br />     (command "_.xline" pt1 pt2 "")<br />     (setq en2 (entlast))<br />     (setq pty '())<br />     (setq AOBJ1        (vlax-ename->vla-object en1)<br />           AOBJ2        (vlax-ename->vla-object en2)<br />           IPTS        (vla-intersectwith AOBJ1 AOBJ2 0)<br />           IPTS        (vlax-variant-value IPTS)<br />     )<br />     (if        (> (vlax-safearray-get-u-bound IPTS 1) 0)<br />       (progn (setq IPTS (vlax-safearray->list IPTS))<br />              (while (> (length IPTS) 0)<br />                (setq PTy  (cons  (cadr IPTS)  PTy)<br />                      IPTS (cdddr IPTS)<br />                )<br />              )<br />       )<br />     )<br />     (entdel en2)<br />     (prompt "\nX值在曲线上相应的Y值列表:")<br />     (print pty)<br />     (princ)<br />   )<br /> )<br />

xyp1964

2. ;; X→Y
   
3. (defun c:test927 ()
   
4.   (CMDLA0)
   
5.   (if (setq s1 (car (entsel "\n选择: ")))
   
6.     (progn
   
7.       (redraw s1 3)
   
8.       (while (setq p1 (getpoint "\n基点<退出>: "))
   
9. (foreach pt (xyp-Xline-Inters s1 p1 90)
   
10.    (xyp-ZB pt 1000 4 nil nil)
    
11. )
    
12.       )
    
13.       (redraw s1 4)
    
14.     )
    
15.   )
    
16.   (CMDLA1)
    
17. )

;; X→Y<br /> (defun c:test927 ()<br />   (CMDLA0)<br />   (if (setq s1 (car (entsel "\n选择: ")))<br />     (progn<br />       (redraw s1 3)<br />       (while (setq p1 (getpoint "\n基点<退出>: "))<br /> (foreach pt (xyp-Xline-Inters s1 p1 90)<br />    (xyp-ZB pt 1000 4 nil nil)<br /> )<br />       )<br />       (redraw s1 4)<br />     )<br />   )<br />   (CMDLA1)<br /> )

ljpnb

zhynt 发表于 2011-7-23 08:59
回复 tm20038175 的帖子

用entmake创建XLINE线可能在取点时没什么感觉，效果会好一点。。

tm20038175

回复 zhynt 的帖子

好程序，来的正是时候，及时雨呀，好！。。。。

tm20038175

回复 xyp1964 的帖子

你的程序很好，但是工具箱如何下载，如何使用一直找不到帮助文档，没有用上，可惜啊…………

zwqgdhl

zhynt的程序很好，对我也很实用。在处理剖面地面线时，以前一直用象Gu_xl 版主说的方法编写的程序或许也可以简化一下了