[求助]：,帮帮我,画直线有时候乱跑?

tsml · 发表于 2007-3-16 17:57:13

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

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

×

我写了一个画直线时加倒角的程序，就是画三根直线,两端的表示是角，倒角是55度，平时的时候没问题，但是当选择点时,这个点边上也有其它的交点时（很靠近，捕捉时要比较注意），P3，P4点就会不正确，线就会乱飞，但是时用调试程序检查点的位置又是正确的，请问为什么？

(defun c:wire()
(graphscr)

(setq p1 (getpoint "Enter first point"))
(setq p2 (getpoint "Enter second point"))

(setq ang1 (angle p1 p2))

(setq p3 (polar p1 (+ ang1 0.96) 350))

(setq p4 (polar p2 (+ ang1 2.181) 350))

(command "line" p1 p3 p4 p2 "")
)

xbdx · 发表于 2007-3-16 20:36:24

把捕捉功能关闭或在command前面加上(setvar "OSMODE" 0)就可以了

问题青年B · 发表于 2007-3-16 22:12:52

(setq old_osmode (getvar "osmode"))

(setvar "osmode" 0 )
.
.
.
(setvar "osmode" old_osmode)

tsml · 发表于 2007-3-19 15:52:03

楼上的，这样做了以后会有问题，就是对象捕捉有时会恢复不了，请问为什么？

WHGF · 发表于 2007-3-19 23:10:52

在画线时可以根据需要按功能键关闭捕捉功能,需要时再打开,用程序设置捕捉功能灵活性差.

netbee · 发表于 2007-3-20 08:01:54

最初由 tsml 发布
[B]楼上的，这样做了以后会有问题，就是对象捕捉有时会恢复不了，请问为什么？ [/B]

加入错误处理机制

(defun c:wire(/ fun_be fun_en errnew errold)
(defun fun_be()
[color=red](setq old_osmode (getvar "osmode")) [/color]
(setq errold *error*)
(setq *error* errnew)
)
(defun errnew(msg)
(princ msg)
(fun_en)
)
(defun fun_en()
[color=red](setvar "osmode" old_osmode) [/color]
(setq *error* errold)
)
;;---------------
;;主程序开始
(fun_be)
(graphscr)
(setq p1 (getpoint "Enter first point"))
(setq p2 (getpoint "Enter second point"))
(setq ang1 (angle p1 p2))
(setq p3 (polar p1 (+ ang1 0.96) 350))
(setq p4 (polar p2 (+ ang1 2.181) 350))
[color=red](setvar "osmode" 0 )[/color]
(command "line" p1 p3 p4 p2 "")
(fun_en)
)

Underway · 发表于 2007-3-20 08:02:00

也可以这样安插
(setvar "osmode" 0 )
(command "line" p1 p3 p4 p2 "")
(setvar "osmode" old_osmode)

tsml · 发表于 2007-3-20 13:28:31

1、版主,你是不是写错了， (setq *error errnew)）中的error少加了个双引号？
2、(fun_be)不能放在程序开始，否则一开始就无法捕捉对象点。

byghbcaixin · 发表于 2007-3-20 14:50:35

程序就是要在无法捕捉对象点情况下才能正常运行,
(setq *error errnew)少个"*"号,应是(setq *error* errnew)

tsml · 发表于 2007-3-21 09:06:20

还有个问题就是执行完程序后按撤消命令，往往会执行到(setvar "osmode" 0 )后面，无对象捕捉状态，再次撤消，对象捕捉才返回正确状态，请问怎么解决，可以撤消一次把整个程序撤消完？

tsml · 发表于 2007-3-21 09:06:20

我觉得放在 (getpoint "Enter first point"))后才行,否则一开始就无法捕捉了

zml84 · 发表于 2007-3-21 09:23:30

试一试下面这个：

(defun c:test (/ old-osmode p1 p2 ang1 p3 p4)
(setq old_osmode (getvar "osmode"))
(graphscr)
(if (setq p1 (getpoint "\nEnter first point:"))
(if (setq p2 (getpoint p1 "Enter second point:"))
(progn
(setq ang1 (angle p1 p2)
p3 (polar p1 (+ ang1 0.96) 350)
p4 (polar p2 (+ ang1 2.181) 350)
)
(setvar "osmode" 0)
(command "_pline" p1 p3 p4 p2 "")
)
)
)
(setvar "osmode" old_osmode)
(princ)
)

<br>
题外话：楼主的代码运行时，当P1与P2两点间距较小情况下，会产生不合常理的结果，应该在代码中予以判断并避免。

tsml · 发表于 2007-3-22 12:05:08

有谁回答我11楼用撤消命令时遇到的问题?帮帮我

zml84 · 发表于 2007-3-22 12:27:19

要学习开发，请先学习Acad本身。

;;;zml84 于 2007-03-22 12:25
(defun c:test (/ old-osmode p1 p2 ang1 p3 p4)
(graphscr)
(if (setq p1 (getpoint "\n第一点:"))
(if (setq p2 (getpoint p1 "第二点:"))
(progn
(setq ang1 (angle p1 p2)
p3 (polar p1 (+ ang1 0.96) 350)
p4 (polar p2 (+ ang1 2.181) 350)
)
(setq old_osmode (getvar "osmode"))
(command "_.undo" "be")
(setvar "osmode" 0)
(command "_pline" p1 p3 p4 p2 "")
(setvar "osmode" old_osmode)
(command "_.undo" "e")
)
)
)
(princ)
)

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

[求助] [求助]：,帮帮我,画直线有时候乱跑?

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

相关帖子

还有一个问题