临时关闭捕捉

janekou · 发表于 2011-5-28 16:55:10

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 janekou 于 2011-5-30 15:57 编辑

(defun c:an (/ aa la lb lc sz area lh bb ah ang1 cc ) ;将命令定义为an
6 q# B8 |9 R7 v- {7 \- i
(setq Osnapmode (getvar "OSMODE" ;获得当前捕捉模式
5 Q7 r7 c3 d4 z
(setvar "OSMODE" 0 ) ;设置程序中需要的模式5 O9 b* Y2 ~% M1 i" k% c, R
o8 f# m+ Q* p5 Z* a
) J X# v7 |1 D0 \5 w
(setq aa (getpoint "选取左下角点:"
$ T; N/ @0 [# K: [, e
(setq la (getreal "\n 输入底边A的长度:"* U7 F4 [2 ?( \; a
(setq lb (getreal "\n 输入B的长度:". f, w$ _' @) U/ B
(setq lc (getreal "\n 输入C的长度:"
5 J- U2 {6 A: V/ t9 ~, f+ h
;貌似下面的叫海伦公式
! [' I+ l( K# d# o6 \) y: o' |2 P
(setq sz (/ (+ la lb lc) 2)) * G+ P* P$ f4 h$ W
(setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
6 Q3 V. L0 W' R8 O0 H8 L3 F! k
(setq lh (/ (* 2 area) la))
. ~ x5 V1 p/ A7 w- j- D3 Q9 v- p3 C
(setq bb (polar aa 0 la))6 \: A8 x5 Z2 g* H9 Q3 M' b7 G
(setq ah (sqrt (- (* lc lc) (* lh lh)))) / [! z2 C, a; l" ^
(setq ang1 (atan (/ lh ah))) ;ang1弧度值
& I) x: R+ J E7 [% ^ q, \
(setq cc (polar aa ang1 lc))- [% H: L% ?; o: a
(command "pline" aa bb cc "c"
9 A: U' o4 M r# G! l1 B! M
;显示相关信息,可省略0 x9 {- d3 p3 _0 Q" N% _6 J
(setq ang1 (* ang1 (/ 180 pi))) ;ang1弧度值转换为十进制角度值9 ^: p6 c7 p5 _2 I
(princ (strcat "底角度数=" (rtos ang1) "度"
) Y( ]& \% R R- R# O
;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"
. r, ~" K8 Q0 S+ ^6 t$ i4 v
" J/ ]0 p! ]$ |( U3 k
(setvar "OSMODE" Osnapmode ) ;恢复初始状态
) u- y) W3 m* I% P. l/ b
(prin1)
$ p8 R! z! I+ {( |4 s$ ?
)
: Y' j9 v# ?" W- y V; U& W; n
(prompt "哈哈，入门级的水平啊，见笑了"
6 |; Y" F3 x" ^3 L* _
(prin1); T ?8 T+ x4 u3 E( X6 H! ?2 Z# P* b- ?

复制代码

❶查了一下资料，看不明白，请问这这样插入么？
❷而那个703 (setvar "osmode" 703)是什么意思呢？（如果是0的话应该就是取消全部捕捉了吧）
❸还有的是有的句子前面有两个分号是什么意思呢，例如（ ;; (setvar "OsMode" 0) ;捕捉）
谢谢各位指点啦。

woaishuijia · 发表于 2011-5-28 18:10:45

请问这这样插入么？

看不懂你的意思.你是不是问代码的使用方法?
复制代码,打开WINDOWS记事本,粘贴,另存为"an.lsp";在CAD图形界面,点击"工具"菜单下的"加载应用程序"("appload"命令),加载该文档;命令行键入"an"回车,程序即可运行,就像使用普通CAD命令一样.

那个703 (setvar "osmode" 703)是什么意思呢？

(setvar "osmode" 703)的意思是把"osmode"系统变量的值设置为703.其效果相当于在命令行键入"osmode",然后输入"703"回车.
打开CAD自带的帮助文件,"命令参考" > "系统变量" > "osmode",可以看到该系统变量位码表,703=512+128+32+16+8+4+2+1,即对象捕捉设置为"NEA（最近点）+ PER（垂足）+ INT（交点）+ QUA（象限点）+ NOD（节点）+ CEN（圆心）+ MID（中点）+ END（端点）"

如果是0的话应该就是取消全部捕捉了吧

正确

有的句子前面有两个分号是什么意思呢

分号表示后面跟着的是"注释".这是编程的人写给自己和别人看的,用于说明和解释编程思路或者是备忘录性质的文字.它不是程序的组成部分,不参与程序运行.
在程序中添加"注释"是个好习惯,因为文字总比代码更容易看懂,方便别人也方便自己.如果不写注释,即使是自己编的程序,过段时间也会忘记当初的思路,修改编辑时很麻烦的.
有时在调试程序时,临时禁止某行代码参与运行,也可以在前面加上一个分号而不必删除整行代码.当恢复该行代码时只要删掉分号即可.
至于注释文字前面写几个分号,只是一种约定或是习惯,没有严格的要求.

janekou · 发表于 2011-5-29 12:20:14

本帖最后由 janekou 于 2011-5-29 13:04 编辑

2# woaishuijia
谢谢版主的耐心解答，第一个外的问题都解决了。
其实我的意思是怎样把一个程序加入临时去掉捕捉（意思是使用这个程序的时候不使用捕捉，使用完后就将捕捉恢复），本来的程序是没有第2、3、24步的，是百度过后再加上去的，不过达不到自己想要的效果。

woaishuijia · 发表于 2011-5-29 15:15:00

把程序中的"703"改为"0",临时关闭捕捉,在程序的结尾再恢复就可以了

janekou · 发表于 2011-5-29 15:24:49

4# woaishuijia
按上面程序的改了后那个捕捉就完全取消了，没有恢复，请问又是什么问题呢？
是24步没有起到恢复的作用吗？

woaishuijia · 发表于 2011-5-29 19:50:24

我运行一楼的代码没有遇到任何问题.运行之后的"OSMODE"系统变量值与运行之前完全一致.
所以我更愿意相信你在运行代码之前就已经把对象捕捉关掉了,呵呵.

janekou · 发表于 2011-5-30 15:54:02

6# woaishuijia

不试不知道啊，貌似是版本的问题啊，04的版本不行，不会恢复的，用了08的就没有这个问题了，谢谢版主啊。

janekou · 发表于 2011-5-30 15:58:47

6# woaishuijia
再反映一个问题啊，那个代码如何再编辑的时候就会出错了，经过观察，应该是 ")) 这几个代码同时出现的时候再次编辑就会出问题，可以看到那个代码那里会出现一个哭的表情的，如果保存后就会少一个括号了，好像我刚才就把1楼的进入编辑模式再次了，就有些地方不见了两个括号，都是右括号来的，麻烦版主解决一个。

woaishuijia · 发表于 2011-5-30 20:47:10

这是论坛软件的问题.引号加右括号代表"哭"的表情.所以我每次上传代码时都会在发表之前在引号和右括号之间加一个空格,就不会出现问题了.呵呵

www1974 · 发表于 2011-5-30 22:52:19

在坐标前加none就临时关闭捕捉了，如(command "line" "none" '(0 0 1) "none" '(200 200 200) "")j这样就不需要开关捕捉变量了

janekou · 发表于 2011-5-31 12:51:36

10# www1974
又学一招，谢谢

		自动登录	找回密码
密码			注册

通知

[已解决] 临时关闭捕捉

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块