简单的投影程序

xiaofeixia007

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

shirker

学习了，有空试一下

lpx530115

感谢分享

xyp1964

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

chshsl

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

xyp1964

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

阿猪蛋

支持一下！

预知幸福

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

菜卷鱼

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

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

xyp1964

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

1. (defun c:tt ()
   
2.   "多段线竖直投影构造线"
   
3.   (if (setq e (car (entsel "\n选择多段线: ")))
   
4.     (progn
   
5.       (setq ptn (mapcar 'cdr(vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e)))
   
6.             lst '()
   
7.       )
   
8.       (foreach p ptn
   
9.         (setq x (car p))
   
10.         (if (not (member x lst))
    
11.           (setq lst (cons x lst)
    
12.                 a   (command "xline" p (polar p (* pi 0.5) 10) "")
    
13.           )
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

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