快速万能设置cad捕捉方法

434939575 · 发表于 2014-2-10 15:48:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 434939575 于 2014-2-10 19:27 编辑

(Setvar "osmode" 48)=16+32=48 这就是设置同时捕捉2个点
如果是奇数则有1 端点。
(Setvar "osmode" 49)=1+16+32=49 这就是设置同时捕捉3个点

ysq101 · 发表于 2014-2-10 16:27:06

谢谢分享。。这个早知道了

st788796 · 发表于 2014-2-10 17:21:20

http://bbs.xdcad.net/thread-670501-1-1.html

;|
0 无
1 END（端点）
2 MID（中点）
4 CEN（圆心）
8 NOD（节点）
16 QUA（象限点）
32 INT（交点）
64 INS（插入点）
128 PER（垂足）
256 TAN（切点）
512 NEA（最近点）
1024 清除所有对象捕捉
2048 APP（外观交点）
4096 EXT（延伸）
8192 PAR（平行）
|;
(defun setosmode (str / lst)
(setq lst (mapcar '(lambda (x) (vl-string-trim "_" x))
(xdrx_string_split (strcase str) ",")
)
)
(if (member "NONE" lst)
(setvar "osmode" 0)
(setvar "osmode"
(apply '+
(mapcar '(lambda (x)
(cadr (assoc x
'(("END" 1)
("MID" 2)
("CEN" 4)
("NOD" 8)
("QUA" 16)
("INT" 32)
("INS" 64)
("PER" 128)
("TAN" 256)
("NEA" 512)
("APP" 2048)
("EXT" 4096)
("PAR" 8192)
)
)
)
)
lst
)
)
)
)
)

;| 
0 无 
1 END（端点） 
2 MID（中点） 
4 CEN（圆心） 
8 NOD（节点） 
16 QUA（象限点） 
32 INT（交点） 
64 INS（插入点） 
128 PER（垂足） 
256 TAN（切点） 
512 NEA（最近点） 
1024 清除所有对象捕捉 
2048 APP（外观交点） 
4096 EXT（延伸） 
8192 PAR（平行） 
|; 
(defun setosmode (str / lst) 
  (setq        lst (mapcar '(lambda (x) (vl-string-trim "_" x)) 
                    (xdrx_string_split (strcase str) ",") 
            ) 
  ) 
  (if (member "NONE" lst) 
    (setvar "osmode" 0) 
    (setvar "osmode" 
            (apply '+ 
                   (mapcar '(lambda (x) 
                              (cadr (assoc x 
                                           '(("END" 1) 
                                             ("MID" 2) 
                                             ("CEN" 4) 
                                             ("NOD" 8) 
                                             ("QUA" 16) 
                                             ("INT" 32) 
                                             ("INS" 64) 
                                             ("PER" 128) 
                                             ("TAN" 256) 
                                             ("NEA" 512) 
                                             ("APP" 2048) 
                                             ("EXT" 4096) 
                                             ("PAR" 8192) 
                                            ) 
                                    ) 
                              ) 
                            ) 
                           lst 
                   ) 
            ) 
    ) 
  ) 
)

434939575 · 发表于 2014-2-10 19:13:48

本帖最后由 434939575 于 2014-2-10 19:21 编辑

可以设置任意个的捕捉。
(Setvar "osmode" 49)=1+16+32=49 就是捕捉1 16 32三个点：端点+相限+交点

hhq5085 · 发表于 2014-2-10 19:31:29

路过保存一下

波浪 · 发表于 2014-2-11 00:08:42

我一般设置为 (setvar "osmode" 39),内含int cen mid end 这4个捕捉点,不知道这个39是基于什么计算得到的~!

434939575 · 发表于 2014-2-12 00:22:47

波浪发表于 2014-2-11 00:08
我一般设置为 (setvar "osmode" 39),内含int cen mid end 这4个捕捉点,不知道这个39是基于什么计算得到的~!

1+2+4+32=39

scnjlwb · 发表于 2018-3-11 08:46:34

谢谢分享！

chwnin · 发表于 2020-3-26 20:53:17

路过保存一下

vlisp2012 · 发表于 2020-3-29 09:44:04

多谢分享了

网事如尘 · 发表于 2020-4-2 08:13:28

学习了，感谢分享

账号		自动登录	找回密码
密码			立即注册

[研讨] 快速万能设置cad捕捉方法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评