Lisp设置捕捉点和cop

AdamW · 发表于 2022-7-5 15:17:35

有人能帮忙吗。我通常在任何时候都设置了几个捕捉点。复制时，我会定期将捕捉点设置为端点或中点，复制捕捉点，然后将其重置为以前的捕捉。

我写了这个Lisp程序的句子，但是。。。。。它将捕捉点设置为将对象复制到第一个位置，但在复制的第一个实例之后，捕捉点将恢复为所有捕捉点，而不是中点或端点。

copy

(defun C:Copy-Point (/ copy_objects osm cm Choice)
(setq copy_objects (ssget))
(setq osm (getvar 'osmode) cm (getvar 'copymode))
(setvar "copymode" 1)
   (initget 1 "Midpoint Endpoint")
   (setq Choice (getkword "\nWhich Point [Midpoint/Endpoint]: "))
       (cond
       ((= Choice "Midpoint")(command "osmode" 2 ))
       ((= Choice "Endpoint")(command "osmode" 1 ))
       )
(command "copy" copy_objects "" "m" pause pause)
(setvar 'osmode osm)
(setvar 'copymode cm)
(princ)
)

BIGAL · 发表于 2022-7-5 15:31:23

我不知道为什么你不在99%的工作中使用osmode 3，这两个快照之间的距离足够远，不会选择错误的1。

AdamW · 发表于 2022-7-5 15:43:12

嗨，比格尔。这些快照似乎距离不够远。我正在绘制一个35mm宽的屋顶木材，因此捕捉端和中间之间只有17.5mm。木材相距600mm，可以跨越12m，因此在缩小时很难选择正确的捕捉，因此在本例中只切换一个捕捉点。

BIGAL · 发表于 2022-7-5 15:47:35

你是对的，我会想一个更好的办法。你想过几天后在这里发一个帖子吗。不同的方法。

例如，使用无大代码，但必须加载defuns。

复制
选择对象
'1拾取左端或右端
选择下一点，但您可以使用“1”2“3”4，这取决于您。

copy


(defun c:1 ( ) (command "end"))
(defun c:2 ( ) (command "mid"))
(defun c:3 ( ) (command "perp"))
(defun c:4 ( ) (command "centre")) ;circle

hanhphuc · 发表于 2022-7-5 15:53:54

我认为比格尔是离线的？这是痛苦的500内部服务器错误！！
我的想法是在*error*中恢复osmode，但COPY命令有自己的错误句柄，如果按下仍然无法调试。
所以在复制对象后，尝试命令：Q来恢复osmode

copy


(eval (list 'defun-q 'C:Q 'nil '(ai_sysvar nil))) 
(defun C:CPP (/ copy_objects Choice)
 (if (setq copy_objects (ssget))
   (progn (initget 1 "Midpoint Endpoint")
   (setq Choice (getkword "\nWhich Point [Midpoint/Endpoint]: "))
   (ai_sysvar (list '("cmdecho" . 0)
                    (cons "osmode"
                          (if (= Choice "Midpoint")
                            2
                            1
                            ) 
                          ) 
                    ) 
              ) 
   (command "copy" copy_objects "" "m" "\""\")
   ) 
   ) 
 (princ)
 )

BIGAL · 发表于 2022-7-5 16:01:56

我只是试图通过使用透明命令来删除iniget步骤，你可以有任意多个，如果你真的想忘乎所以，想想这个，按osnap END的END键，比如说Home for mid，但要拧紧键盘。居中翻页？向下翻页？？？

Roy_043 · 发表于 2022-7-5 16:10:26

@AdamW：
尝试使用：

copy

...
(command "_.copy" copy_objects "" "_multiple")
(while (/= 0 (getvar 'cmdactive)) (command pause))
(setvar 'osmode osm)
...

hanhphuc · 发表于 2022-7-5 16:24:53

是的，（命令暂停）耍了个花招
“指挥官”的好建议

我尝试了不同的方法，因为失败了

copy

(while (/= 0 (getvar 'cmdactive)) ([color="red"]command[/color]))

[编程交流] Lisp设置捕捉点和cop

发表回复

精选推荐