请教一下这个函数有时候返回不了任意一个距离起点的距离

永不言弃

请教一下vlax-curve-getDistAtPoint函数有时候返回不了多段线上任意一个距离起点的距离，怎么完善一下，谢谢

1. (defun c:tt()
   
2.   (if (and
   
3.   (setq ent1 (car (entsel "\n 选择线")))
   
4.   (setq ss (ssget (list (cons 0 "INSERT"))))
   
5.   )
   
6.     (progn
   
7.       (setvar"OSMODE" 0)
   
8.       (setq obj (vlax-ename->vla-object ent1))
   
9.       (repeat (setq k (sslength ss))
   
10.   (setq ent (ssname ss (setq k (1- k))))
    
11.   (setq pt1 (cdr (assoc 10 (entget ent))))
    
12.   (setq pt2 (vlax-curve-getClosestPointTo obj pt1))
    
13.   (setq dis (vlax-curve-getDistAtPoint obj pt2))
    
14.   (if (= dis nil)
    
15.     (entmake (list '(0 . "CIRCLE") (cons 62 3)(cons 10 pt1) (cons 40 2.5)))
    
16.     )
    
17.   )
    
18.       )
    
19.     )
    
20.   )
    

(defun c:tt()<br />   (if (and<br />   (setq ent1 (car (entsel "\n 选择线")))<br />   (setq ss (ssget (list (cons 0 "INSERT"))))<br />   )<br />     (progn<br />       (setvar"OSMODE" 0)<br />       (setq obj (vlax-ename->vla-object ent1))<br />       (repeat (setq k (sslength ss))<br />   (setq ent (ssname ss (setq k (1- k))))<br />   (setq pt1 (cdr (assoc 10 (entget ent))))<br />   (setq pt2 (vlax-curve-getClosestPointTo obj pt1))<br />   (setq dis (vlax-curve-getDistAtPoint obj pt2))<br />   (if (= dis nil)<br />     (entmake (list '(0 . "CIRCLE") (cons 62 3)(cons 10 pt1) (cons 40 2.5)))<br />     )<br />   )<br />       )<br />     )<br />   )<br />

gzcsun

vlax函数有时候会这样，
加vl-catch-all-apply会过，
不是有速度要求还是用command.

你有种再说一遍

getpoint之后要求曲线最近点

永不言弃

你有种再说一遍 发表于 2024-4-27 16:43
getpoint之后要求曲线最近点

用了vlax-curve-getClosestPointTo，还是会有少部分返回空的情况

你有种再说一遍

永不言弃 发表于 2024-4-27 21:06
用了vlax-curve-getClosestPointTo，还是会有少部分返回空的情况

那真是见鬼了....超过双精度浮点数范围?平移到0,0再进行?

JUN1

没啥问题！！

xyp1964

1. (vlax-curve-getDistAtPoint
   
2.   (setq s1 (car (entsel "\n选择曲线: ")))
   
3.   (setq pt (vlax-curve-getclosestpointto s1 (setq pt (getpoint "\n曲线上点: "))))
   
4. )

(vlax-curve-getDistAtPoint<br />   (setq s1 (car (entsel "\n选择曲线: ")))<br />   (setq pt (vlax-curve-getclosestpointto s1 (setq pt (getpoint "\n曲线上点: "))))<br /> )

永不言弃

xyp1964 发表于 2024-4-28 19:40

院长，你用这个图试试，有两个点返回不了

1. (defun c:tt()
   
2.   (if (and
   
3.   (setq ent1 (car (entsel "\n 选择线")))
   
4.   (setq ss (ssget (list (cons 0 "INSERT"))))
   
5.   )
   
6.     (progn
   
7.       (setvar"OSMODE" 0)
   
8.       (setq obj (vlax-ename->vla-object ent1))
   
9.       (repeat (setq k (sslength ss))
   
10.   (setq ent (ssname ss (setq k (1- k))))
    
11.   (setq pt1 (cdr (assoc 10 (entget ent))))
    
12.   (setq pt2 (vlax-curve-getClosestPointTo obj pt1))
    
13.   (setq dis (vlax-curve-getDistAtPoint obj pt2))
    
14.   (if (= dis nil)
    
15.     (entmake (list '(0 . "CIRCLE") (cons 62 3)(cons 10 pt1) (cons 40 2.5)))
    
16.     )
    
17.   )
    
18.       )
    
19.     )
    
20.   )

(defun c:tt()<br />   (if (and<br />   (setq ent1 (car (entsel "\n 选择线")))<br />   (setq ss (ssget (list (cons 0 "INSERT"))))<br />   )<br />     (progn<br />       (setvar"OSMODE" 0)<br />       (setq obj (vlax-ename->vla-object ent1))<br />       (repeat (setq k (sslength ss))<br />   (setq ent (ssname ss (setq k (1- k))))<br />   (setq pt1 (cdr (assoc 10 (entget ent))))<br />   (setq pt2 (vlax-curve-getClosestPointTo obj pt1))<br />   (setq dis (vlax-curve-getDistAtPoint obj pt2))<br />   (if (= dis nil)<br />     (entmake (list '(0 . "CIRCLE") (cons 62 3)(cons 10 pt1) (cons 40 2.5)))<br />     )<br />   )<br />       )<br />     )<br />   )

xyp1964

曲线离原点'(0 0)太远

永不言弃

xyp1964 发表于 2024-4-29 12:45
曲线离原点'(0 0)太远

谢谢院长