社区 › AutoLISP/Visual LISP 编程技术 › 简单的投影程序

xiaofeixia007 发表于 2024-7-24 12:13:48

感谢分享，大力支持。谢谢

shirker 发表于 2024-7-25 13:56:30

学习了，有空试一下

lpx530115 发表于 2025-2-20 09:25:18

感谢分享{:1_1:}{:1_1:}

xyp1964 发表于 2025-2-21 23:44:08

本帖最后由 xyp1964 于 2025-2-22 08:48 编辑

完善可视点投影为虚线的问题：

chshsl 发表于 2025-2-22 09:31:09

没币，还是回复感谢楼主共享程序。

xyp1964 发表于 2025-2-23 14:08:54

上次的投影放置位置有问题

阿猪蛋 发表于 2025-2-24 09:17:07

支持一下！

预知幸福 发表于 2025-3-4 09:36:39

能不能改成这样，选择一根线 自动生成它的竖直投影构造线这样方便对平面与剖面是否对得上 谢谢

菜卷鱼 发表于 2025-3-5 10:37:50

预知幸福 发表于 2025-3-4 09:36
能不能改成这样，选择一根线 自动生成它的竖直投影构造线这样方便对平面与剖面是否对得上 谢谢

因为这个功能我用不上了，没有维护升级了，需要付费开发吗？

xyp1964 发表于 2025-3-5 20:04:23

预知幸福 发表于 2025-3-4 09:36
能不能改成这样，选择一根线 自动生成它的竖直投影构造线这样方便对平面与剖面是否对得上 谢谢

(defun c:tt ()
"多段线竖直投影构造线"
(if (setq e (car (entsel "\n选择多段线: ")))
    (progn
      (setq ptn (mapcar 'cdr(vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e)))
            lst '()
      )
      (foreach p ptn
      (setq x (car p))
      (if (not (member x lst))
          (setq lst (cons x lst)
                a   (command "xline" p (polar p (* pi 0.5) 10) "")
          )
      )
      )
    )
)
(princ)
)

查看完整版本: 简单的投影程序