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，只是为了好玩：
 

(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功能，因此几乎毫无用处。
页: 1 [2]
查看完整版本: 广场竣工