广场竣工

therock005 · 发表于 2022-7-6 11:52:43

工作得很好，但正如其他人所说，它禁用了我的osnaps。

是否可以仅为该操作临时启用节点osnap，并且在命令完成后恢复到osnap的先前状态？

lpseifert · 发表于 2022-7-6 11:55:00


(setvar "osmode"

therock005 · 发表于 2022-7-6 11:58:19

完成后，我发现另一个主题中的节点代码是8，所以我将其改为8，现在它可以按我想要的方式工作。

谢谢你，伙计，我很感激。

编辑：看起来你编辑了你的消息并指出了它，但没关系，我也做了一些搜索并找到了答案。

alanjt · 发表于 2022-7-6 12:01:24

我只需要去掉所有OSMode切换代码。

lpseifert · 发表于 2022-7-6 12:04:05

艺术许可证

alanjt · 发表于 2022-7-6 12:08:59

英雄联盟
适合我。

[未记录的功能]

Lee Mac · 发表于 2022-7-6 12:09:52

所以你应该。。。

Lee Mac · 发表于 2022-7-6 12:12:55

最后一次选择没有OSnap，只是为了好玩：

copy


(defun c:sq ( / LWPoly RemoveIfOdd GR I LST P P1 P2 P3 P4 )
 (vl-load-com)
 ;; Lee Mac  ~  26.04.10
 (defun LWPoly ( lst cls )
   (entmakex (append (list (cons 0 "LWPOLYLINE")
                           (cons 100 "AcDbEntity")
                           (cons 100 "AcDbPolyline")
                           (cons 90 (length lst))
                           (cons 70 cls))
                     (mapcar (function (lambda (p) (cons 10 p))) lst))))
 (defun RemoveIfOdd ( lst )
   (  (lambda ( i )
        (vl-remove-if
          (function
            (lambda ( x ) (= 1 (boole 1 1 (setq i (1+ i)))))) lst)) -1))
 (if (and (setq p1 (getpoint "\nPick First Point:  "))
          (setq p2 (getpoint "\nPick Second Point: " p1)))
   (progn
     (while (and (= 5 (car (setq gr (grread t 13 0))))
                 (listp (setq p3 (cadr gr))))
       (redraw)
       (setq p4 (polar p3 (angle p2 p1) (distance p1 p2)))
       (grvecs (cons -3 (setq p (list p1 p2 p2 p3 p3 p4 p4 p1)))))
     (LWPoly (RemoveIfOdd (cdr p)) 1) (redraw)))
     
 (princ))

alanjt · 发表于 2022-7-6 12:16:39

.
......................

alanjt · 发表于 2022-7-6 12:21:40

编码不错。
真遗憾，第三个选择没有OSnap功能。GrRead缺少OSnap功能，因此几乎毫无用处。

[编程交流] 广场竣工

发表回复

精选推荐