用于真正锁定的Lisp文件o

aban · 发表于 2022-7-5 14:24:52

这正是我想要的，角度每45度锁定一次。但是我不想要旋转的x和y轴。我在看线程，但从德拉诺写的描述来看，似乎我需要先画一个圆、圆弧或椭圆，我不明白为什么。我想要视频显示的内容，所以如果我可以将其设置为“DD”，而不是命令行中的“test”。另外，你是在写不同的角度，还是会自动变为90度、0度、45度、135度、180度等等？我希望它自动捕捉到这些度。有点像正交，但在这种情况下，它是每45度角。

我以前做过一点Lisp程序的练习，并试图理解这一点，但在大多数情况下，这对我来说非常困难。

这是最接近我想要的东西。非常感谢。

hanhphuc · 发表于 2022-7-5 14:25:17

我回忆起李的LM:orthopoint

copy


;LM:orthopoint (trans method)
;slightly mod
(trans (getvar 'UCSXDIR) 0 1)
;to
(trans (list c c 0.0) 0 1)

其中C等于（cos（*0.25 pi））
GIF演示只是从理论上表达了你在45d时的“锁定”（正交）行为的可能性
然而，我们仍然更喜欢polarsnap模式，您可以在命令激活等期间在对象和输入距离内相交。。
注意：当您回复包含代码时，不需要引用整个代码，只需引用代码片段，例如：（defun dd…）然后理解，否则在原始代码更新时会产生混淆。
按照Ronjonp的建议，IMO已经足够了，设置45d增量角极坐标跟踪，在绘图过程中切换F8和F10并不困难。
你为什么坚持使用ortho 45d？ortho或polar只是一个绘图辅助工具，与我的示例代码相同，其中命令“dd”或（dd）

aban · 发表于 2022-7-5 14:30:23

您可以为切换设置SNAPANG和ORTHOMODE。
我也不明白为什么极地追踪如此困难。

hanhphuc · 发表于 2022-7-5 14:33:02

Snap和with ortho仅将光标设置为45度，但仍然只提供90度的间隔。我需要正交模式，但不是以90度间隔捕捉直线，例如，90度、180度、270度、360度，我希望每隔45度间隔捕捉一次，45度、90度、135度、180度等等。

我现在使用极轴追踪，并将其与正交进行切换，但对于我每天绘制的对象数量来说，使用此命令会更有用。当我已经对极轴跟踪进行了0度和90度跟踪时，我还应用了正交，从而大大增加了我的拔模时间。如果我能把这个命令集于一身，那将对我大有裨益。

SLW210 · 发表于 2022-7-5 14:34:48

这是我放在lsp文件中的内容：

“（定义c:dd（）
;一小条
（ERPI）
;暂停以供用户输入
（if（setq d（getdist“\n输入距离或：”））
（setq p3（极性p1 b d））
)
（重新绘制）
（grdraw p1 p3 1 0）
p3“

在autocad中按“DD”时，插入命令启动。此lisp命令无效。。。我做错了什么？

aban · 发表于 2022-7-5 14:40:36

将snapang和ortho设置为45的另一个问题是，它不会给我90180270度。每次我想将正交从45切换到90，我都要花很长时间来做snapang。如果我有1个命令，每隔45度而不是90度旋转正交模式，它将为我提供工作所需的准确信息。谢谢你的帮助。

aban · 发表于 2022-7-5 14:43:05

因为上周六已经更新了，所以没有必要修改它-尝试重新加载以前的代码
不确定它为什么启动INSERT命令？您是否使用任何安装了类似命令“DD”的垂直产品或自定义程序？
为了避免冲突，您只需将“DD”替换为其他唯一名称“OO”等。。

copy


Command: pline
Specify start point: 0,0
Current line-width is 0.0000
Specify next point or [Arc/Halfwidth/Length/Undo/Width]: (dd)
Ortho angle = 315
(5.09256 -5.09256 0.0)

看起来您希望使用此替代正交模式与其他命令一起调用Aborate，
IMO的lisp限制？作为绘图辅助（修改器），每个命令只能对Lisp求值一次，在下一个命令后它不会激活，$0.02建议-自定义工具栏单击它以激活。
添加宏（c:OO）或（DD）-重要提示：必须包括括号“（“”）！
示例：测试“MOVE”命令，“DD”或“OO”不起作用，但与“（DD）”一起工作

copy


;snippet
  (terpri)
  ;pause for user input
  (if (setq d (getdist "\nInput distance or <Enter> : "))
    (setq p3 (polar p1 b d))
   )
  (redraw)
  (grdraw p1 p3 1 0)
  p3