align lisp问题

Randolph · 发表于 2022-7-6 10:33:16

http://www.cadtutor.net/forum/showthread.php?49158-使用坐标过滤器沿轴移动对象

正如我写的那样，我们以前有过这个话题。我喜欢Frerefill的版本，因为它简单，但也许我会试试Alan的版本。

Randolph · 发表于 2022-7-6 10:35:36

嗨Mircea，

thanx，很抱歉，在我上次发帖之前，我没有看到你的回复。我会试试你的方法；OSNAP也是我的嫌疑犯。

拉尔夫

Randolph · 发表于 2022-7-6 10:40:18

嗨Mircea，

基本上，你的代码是有效的。只是它在选择点之前停用了osnap，这不是很好。此外，它似乎不会重新激活osnap。看起来你的代码会询问osnap状态，然后会重新生成它，但我不完全明白怎么做。因此，我将其改为我更原始的方式，现在它似乎起作用了：

copy

(defun c:TZP ( / OldOsm a b c s)
(princ "Select objects: ")
(if (and (setq s (ssget))
         (setq a (getpoint "\nSelect item base point: "))
         (setq b (getpoint "\nSelect target point: ")))
 (progn
  (setq c (list (car a) (cadr a) (caddr b)))
  (COMMAND "_OSNAP" "")
  (vl-cmdf "_move" s "" a c)
 )
)
(COMMAND "_OSNAP" "_END,_INT,_MID,_CEN,_INS,_PER")
(princ)
)

MSasu · 发表于 2022-7-6 10:43:34

似乎您错过了复制我的示例中的一些行-我将它们与每个操作的注释一起添加到您的代码中。OSNAP模式存储在OSMODE系统变量中：1、当前设置存储在局部变量中；第二，禁用该模式以不干扰命令调用；第三，恢复先前存储的状态。
请记住，在完成例程后恢复用户环境是一种非常好的编程实践。

copy


(defun c:TZP ( / OldOsm a b c s)
[color=blue] (setq OldOsm (getvar "OSMODE"))   ;retain current state of OSNAP mode[/color]
(princ "Select objects: ")
(if (and (setq s (ssget))
         (setq a (getpoint "\nSelect item base point: "))
         (setq b (getpoint "\nSelect target point: ")))
 (progn
  (setq c (list (car a) (cadr a) (caddr b)))
  [color=blue];[/color](COMMAND "_OSNAP" "")
  [color=blue](setvar "OSMODE" 0)             ;disable OSNAP mode
[/color]   (vl-cmdf "_move" s "" a c)
 )
)
[color=blue] (setvar "OSMODE" OldOsm)          ;restore previous state of OSNAP mode[/color]
[color=blue];[/color](COMMAND "_OSNAP" "_END,_INT,_MID,_CEN,_INS,_PER")
(princ)
)

当做
米尔恰

MSasu · 发表于 2022-7-6 10:49:00

@Randolph，你是对的，之前的代码中有一个错误-我现在修复了它。很抱歉给您带来不便。非常感谢。

当做
米尔恰

Randolph · 发表于 2022-7-6 10:52:45

不要道歉，你帮了我很多！我同意恢复以前地位的方法更优雅。但另一方面，我有很多命令（命令“\u OSNAP”“\u END，\u INT，\u MID，\u CEN，\u PER，\u INS”）。这是因为我不是程序员，复制了我的acad。lsp来自多个地方。

顺便问一下：你介意在我的另一个帖子上唠叨一下吗
绕x、y、z轴旋转

总之，这似乎是一个问题。

MSasu · 发表于 2022-7-6 10:55:29

如果决定切换到使用系统变量而不是命令调用，则可以通过汇总每个所需模式的值来设置当前模式：

copy

None                     0
Endpoint                 1
Midpoint                 2
Center                   4
Node                     8
Quadrant                16
Intersection            32
Insertion               64
Perpendicular          128
Tangent                256
Nearest                512
Apparent Intersection 2048
Extension             4096
Parallel              8192

例如：端点+中点+象限：OSMODE=1+2+16=19

当做
米尔恰

[编程交流] align lisp问题

发表回复

精选推荐