Z坐标归0

lee3737 · 发表于 2020-1-29 15:58:55

支持楼主，学习一下了

cqu20104225 · 发表于 2020-1-30 18:07:06

这是个好东西，经常就因为Z轴不为零，出现问题

青叶乀 · 发表于 2020-3-21 10:00:43

谢谢带佬！！

choiken · 发表于 2020-4-27 11:25:14

学习学习，谢谢分享

xdcad9819 · 发表于 2020-4-27 11:44:39

Z坐标归0是个什么意思呢？

liujian107 · 发表于 2020-7-19 20:17:54

终于找到这个程序的源代码了

wysclc · 发表于 2020-7-20 09:21:38

学习。。。。。。。。。。。。。。。。。。。

845245015 · 发表于 2020-7-21 21:21:19

支持支持支持

clm840917 · 发表于 2020-8-14 09:39:14

;;[功能] 两对象交点列表(也可能是虚交点)
;;Flag:
;;acextendnone 0 不延伸
;;acextendthisentity 1 延伸基准对象
;;acextendotherentity 2
;;acextendboth 3
;;示例(HH:TwoEntsInters (car(entsel)) (car(entsel)) 0)
本帖隐藏的内容
(defun HH:TwoEntsInters       (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
  (setq obj1 (vla-copy (vlax-ename->vla-object e1)))
  (setq obj2 (vla-copy (vlax-ename->vla-object e2)))
  (XX:LeftPick:LineZto0Ent (vlax-vla-object->ename obj1))
  (XX:LeftPick:LineZto0Ent (vlax-vla-object->ename obj2))
  (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
  (VL-CATCH-ALL-APPLY 'vla-Delete (list obj1))
  (VL-CATCH-ALL-APPLY 'vla-Delete (list obj2))
  (while pts
(setq ptl (cons (list (car pts) (cadr pts)) ptl))
(setq pts (cdddr pts))
  )
  ptl

838510233 · 发表于 2020-9-9 08:31:21

谢谢楼主分享

228401402 · 发表于 2020-12-27 21:48:33

vvhnnjkmm0

apcnb · 发表于 2020-12-30 18:11:24

看看，学习一下

无脚的_Z5G57 · 发表于 2021-1-4 21:22:57

支持支持支持，不错不错

jinwei66 · 发表于 2021-1-14 11:26:58

看看好不好用

xxxxxxxxx123 · 发表于 2021-1-14 16:04:55

学习一下谢谢分享

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

[每日一码] Z坐标归0