gduthy 发表于 2023-3-14 00:49:18

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

本帖最后由 gduthy 于 2023-3-14 01:00 编辑

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

kucha007 发表于 2023-3-14 00:49:19

本帖最后由 kucha007 于 2023-3-15 09:38 编辑

试试这个？

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

ssyfeng 发表于 2023-3-14 08:27:59

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


masterlong 发表于 2023-3-14 09:46:06

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




d1742647821 发表于 2023-3-14 10:48:49

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

gduthy 发表于 2023-3-14 13:41:03

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

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

gduthy 发表于 2023-3-14 13:42:12

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


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

gduthy 发表于 2023-3-14 13:44:28

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

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

JUN1 发表于 2023-3-14 14:23:00

有个命令叫snapang,了解一下

香远益清 发表于 2023-3-15 09:14:18

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

很好用的小程序，可以稍作优化，加上自动打开捕捉模式。
页: [1] 2
查看完整版本: 请问各位大神如何实现垂直画线？