谁帮忙检查下代码错在什么地方？？？

a4587332

(defun C:door ()
(setq pt1 (getpoint))
(setq pt2 (getcorner pt1))
(setq rad (angle pt1 pt2))
(if (= rad 1.5708)
       (
       (setq pt3 (polar pt1 pi 800))
       (setq pt4 (polar pt2 pi 800))
       (setq pt5 (polar pt1 pi 400))
       (setq pt6 (polar pt2 pi 400))
       (command "line" pt1 pt2 "")
       (setq b1 (entlast))
       (command "line" pt3 pt4 "")
       (setq b2 (entlast))
       (command "trim" b1 b2 "" pt5 pt6 "")
       )
  )
(if (= rad 4.71239)
       (
       (setq pt3 (polar pt1 pi 800))
       (setq pt4 (polar pt2 pi 800))
       (setq pt5 (polar pt1 pi 400))
       (setq pt6 (polar pt2 pi 400))
       (command "line" pt1 pt2)
       (setq b1 (entlast))
       (command "line" pt3 pt4)
       (setq b2 (entlast))
       (command "trim" b1 b2 "" pt5 pt6 "")
       )
         )
(if (= rad 0)
       (
       (setq pt3 (polar pt1 (* pi 0.5) 800))
       (setq pt4 (polar pt2 (* pi 0.5) 800))
       (setq pt5 (polar pt1 (* pi 0.5) 400))
       (setq pt6 (polar pt2 (* pi 0.5) 400))
       (command "line" pt1 pt2)
       (setq b1 (entlast))
       (command "line" pt3 pt4)
       (setq b2 (entlast))
       (command "trim" b1 b2 "" pt5 pt6 "")
       )
         )
(if (= rad 3.14159)
       (
       (setq pt3 (polar pt1 (* pi 0.5) 800))
       (setq pt4 (polar pt2 (* pi 0.5) 800))
       (setq pt5 (polar pt1 (* pi 0.5) 400))
       (setq pt6 (polar pt2 (* pi 0.5) 400))
       (command "line" pt1 pt2)
       (setq b1 (entlast))
       (command "line" pt3 pt4)
       (setq b2 (entlast))
       (command b1 b2 "" pt5 pt6 "")
       )
   )

  (prin1)
  )

andymong

关掉捕捉试试。

ZZXXQQ

2. (defun C:door ()
   
3.   (setvar "CMDECHO" 0)
   
4.   (setq oldos (getvar "OSMODE"))
   
5.   (setq pt1 (getpoint))
   
6.   (setq pt2 (getpoint pt1))
   
7.   (setq rad (+ (/ pi 2) (angle pt1 pt2)))
   
8.   (setq pt3 (polar pt1 rad 800))
   
9.   (setq pt4 (polar pt2 rad 800))
   
10.   (setq pt5 (polar pt1 rad 400))
    
11.   (setq pt6 (polar pt2 rad 400))
    
12.   (setvar "OSMODE" 0)
    
13.   (command "line" pt1 pt2 "")
    
14.   (setq b1 (entlast))
    
15.   (command "line" pt3 pt4 "")
    
16.   (setq b2 (entlast))
    
17.   (command "trim" b1 b2 "" pt5 pt6 "")
    
18.   (setvar "OSMODE" oldos)
    
19.   (setvar "CMDECHO" 1)
    
20.   (prin1)
    
21. )
    

(defun C:door ()<br />   (setvar "CMDECHO" 0)<br />   (setq oldos (getvar "OSMODE"))<br />   (setq pt1 (getpoint))<br />   (setq pt2 (getpoint pt1))<br />   (setq rad (+ (/ pi 2) (angle pt1 pt2)))<br />   (setq pt3 (polar pt1 rad 800))<br />   (setq pt4 (polar pt2 rad 800))<br />   (setq pt5 (polar pt1 rad 400))<br />   (setq pt6 (polar pt2 rad 400))<br />   (setvar "OSMODE" 0)<br />   (command "line" pt1 pt2 "")<br />   (setq b1 (entlast))<br />   (command "line" pt3 pt4 "")<br />   (setq b2 (entlast))<br />   (command "trim" b1 b2 "" pt5 pt6 "")<br />   (setvar "OSMODE" oldos)<br />   (setvar "CMDECHO" 1)<br />   (prin1)<br /> )<br />

a4587332

ZZXXQQ 发表于 2014-9-1 20:05

好代码~~~~

a4587332

ZZXXQQ 发表于 2014-9-1 20:05

问一下这个 判断为什么判断不出来呢？？？？

ZZXXQQ

a4587332 发表于 2014-9-1 20:41
问一下这个 判断为什么判断不出来呢？？？？

实数的比较有误差，要用equal