对齐标注lisp

broncos15 · 发表于 2022-7-5 18:29:18

我对代码的dimaligned部分有问题。代码运行正常，但随后出现错误“未知命令”Dimaligned2“”。我收到错误似乎很奇怪，但代码仍在运行。另一个问题是，垂直捕捉的动作真的很奇怪（不是直接在我捕捉到的地方进行）。代码如下：

(defun C:DIMALIGNED2 ( / pt1 pt2 oldsnap)
 (setq oldsnap (getvar "osmode"))
 (setq pt1 (getpoint "\nSpecify first extension line origin: "))
 (setvar "osmode" 128)
 (setq pt2 (getpoint "\nSpecify second extension line origin: "))
 (command "._DIMALIGNED" pt1 pt2 pause "")
 (prompt "\nDimension Aligned")
 (setvar "osmode" oldsnap)
 (princ)
)

broncos15 · 发表于 2022-7-5 18:51:46

因此，仔细研究后，我知道垂直部分的问题与点2与点1无关，因此AutoCAD不知道从何处垂直。我试图纠正它做了以下，但它不工作。

copy

(defun C:DIMALIGNED2 ( / pt1 oldsnap)
 (setq oldsnap (getvar "osmode"))
 (setq pt1 (getpoint "\nSpecify first extension line origin: "))
 (setvar "osmode" 128)
 (command "._DIMALIGNED" pt1 pause "")
 (prompt "\nDimension Aligned")
 (setvar "osmode" oldsnap)
 (princ)
)

broncos15 · 发表于 2022-7-5 19:13:41

因此，在意识到我在上一篇文章中犯了一个愚蠢的错误后，我改正了错误。然而，我仍然有一些问题，它说运行后命令未知，它不会重置我的OSNAP，垂直工作得更好，但仍然存在一些问题。

copy

(defun C:DIMALIGNED2 ( / pt1 oldsnap)
 (setq oldsnap (getvar "osmode"))
 (setq pt1 (getpoint "\nSpecify first extension line origin: "))
 (setvar "osmode" 128)
 (command "._DIMALIGNED" pt1 pause pause pause "")
 (prompt "\nDimension Aligned")
 (setvar "osmode" oldsnap)
 (princ)
)

broncos15 · 发表于 2022-7-5 19:29:25

所以我想出了一个解决方案，以防有人需要。我只是让代码变得比需要的更复杂。

copy

(defun c:dimaligned2 ()
 (command "._dimaligned" pause "_perp" pause pause pause "_e")
 )

[编程交流] 对齐标注lisp

发表回复

精选推荐