(defun m_IntersectWith (m_ent1 m_ent2 / m_obj1 m_obj2 m_objcopy1 m_objcopy2 m_jdtab m_jdtab1 i)  ...
yoyoho大侠好!我一条线与N条等高线外观交点粘贴cass高程属性块20240519圆和闭合多段线不能实现,自己修改过的文件上传到这里了!感觉大侠还能继续优化→能否实现框选cass舒心高程块→输出剖面线并粘贴高程值http://bbs.mjtd.com/forum.php?mod=viewthread&tid=173261&page=6#pid980652 李龙山 发表于 2010-1-5 22:24
测试通过了。(defun c:get_int0( / ent1 ent2 ps) (setq ent1 (car (entsel "选择第一实体:")))  ...
谢谢 才开始学习 也在找这个
页:
1
[2]