无需调整坐标三维标注

a197712939

a197712939 发表于 2023-12-23 10:36
(defun N::IsInLine (p1 p2 px)
  (or
    (N::IsOnLine p1 p2 px)

• ;判断点是否在两点连线上
• (defun N::IsOnLine (p1 p2 px)
•   (or
•   (equal p1 px 0.001)
•   (equal p2 px 0.001)
•   (and
•     (< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)
•     (or
•       (< (abs (- (angle p1 px) (angle px p2))) 0.0001)
•       (< (abs (- (angle p2 px) (angle px p1))) 0.0001)
•     )
•   ))
• )
  

;判断点是否在两点连线上
(defun N::IsOnLine (p1 p2 px)
  (or
        (equal p1 px 0.001)
        (equal p2 px 0.001)
        (and
    (< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)
    (or
      (< (abs (- (angle p1 px) (angle px p2))) 0.0001)
      (< (abs (- (angle p2 px) (angle px p1))) 0.0001)
    )
  ))
)

a197712939

marxbat 发表于 2023-12-18 14:57
本人不懂lisp。刚才试着用记事本打开，将N::IsInLine pt1   改成  equal。发现错误提示没了，也能标 ...

不好意思之前忘记附加上子函数导致错误;判断点是否在两点连线上或连线的延长线上
(defun N::IsInLine (p1 p2 px)
  (or
    (N::IsOnLine p1 p2 px)
    (N::IsOnExLine p1 p2 px)
  )
)

marxbat

Anlimer 发表于 2023-11-7 16:29
错误  no function definition: N::ISINLINE 缺少函数   有知道回事？ 谢谢

本人不懂lisp。刚才试着用记事本打开，将N::IsInLine pt1   改成  equal。发现错误提示没了，也能标注。供参考。

panliang9

谢谢楼主分享！

zixuan203344

你的 -22明经币，这个负号怎么弄出来的？明经币是可以贷款还是能透支？

mokson

以前标注三维实体太头痛了，总是要将坐标换来换去，现在有了它，太方便了。
楼主辛苦了。

a197712939

zixuan203344 发表于 2022-3-15 08:44
你的 -22明经币，这个负号怎么弄出来的？明经币是可以贷款还是能透支？

那时为了下一个文件，发帖数不够，灌水乱发一些主题

dalong6371451

没有币，只能看看了，唉！

yaooyaoo

没有币，只能看看了，唉！

669423907

谢谢楼主分享好码

至今没学会

这个屌，用的到，谢谢大佬分享

wxmq2000

没币了~~~~~~~~~~~~~~~~~