紧急！！！请问有谁能帮帮我解决这样一个问题，多谢！

songyuan · 发表于 2003-5-27 20:36:00

我设计的一个程序中，出现这样的一个情况，就是前面我定义了5五个YES和NO的选择，既是让操作者选择Y和N，但是我的这个程序在现实中是不允许全部都选择N的，所以，我想请教各位高手，能不能教我用AUTOLISP定义一个这样的函数，每出现一次N，这个变量就自加1，当这个变量等于一个数，比如说自加到6时，就提示错误，并重新做开始说到的那5个Y或N的选择。用C语言我会编写，但是我才开始用AUTOLISP没有多久，很是菜，所以请各位高手赐教，不胜感谢。

gmliux · 发表于 2003-5-27 22:50:00

试一试，应该可以。

songyuan · 发表于 2003-5-28 08:36:00

但是你能不能帮我编写一个比如说有两个N的这种情况？？？我对autolisp编写不是很熟悉。先谢了

meflying · 发表于 2003-5-28 08:49:00

(while (>= m 2)
  (setq m 0)
  (setq a (getstring "Sure<Y>:"))
  (if (or (= a nil) (= a "Y") (= a "y"))
   (setq a "Y")
   (setq m (1+ m))
  )
(setq a (getstring "Sure<Y>:"))
  (if (or (= a nil) (= a "Y") (= a "y"))
   (setq a "Y")
   (setq m (1+ m))
  )
)

songyuan · 发表于 2003-5-28 10:20:00

;插入断路器隔离开关串1
(defun inchuanABC ()
  (command "layer" "s" "breaker" "")
  (prompt "\n注意!!!在选择断路器串类型时不能全部为“N”!!! ")
  (initget 3 "Y y n N")
  (setq answerA (getkword "\n需要完整串吗？(Y/N)： "))
  (if (= answerA "Y")
(progn
(setq nct (getint "\n请输入完整串个数:  "))
(prompt "请在母线W1的上找完整串的插入基点: ")
(repeat nct
   (setq p22 (getpoint "\n 请找第N个块的插入基点:"))
   (command "insert" "c:\\song\\c6.dwg" p22 bl bl "" "")
)
)
  )
;插入断路器隔离开关串2
  (initget 3 "Y y n N")
  (setq answerB (getkword "\n需要上部串吗？(Y/N)： "))
  (if (= answerB "Y")
(progn
(setq nct (getint "\n请输入上部串个数:  "))
(prompt "请在母线W1的上找上部串的插入基点: ")
(repeat nct
   (setq p22 (getpoint "\n 请找第N个块的插入基点:"))
   (command "insert" "c:\\song\\c9.dwg" p22 bl bl "" "")
)
)
  )
;插入断路器隔离开关串
  (initget 3 "Y y n N")
  (setq answerC (getkword "\n需要下部串吗？(Y/N)： "))
  (if (= answerC "Y")
(progn
(setq nct (getint "\n请输入下部串个数:  "))
(prompt "\n请在母线W1的上找下部串的插入基点: ")
(repeat nct
   (setq p22 (getpoint "\n 请找第N个块的插入基点:"))
   (command "insert" "c:\\song\\c10.dwg" p22 bl bl "" "")
)
)
  )
)

songyuan · 发表于 2003-5-28 10:48:00

我在上个求助中的意思是当我都选择N时，程序就会提示错误并返回重新开始做选择，在我给出的那段程序中怎么实现？？？先在这里多谢各位英雄和特别感谢meflying兄了

gmliux · 发表于 2003-5-28 23:45:00

在循环中加cond函数，当有五个N选择，开始新一轮，也许不错。

龙龙仔 · 发表于 2003-5-29 08:05:00

;;;插入断路器隔离开关串1
(defun INCHUANABC (/ ANSWERA ANSWERB ANSWERC)
  (command "layer" "s" "breaker" "")
  (while (or (and (= ANSWERA NIL) (= ANSWERB NIL) (= ANSWERC NIL))
      (and (= ANSWERA "Y") (= ANSWERB "Y") (= ANSWERB "Y"))
   )
;;(prompt "\n注意!!!在选择断路器串类型时不能全部为\"N\"!!!")
(initget 3 "Y N")
(setq ANSWERA (getkword "\n需要完整串吗?(Y/N): "))
(if (= ANSWERA "Y")
   (progn
(setq NCT (getint "\n请输入完整串个数: "))
(prompt "请在母线W1的上找完整串的插入基点: ")
(repeat NCT
   (setq P22 (getpoint "\n 请找第N个块的插入基点: "))
   (command "insert" "c:\\song\\c6.dwg" P22 BL BL "" "")
)
   )
)
;;插入断路器隔离开关串2
(initget 3 "Y N")
(setq ANSWERB (getkword "\n需要上部串吗?(Y/N): "))
(if (= ANSWERB "Y")
   (progn
(setq NCT (getint "\n请输入上部串个数: "))
(prompt "请在母线W1的上找上部串的插入基点: ")
(repeat NCT
   (setq P22 (getpoint "\n 请找第N个块的插入基点: "))
   (command "insert" "c:\\song\\c9.dwg" P22 BL BL "" "")
)
   )
)
;;插入断路器隔离开关串3
(initget 3 "Y N")
(setq ANSWERC (getkword "\n需要下部串吗?(Y/N): "))
(if (= ANSWERC "Y")
   (progn
(setq NCT (getint "\n请输入下部串个数: "))
(prompt "\n请在母线W1的上找下部串的插入基点: ")
(repeat NCT
   (setq P22 (getpoint "\n 请找第N个块的插入基点: "))
   (command "insert" "c:\\song\\c10.dwg" P22 BL BL "" "")
)
   )
)
  )
)

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

紧急！！！请问有谁能帮帮我解决这样一个问题，多谢！

while函数

求助！！多谢大虾的指导

简单

那么镶套在这段语句中怎么实现呢？？？

求助meflying兄及其它英雄帮忙！！

逻辑判断

試試