能否在一条曲线上通过X找到Y？

tm20038175

就是有一条样条曲线，给一个X值，找到对应的Y值

自贡黄明儒

画一射线求交点

tm20038175

好像样条曲线的交点很难找，如果有直接读取的函数就好了

xyp1964

2. 
   
3. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]
   
4. (defun c:tt ()
   
5.    (if (setq s1 (car (entsel "\n选择: ")))
   
6.     (while (setq p1 (getpoint "\n基点<退出>: "))
   
7.       (setq p2 (xyp-Pt2Y p1 10)
   
8.             s2        (xyp-Add-Xline p1 p2)
   
9.             ptn (xyp-get-Inters s1 s2 0)
   
10.       )
    
11.       (xyp-erase s2)
    
12.       (foreach pt ptn
    
13.         (xyp-Cross pt 1000 0)
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    

<br /> ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]<br /> (defun c:tt ()<br />    (if (setq s1 (car (entsel "\n选择: ")))<br />     (while (setq p1 (getpoint "\n基点<退出>: "))<br />       (setq p2 (xyp-Pt2Y p1 10)<br />             s2        (xyp-Add-Xline p1 p2)<br />             ptn (xyp-get-Inters s1 s2 0)<br />       )<br />       (xyp-erase s2)<br />       (foreach pt ptn<br />         (xyp-Cross pt 1000 0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

tm20038175

有没有什么样条曲线求交点的程序？

不死猫

vla-intersectwith来自: Android客户端

tm20038175

不死猫 发表于 2014-4-6 13:08
vla-intersectwith

能不能举个例子，多谢了

tm20038175

这个不知道是干嘛的，gu版主的，
(vlax-invoke (vlax-ename->vla-object (car(entsel))) 'IntersectWith (vlax-ename->vla-object (car(entsel))) acExtendNone)

tm20038175

还有caoyin版主的
求交点，
(vla-intersectwith VLA对象 VLA对象 延伸模式）
延伸模式为 0~3 的整型（0--不延伸,1--延伸基本对象,2--延伸参数传递的对象,3--延伸)
返回 ActiveX 点
或用 vlax-invoke 调用
(setq e1 (vlax-ename->vla-object(car(entsel)))
      e2 (vlax-ename->vla-object(car(entsel)))
)
(vlax-invoke e1 'intersectwith e2 3)

自贡黄明儒

tm20038175 发表于 2014-4-6 16:20
还有caoyin版主的
求交点，
(vla-intersectwith VLA对象 VLA对象 延伸模式）

;;[功能] X轴(Y轴)构造线
;;Flag T时,在X轴线上产生射线
;;示例 (EntmakeXline (getpoint) "X")产生平行X轴的射线
(defun EntmakeXline (pt Flag / P1)
  (if Flag
    (setq p1 '(1 0 0))
    (setq p1 '(0 1 0))
  )
  (entmakeX (list '(0 . "XLINE")
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbXline")
                 (cons 10 pt)
                 (cons 11 p1)
           )
  )
)