求助，我刚做的小程序有bug望高手指点

ljh19991220 · 发表于 2009-7-1 22:08:00

；我刚做了一个小程序，就是点取两点，生成矩形框。发现有两个问题，希望高手指点解决。问题见附图。

(defun c:rqtg()

(setvar "cmdecho" 0)
(setq d1 (getpoint "\n点取第一点: "))
(setq d2 (getpoint "\n点取第二点: "))
(setq ww (getreal "\n宽度<2>: "))
(if (null ww) (setq ww 2))
(setq ww1 (/ ww 2))
(setq ang_1 (angle d1 d2))
(setq d3 (polar d1 (+ pi ang_1) 1))
(setq d4 (polar d2 ang_1 1))

(setq ang_2 (angle d3 d4))

(setq pt1 (polar d3 (+ (/ pi 2) ang_2) ww1))
(setq pt2 (polar d3 (+ (+(/ pi 2) ang_2) pi) ww1))
(setq pt3 (polar d4 (+ (/ pi 2) ang_2) ww1))
(setq pt4 (polar d4 (+(+ (/ pi 2) ang_2) pi) ww1))
(command "pline" pt1 pt3 pt4 pt2 "c") ;完成图形

(prompt "\n画套管命令：rqtg ")
(prompt "\n如果有什么BUG，请联系我：ljh19991220@163.com ")

(prin1) ;消除执行完成后所返回的nil
)

yshf · 发表于 2009-7-2 08:03:00

关闭捕捉,改为如下

(defun c:rqtg()
(setq os (getvar "osmode"))
(setvar "cmdecho" 0)
(setq d1 (getpoint "\n点取第一点: "))
(setq d2 (getpoint d1 "\n点取第二点: "))
(setq ww (getreal "\n宽度<2>: "))
(if (null ww) (setq ww 2))
(setq ww1 (/ ww 2))
(setq ang_1 (angle d1 d2))
(setq d3 (polar d1 (+ pi ang_1) 1))
(setq d4 (polar d2 ang_1 1))
(setvar "osmode" 0)
(setq pt1 (polar d3 (+ (* pi 0.5) ang_1) ww1))
(setq pt2 (polar d3 (+ (* pi 1.5) ang_1) ww1))
(setq pt3 (polar d4 (+ (* pi 0.5) ang_1) ww1))
(setq pt4 (polar d4 (+ (* pi 1.5) ang_1) ww1))
(command "pline" pt1 pt3 pt4 pt2 "c") ;完成图形
(prompt "\n画套管命令：rqtg ")
(prompt "\n如果有什么BUG，请联系我：ljh19991220@163.com ")
(setvar "osmode" os)
(prin1) ;消除执行完成后所返回的nil
)

ljh19991220 · 发表于 2009-7-2 22:08:00

我试了下，应该是好用了

能解释下，为什么吗？

totoro · 发表于 2009-7-2 22:27:00

在画图形时~先关闭对象锁点~这样图形才会正常~
事后再回复~

zml84 · 发表于 2009-7-3 15:06:00

一稿多投，不妥。

ljh19991220 · 发表于 2009-7-3 21:28:00

没别的意思，就是想多学习下，毕竟不同论坛有不同人群。

AMTONNY · 发表于 2009-7-5 19:16:00

呵呵，要信得过我们的明经哦，只要不得不是大工程的编程都可在这里得到解决的

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

求助，我刚做的小程序 有bug望高手指点

本帖子中包含更多资源

求助，我刚做的小程序有bug望高手指点