请问各位大神如何实现垂直画线？

gduthy

请问各位大神如何实现垂直画线？如GIF图所示

kucha007

试试这个？

1. (defun c:TT (/ Old_Ort p1 p2 p3 p4)
   
2.   (defun *error* ( msg );定义出错函数
   
3.     (command "_.UCS"  "P" )
   
4.     (setvar "OrthoMode" Old_Ort)
   
5.   )
   
6.   (if
   
7.     (and
   
8.       (setq p1 (getpoint "\n→请选择旋转中心: "))
   
9.       (setq p2 (getpoint p1 "\n→请选择X轴正方向: "))
   
10.     )
    
11.     (progn
    
12.       (setq Old_Ort (getvar "OrthoMode"))
    
13.       (setvar "OrthoMode" 1)
    
14.       (setq P3 (trans P1 1 0))
    
15.       (setq P4 (trans P2 1 0))
    
16.       (command "_.UCS" "_Z" (Angtos (Angle P1 p2) 0 15))
    
17.       (COMMAND "_Pline" (trans P3 0 1) (trans P4 0 1) PAUSE)
    
18.       (while (/= 0 (getvar 'cmdactive))(vl-cmdf pause));等待命令结束
    
19.       (command "_.UCS"  "P" )
    
20.       (setvar "OrthoMode" Old_Ort)
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    

(defun c:TT (/ Old_Ort p1 p2 p3 p4)<br />   (defun *error* ( msg );定义出错函数<br />     (command "_.UCS"  "P" )<br />     (setvar "OrthoMode" Old_Ort)<br />   )<br />   (if<br />     (and<br />       (setq p1 (getpoint "\n→请选择旋转中心: "))<br />       (setq p2 (getpoint p1 "\n→请选择X轴正方向: "))<br />     )<br />     (progn<br />       (setq Old_Ort (getvar "OrthoMode"))<br />       (setvar "OrthoMode" 1)<br />       (setq P3 (trans P1 1 0))<br />       (setq P4 (trans P2 1 0))<br />       (command "_.UCS" "_Z" (Angtos (Angle P1 p2) 0 15))<br />       (COMMAND "_Pline" (trans P3 0 1) (trans P4 0 1) PAUSE)<br />       (while (/= 0 (getvar 'cmdactive))(vl-cmdf pause));等待命令结束<br />       (command "_.UCS"  "P" )<br />       (setvar "OrthoMode" Old_Ort)<br />     )<br />   )<br />   (princ)<br /> )<br />

ssyfeng

其实设置一下就可以实现这个功能：

masterlong

我的需求和你类似
都是想要画垂线
区别在于
我的第1、2点确定的是方向
第3点确定第2点的坐标

d1742647821

设定ucs为你要垂直的方向，然后开启正交就行了

gduthy

ssyfeng 发表于 2023-3-14 08:27
其实设置一下就可以实现这个功能：

这样设置也行，不过容易捕捉偏差

gduthy

masterlong 发表于 2023-3-14 09:46
我的需求和你类似
都是想要画垂线
区别在于

这是您用的插件吗？能否分享一下呢？

gduthy

d1742647821 发表于 2023-3-14 10:48
设定ucs为你要垂直的方向，然后开启正交就行了

您的意思是每次先两点画一条线段，用UCs设置ob对象再画线吗

JUN1

有个命令叫snapang,了解一下

香远益清

kucha007 发表于 2023-3-14 15:41
试试这个？

很好用的小程序，可以稍作优化，加上自动打开捕捉模式。