你说我容易么(获取圆心不容易)?

自贡黄明儒

PCCAD V21的(osnap p "CEN")不起任何作用，与2K相比还有不少差距（但是此国产软件便宜，作为上市公司推行正版），于是只能计算圆心。以往发过计算圆心的函数，希望这个更成熟。

1. ;;[获取圆心]无圆心返回nil
   
2. (defun HH:GetCenter2 (curve P / EP PARAM PP SP)
   
3.   (setq pp (vlax-curve-getclosestpointto curve (trans p 1 0)))
   
4.   (setq Param (vlax-curve-GetParamAtPoint curve PP))
   
5.   (if (equal (vlax-curve-getsecondderiv curve Param)
   
6.              '(0.0 0.0 0.0)
   
7.       );直线
   
8.     nil
   
9.     (progn
   
10.       (if (<= (- Param 0.0001) (vlax-curve-GetStartParam curve))
    
11.         (progn
    
12.           (setq Param (+ Param 0.0001))
    
13.           (setq pp (vlax-curve-GetPointAtParam curve Param))
    
14.         )
    
15.       )
    
16.       (if (>= (+ Param 0.0001) (vlax-curve-GetEndParam curve))
    
17.         (progn
    
18.           (setq Param (- Param 0.0001))
    
19.           (setq pp (vlax-curve-GetPointAtParam curve Param))
    
20.         )
    
21.       )
    
22.       (setq sp (vlax-curve-getPointAtParam curve (- Param 0.0001)))
    
23.       (setq Ep (vlax-curve-getPointAtParam curve (+ Param 0.0001)))
    
24.       (if (wcmatch (getvar "AcadVer") "*BricsCAD*") ; PCCAD
    
25.         (mapcar '+ pp (vlax-curve-getsecondderiv curve Param))
    
26.         (if
    
27.           (minusp (car (trans (mapcar '- pp Ep) 0 (mapcar '- Ep sp)))) ;顺时针为T
    
28.            (mapcar '+ pp (vlax-curve-getsecondderiv curve Param))
    
29.            (mapcar '- pp (vlax-curve-getsecondderiv curve Param))
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34. )

;;[获取圆心]无圆心返回nil<br /> (defun HH:GetCenter2 (curve P / EP PARAM PP SP)<br />   (setq pp (vlax-curve-getclosestpointto curve (trans p 1 0)))<br />   (setq Param (vlax-curve-GetParamAtPoint curve PP))<br />   (if (equal (vlax-curve-getsecondderiv curve Param)<br />              '(0.0 0.0 0.0)<br />       );直线<br />     nil<br />     (progn<br />       (if (<= (- Param 0.0001) (vlax-curve-GetStartParam curve))<br />         (progn<br />           (setq Param (+ Param 0.0001))<br />           (setq pp (vlax-curve-GetPointAtParam curve Param))<br />         )<br />       )<br />       (if (>= (+ Param 0.0001) (vlax-curve-GetEndParam curve))<br />         (progn<br />           (setq Param (- Param 0.0001))<br />           (setq pp (vlax-curve-GetPointAtParam curve Param))<br />         )<br />       )<br />       (setq sp (vlax-curve-getPointAtParam curve (- Param 0.0001)))<br />       (setq Ep (vlax-curve-getPointAtParam curve (+ Param 0.0001)))<br />       (if (wcmatch (getvar "AcadVer") "*BricsCAD*") ; PCCAD<br />         (mapcar '+ pp (vlax-curve-getsecondderiv curve Param))<br />         (if<br />           (minusp (car (trans (mapcar '- pp Ep) 0 (mapcar '- Ep sp)))) ;顺时针为T<br />            (mapcar '+ pp (vlax-curve-getsecondderiv curve Param))<br />            (mapcar '- pp (vlax-curve-getsecondderiv curve Param))<br />         )<br />       )<br />     )<br />   )<br /> )

自贡黄明儒

表骑马实开车 发表于 2022-4-30 19:01
大佬，我测试了你的这两个获得圆心的函数，包括我曾经试过lee mac的获得圆心的函数 ，似乎都存在反向的 ...

(210 0.0 0.0 1.0)

zixuan203344

噗。瞧把孩子逼成什么样了

999999

成功后，回过头来想想，就容易了

e2002

什么是PCCAD？是在 BricsCAD上的二次开发程序吧？

自贡黄明儒

清华天河，国产，便宜。

表骑马实开车

大佬，我测试了你的这两个获得圆心的函数，包括我曾经试过lee mac的获得圆心的函数 ，似乎都存在反向的圆心问题？ 这是什么原因？

表骑马实开车

自贡黄明儒 发表于 2022-5-2 11:08
(210 0.0 0.0 1.0)

大佬，可以解释清楚一点吗？其实新手看不懂

表骑马实开车

表骑马实开车 发表于 2022-5-2 13:04
大佬，可以解释清楚一点吗？其实新手看不懂

2. (vl-load-com)
   
3. (defun c:HH:GetCenter3 (/ CENLIST EP FLAG MDERIV MP PARAM SP)
   
4.   (setq curve (car (entsel)))
   
5.   (setq param (fix (vlax-curve-getEndParam curve)))
   
6.   (setq sp (vlax-curve-getPointAtParam curve param))
   
7.   (repeat param
   
8.     (setq param (1- param))
   
9.     (setq Ep (vlax-curve-getPointAtParam curve param))
   
10.     (setq Mp (vlax-curve-getPointAtParam curve (+ param 0.5))) ;中点
    
11.     (setq Mderiv (vlax-curve-getsecondderiv curve (+ param 0.5)));中点法线
    
12.     (setq Flag (car (trans (mapcar '- Mp Ep) 0 (mapcar '- Ep sp))))
    
13.     (cond ((equal Flag 0) nil)
    
14.     ((and  (minusp Flag)
    
15.     (not (minusp (last (assoc 210 (entget curve)))))
    
16.      )
    
17.      (setq CenList (cons (mapcar '- Mp Mderiv) CenList))
    
18.     )
    
19.     (T
    
20.      (setq CenList (cons (mapcar '+ Mp Mderiv) CenList))
    
21.     )
    
22.     )
    
23.     (setq sp Ep)
    
24.   )
    
25.   CenList
    
26.   (command "circle" (car CenList) 60)
    
27. )

(vl-load-com)<br /> (defun c:HH:GetCenter3 (/ CENLIST EP FLAG MDERIV MP PARAM SP)<br />   (setq curve (car (entsel)))<br />   (setq param (fix (vlax-curve-getEndParam curve)))<br />   (setq sp (vlax-curve-getPointAtParam curve param))<br />   (repeat param<br />     (setq param (1- param))<br />     (setq Ep (vlax-curve-getPointAtParam curve param))<br />     (setq Mp (vlax-curve-getPointAtParam curve (+ param 0.5))) ;中点<br />     (setq Mderiv (vlax-curve-getsecondderiv curve (+ param 0.5)));中点法线<br />     (setq Flag (car (trans (mapcar '- Mp Ep) 0 (mapcar '- Ep sp))))<br />     (cond ((equal Flag 0) nil)<br />     ((and  (minusp Flag)<br />     (not (minusp (last (assoc 210 (entget curve)))))<br />      )<br />      (setq CenList (cons (mapcar '- Mp Mderiv) CenList))<br />     )<br />     (T<br />      (setq CenList (cons (mapcar '+ Mp Mderiv) CenList))<br />     )<br />     )<br />     (setq sp Ep)<br />   )<br />   CenList<br />   (command "circle" (car CenList) 60)<br /> )

我这样改的话似乎可以了，请问会不会存在逻辑问题？

(and (minusp Flag)
     (not (minusp (last (assoc 210 (entget curve)))))
)