请教一下，如何判断点中了多段线中的圆弧或直边

669423907

(defun c:tt(/ ss)
(if (setq ss (getpoint "\n 请点选对象: "))
(progn
;这里如何判断是圆弧或直边，如果是直边就线性标注，如果是圆弧就半径标注
(vl-cmdf "dimradius" "non" (nentselp ss))
(vl-cmdf "dimlinear" "non" (pl_pt ss 1) "non" (pl_pt ss 2) "\\")
)
)
(princ))

(defun pl_pt(ss pt / ne e n)
(setq en (nentselp ss) e (car en))
(setq e (car en))
(setq n (fix (vlax-curve-getparamatpoint e (vlax-curve-getclosestpointto e (cadr en)))))
(nth (- pt 1) (list (vlax-curve-getpointatparam e n) (vlax-curve-getpointatparam e (1+ n))) )
)

bonny

2. (defun c:tt (/ e p)
   
3.         (if (and (setq e (entsel))
   
4.                           (setq p (cadr e))
   
5.                                 (setq e (car e))
   
6.                                 (equal  '(0.0 0.0 0.0)
   
7.                                         (vlax-curve-getSecondDeriv e
   
8.                                                 (fix (vlax-curve-getparamatpoint e (vlax-curve-getclosestpointto e (trans p 1 0)))                                               
   
9.                                                 )
   
10.                                         )
    
11.                                 )
    
12.                         )
    
13.                 "LINE"
    
14.                 "ARC"
    
15.         )
    
16. )

(defun c:tt (/ e p)<br />         (if (and (setq e (entsel))<br />                           (setq p (cadr e))<br />                                 (setq e (car e))<br />                                 (equal  '(0.0 0.0 0.0) <br />                                         (vlax-curve-getSecondDeriv e<br />                                                 (fix (vlax-curve-getparamatpoint e (vlax-curve-getclosestpointto e (trans p 1 0)))                                                <br />                                                 )<br />                                         )<br />                                 )<br />                         )<br />                 "LINE"<br />                 "ARC"<br />         )<br /> )

asen

判断向量 AC,  CB 两条线的角度, 看是否相等, 相等即为直线, 否则为圆弧.

Dani1988

获取一下param那段的凸度，我用c#是获取param的SegmentType

669423907

Dani1988 发表于 2023-11-26 16:57
获取一下param那段的凸度，我用c#是获取param的SegmentType

谢谢回复，太深奥了，还搞不懂这些

669423907

asen 发表于 2023-11-26 16:54
判断向量 AC,  CB 两条线的角度, 看是否相等, 相等即为直线, 否则为圆弧.

请教一下，如何获得c点，如果获得c点，(= (distance a c) (distance b c)) 是不是也可以？

asen

C 点是您点中的点

669423907

bonny 发表于 2023-11-26 16:07

有点小问题，会把样条曲线也判断为圆弧

bonny

669423907 发表于 2023-11-26 20:37
有点小问题，会把样条曲线也判断为圆弧

你看你标题写着啥，多段线

669423907

bonny 发表于 2023-11-26 20:44
你看你标题写着啥，多段线

也是，考虑不周