如何判斷ARC角度起點與結束點的中間點

张大锤 · 发表于 2018-7-24 15:53:33

ysq101 发表于 2018-7-21 23:51
LISP也不是无力的。
打好LISP基础 VLISP简化很多算法
很多需要“硬算”的东东

如果说vlisp与lisp 结合在一起是可以实现很多的
比较c# 是不是还是比较弱

张大锤 · 发表于 2018-7-24 15:55:12

namezg 发表于 2018-7-23 11:00
;再来一个简单点的，利用捕捉
(setq pt (cadr (entsel)));拾取点
(setq mpt (osnap pt "_mid"));中点

朋友十分感谢回答的特别全面

张大锤 · 发表于 2018-7-26 10:51:54

前生发表于 2018-7-23 00:16
这个计算中点的话，要似乎要考虑象限的情况。即50 与51值的情况

嗯我使用了 (判斷 (and 50 51))

前生 · 发表于 2018-7-26 13:38:08

(setq r  (cdr (assoc 40 eli))
as (cdr (assoc 50 eli))
ae (cdr (assoc 51 eli))
pc (cdr (assoc 10 eli))
   )
   (if (and (> ae as) (< ae (* pi 2.0)))
      (setq a-half (* (+ as ae) 0.5))
      (setq a-half (+ (* (+ as ae) 0.5) pi))
   )

前生 · 发表于 2018-7-26 13:38:49

直接(/ ( + 50 51) 2)是有问题的。

前生 · 发表于 2020-2-10 01:08:10

(setq e (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en)))
(setq am (vlax-curve-getPointAtDist en (* 0.5 e)))
am为弧的中点
3个点用向量来判断顺逆

LIULISHENG · 发表于 2020-3-8 19:48:45

学到了很不错

账号		自动登录	找回密码
密码			注册

[提问] 如何判斷ARC角度 起點與結束點的中間點

[提问] 如何判斷ARC角度起點與結束點的中間點