[投票]：2个奇怪的小问题

wangwangnn · 发表于 2005-8-23 19:14:22

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

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

×

1。
(setq pt1 (getpoint "\n选取第一点:"))
(setq pt2 (getpoint pt1 "\n选取第二点:"))
(command "line" pt1 pt2 "")
(command "line" pt1 (polar pt1 (+ ang ( / pi 4)) 15)"")
为啥总在命令行出现 'VLIDE 已在 (665.2939, 693.0490, 0.0000) 创建零长度直线？

2。我编的一个带对话框的程序，前两天使用还没有问题，今天一用就在状态栏出现错误: quit / exit abort
这是怎末回事？

xyp1964 · 发表于 2005-8-23 20:57:39

1.
ang未赋值！
2.
时光能倒流就好了！呵呵……

wangwangnn · 发表于 2005-8-23 21:37:56

忘了贴上，问题依旧

1。
(setq pt1 (getpoint "\n选取第一点:"))
(setq pt2 (getpoint pt1 "\n选取第二点:"))
(setq ang (angle pt1 pt2))
(command "line" pt1 pt2 "")
(command "line" pt1 (polar pt1 (+ ang ( / pi 4)) 15)"")
为啥总在命令行出现 'VLIDE 已在 (665.2939, 693.0490, 0.0000) 创建零长度直线？

2。我编的一个带对话框的程序，前两天使用还没有问题，今天一用就在状态栏出现错误: quit / exit abort
这是怎末回事？

xyp1964 · 发表于 2005-8-24 00:37:11

第一个没问题：
[php](defun c:test ()
  (setq pt1 (getpoint "\n选取第一点:"))
  (setq pt2 (getpoint pt1 "\n选取第二点:"))
  (setq ang (angle pt1 pt2))
  (command "line" pt1 pt2 "")
  (command "line" pt1 (polar pt1 (+ ang (/ pi 4)) 15) "")
  (princ)
)[/php]

zhynt · 发表于 2005-8-24 01:36:26

１、出现“零长度直线”的原因可能是因为没有将捕捉关闭的缘故。

２、你不将程序贴上来，大家怎么知道是怎么回事？

wangwangnn · 发表于 2005-8-24 11:02:19

第二个问题程序如下：
length: dialog{
      label="长度";
      :concatenation{
               :text_part {label="长度=";}
               :edit_box{edit_width=15;key="l";}
               :text_part {label="cm";}
      }
      spacer_1;
      ok_cancel;
}

(defun c:point_dxy()
(setq dcl_id (load_dialog "pianyipoint.dcl"))

  (setq p1 (getpoint "\n输入参考点:"))

  (if (not (new_dialog "pianyipoint" dcl_id))
(exit)
  )
  (mode_tile "x" 2)
  (action_tile "x" "(setq dx $value)")
  (action_tile "y" "(setq dy $value)")
  (setq oke (start_dialog))
  (if (= oke 1)
(progn
   (setq px (+ (car p1) (atof dx)))
   (setq py (+ (cadr p1) (atof dy)))
   (setq p (list px py))

   (setq chklay(tblsearch "layer" "pp"))
   (if (null chklay)
   (command "_layer" "m" "pp" "c" "1" "pp" "")
   )
   ;(setq p1 (getpoint "\n输入点的位置:"))
   (command "layer" "set" "pp" "")
   (command "donut" 0 6 p "")
   (princ)
)
  )
   ;(setvar "clayer" "pp")


  (princ)
)

dezhang · 发表于 2005-8-24 23:18:08

肯定有问题，DX、DY没有赋值

zhynt · 发表于 2005-8-24 23:34:17

首先，对话框与程序不对应，不是用于这个程序的，程序本身也有缺陷。

zhoufupeng · 发表于 2005-8-25 00:23:09

其中(if (not (new_dialog "pianyipoint" dcl_id)) 应改为(if (not (new_dialog "length" dcl_id))

zhynt · 发表于 2005-8-25 00:59:32

呵呵，如果这么说，那就是对话框不全了。

winabcd · 发表于 2005-8-25 07:55:32

(mode_tile "x" 2)
(action_tile "x" "(setq dx $value)")
(action_tile "y" "(setq dy $value)")
"x" "y"对话框中没有呀，
你这个前两天能用？

limingqian · 发表于 2005-8-25 07:58:24

研究一下你的方法是否能够完全实现你的目标，这对编程很重要！

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

[投票]：2个奇怪的小问题

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

相关帖子