张大锤 发表于 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

学到了很不错
页: 1 [2]
查看完整版本: 如何判斷ARC角度 起點與結束點的中間點