如何根据x坐标求曲线点？

onemax01

如何根据某x坐标求得曲线上所有经过该x坐标的所有点坐标，另外如何判断曲线是否经过某x坐标？

x_s_s_1

entmake xline过x
vla-intersectwith

onemax01

500w008 发表于 2015-5-13 15:27
（if (= (assoc 10 pt) (x 0)) t nil)

用组码10判断对于圆弧及椭圆弧等应该不行吧？另外二楼的方法必须画一条构造线，当要判断的x坐标很多时莫非要画N条构造线？有没不用画线的方法呢？

ivde

onemax01 发表于 2015-5-14 12:10
用组码10判断对于圆弧及椭圆弧等应该不行吧？另外二楼的方法必须画一条构造线，当要判断的x坐标很多时莫 ...

有，但仅仅标准a/vlisp做不到

xyp1964

;; tt(Y轴交点坐标)

xyp1964

2. 
   
3. ;; tt(Y轴交点坐标) 2015-05-14
   
4. (defun c:tt ()
   
5.   (xyp-Start)
   
6.   (if (and (setq s1 (car (entsel "\n选择: ")))
   
7.            (xyp-curve-check s1)
   
8.       )
   
9.     (while (setq p1 (getpoint "\n基点<退出>: "))
   
10.       (if (setq ptn (xyp-Xline-Inters s1 p1 90))(foreach pt ptn (xyp-ZB pt 1000 4 nil nil))))
    
11.     )
    
12.   (xyp-End)
    
13. )

<br /> ;; tt(Y轴交点坐标) 2015-05-14<br /> (defun c:tt ()<br />   (xyp-Start)<br />   (if (and (setq s1 (car (entsel "\n选择: ")))<br />            (xyp-curve-check s1)<br />       )<br />     (while (setq p1 (getpoint "\n基点<退出>: "))<br />       (if (setq ptn (xyp-Xline-Inters s1 p1 90))(foreach pt ptn (xyp-ZB pt 1000 4 nil nil))))<br />     )<br />   (xyp-End)<br /> )

onemax01

请问大侠程序里的几个函数需要先加载哪些api才能用？