（求助）关于选边平行于X轴的实现

999999

请问各位大神有没有选边平行于X轴的代码（可以实现用点选的方式多个选择，并且结束后捕捉点还是回到命令启动前，，，之所以想要点选的方式是，我感觉框选的方式应该行不通，识别不了以哪条边为基础平行）

在此谢谢各位大神了，，本人太过愚钝，，对代码这些，，理解欠缺，，所以麻烦一下论坛的大佬了

ZZXXQQ

1. ;选边平行X轴 ZZXXQQ 2020-8-12
   
2. (defun c:tt ()
   
3. (while (setq s1 (entsel "\n选择一条边: "))
   
4.   (setq en (car s1) pt (cadr s1))
   
5.   (setq ang (angle pt (setq pt1 (osnap pt "nea"))))
   
6.   (if (> ang pi) (setq ang (- ang pi)))
   
7.   (setq roang (rtos (- 90 (/ (* ang 180) pi)) 2 3))
   
8.   (command "_.ROTATE" en "" pt1 roang)
   
9. )
   
10. (princ)
    
11. )
    

;选边平行X轴 ZZXXQQ 2020-8-12<br /> (defun c:tt ()<br /> (while (setq s1 (entsel "\n选择一条边: "))<br />   (setq en (car s1) pt (cadr s1))<br />   (setq ang (angle pt (setq pt1 (osnap pt "nea"))))<br />   (if (> ang pi) (setq ang (- ang pi)))<br />   (setq roang (rtos (- 90 (/ (* ang 180) pi)) 2 3))<br />   (command "_.ROTATE" en "" pt1 roang)<br /> )<br /> (princ)<br /> )<br />

fl202

选边平行于X轴 ？ 就是把三角形旋转呗？你的三角形是块还是3条直线？

根据哪个点旋转呢？一条边有2个端点，还有一个中点。

编这个程序不难。

love1030312

fl202 发表于 2020-8-10 15:04
选边平行于X轴 ？ 就是把三角形旋转呗？你的三角形是块还是3条直线？

根据哪个点旋转呢？一条边有2个端 ...

看他的描述就能看出来 是想直接求代码的  不可能会自己动手  而且思路有问题；实用性非常差

999999

love1030312 发表于 2020-8-10 15:24
看他的描述就能看出来 是想直接求代码的  不可能会自己动手  而且思路有问题；实用性非常差

唉，，大神这话说的我要是知道自己打代码的话，，我就自给自足了，，只是说大概的想法，，，一个个自己旋转感觉有灵魂，没效率    哈哈，，所以求助各跑好汉

999999

fl202 发表于 2020-8-10 15:04
选边平行于X轴 ？ 就是把三角形旋转呗？你的三角形是块还是3条直线？

根据哪个点旋转呢？一条边有2个端 ...

大神，这个是多段线组成的三角形，不是块，三角形是闭合的，  图形不一定是三角形，有可能之后有是矩形，不规则的图形，但不是块，意思就是（输入命令——选择图形边（代码识别该边的两端）——连接部份的
整体平行与X轴——结束）

999999

love1030312 发表于 2020-8-10 15:24
看他的描述就能看出来 是想直接求代码的  不可能会自己动手  而且思路有问题；实用性非常差

我就是不懂代码的思路是怎么样的，所以大致表达一下我认为的想法

生活丨好无奈

一个点没法确定旋转方向，点取边上的两个点控制旋转方向

1. (defun c:tt(/ pt1 pt2)
   
2.     (and (ssget)
   
3.          (setq pt1 (getpoint "\n基点: "))
   
4.          (setq pt2 (getpoint pt1 "\n点取角度,此角度将改为0度: "))
   
5.          (command "rotate" "p" "" "non" pt1 "r" "non" pt1 "non" pt2 "0")
   
6.     )
   
7.     (princ)
   
8. )

(defun c:tt(/ pt1 pt2)<br />     (and (ssget)<br />          (setq pt1 (getpoint "\n基点: "))<br />          (setq pt2 (getpoint pt1 "\n点取角度,此角度将改为0度: "))<br />          (command "rotate" "p" "" "non" pt1 "r" "non" pt1 "non" pt2 "0")<br />     )<br />     (princ)<br /> )

999999

生活丨好无奈 发表于 2020-8-11 02:31
一个点没法确定旋转方向，点取边上的两个点控制旋转方向

谢谢大神的帮助，请问有没有可能实现选择边，让该边平行X轴呢

999999

ZZXXQQ 发表于 2020-8-10 12:39

谢谢大神，，这个试了一下，确实实现在我的想法，谢谢   太优秀了