[求助]：还会捕捉到其它点(希望zml84先生出手)

szx025

(defun C:LTP (/ pt1 pt2 l p1 p2 P3 P4 P5 P6 K K1 P10 P20 )
;;保存系统变量设置
    (setq old_OS  (getvar "OSMODE")
      old_CMD (getvar "CMDECHO")
    )
     
    (setvar "CMDECHO" 0)
    (command "-osnap" "INT")
  (setq pt1 (getpoint "\n左下角点:"))
  (setq pt2 (getpoint pt1 "\n右下角点:"))
6   (setvar "OSMODE" 0)
  (setq p1 (polar pt1 (/ pi 2.0) 400))
  (setq p2 (polar pt2 (/ pi 2.0) 400))
  (setq p3 (polar pt1 (/ pi 2.0) 800))
  (setq p4 (polar pt2 (/ pi 2.0) 800))
  (setq p5 (polar pt1 (/ pi 2.0) 1200))
  (setq p6 (polar pt2 (/ pi 2.0) 1200))
  (command "line" p1 p2 "")
  (command "line" p3 p4 "")
  (command "line" p5 p6 "")
  (command "line" pt2 p6 "")
  (command "line" pt1 p5 "")
  (setq k(angle pt1 pt2))
;(setq k1 0)
;(if (> k (/ Pi 2))
;(setq k1 Pi)
;)
(setq
    xx  (* 100 (/ (cos k) (sin k)))
        p10 (polar pt1 0 xx)
                    )
(setq p20 (polar pt2 (* pi 1.5) 100))
(command "line" pt1 pt2 "")
(command "line" p10 p20 "")
  (setq L (distance pt1 pt2))
  (setq N (/ L 1200))
  (setq I 1)
  (setq P0 Pt1)
  (while (<= i N)
  (setq P1 (polar p0 (/ pi 2.0) 1200))
  27 (command "line" p0 p1 "")
  (setq p0 (polar p0 k 1200))
  (setq I (+ i 1))
;;恢复系统变量设置
    (setvar "CMDECHO" old_CMD)
    (setvar "OSMODE" old_OS)
    (setq *error* olderr)
  (princ)
)

我在第6句(setvar "OSMODE" 0)作了捕捉为0的设置,为何在第27句(command "line" p0 p1 "")画线时还会捕捉到其它点
问一个论坛发贴的问题,(象别的朋友一样,)如何把程序贴在一个专门的程序框内,在论坛发布

jsrlb

开始时增加一句：
(setvar "OSNAPCOORD" 1);

意思为：坐标数据优先级设为：键盘输入替代对象捕捉设置

zml84

感谢szx025的信任，你在1楼的代码WHILE循环少了一个括号，其他运行正常啊？！
完整代码如下：

2. 
   
3. (defun C:LTP (/ pt1 pt2 l p1 p2 P3 P4 P5 P6 K K1 P10 P20)
   
4.     ;;保存系统变量设置
   
5.     (setq old_OS  (getvar "OSMODE")
   
6.           old_CMD (getvar "CMDECHO")
   
7.     )
   
8. 
   
9.     (setvar "CMDECHO" 0)
   
10.     (command "-osnap" "INT")
    
11.     (setq pt1 (getpoint "\n左下角点:"))
    
12.     (setq pt2 (getpoint pt1 "\n右下角点:"))
    
13.     ;;6
    
14.     (setvar "OSMODE" 0)
    
15.     (setq p1 (polar pt1 (/ pi 2.0) 400))
    
16.     (setq p2 (polar pt2 (/ pi 2.0) 400))
    
17.     (setq p3 (polar pt1 (/ pi 2.0) 800))
    
18.     (setq p4 (polar pt2 (/ pi 2.0) 800))
    
19.     (setq p5 (polar pt1 (/ pi 2.0) 1200))
    
20.     (setq p6 (polar pt2 (/ pi 2.0) 1200))
    
21.     (command "line" p1 p2 "")
    
22.     (command "line" p3 p4 "")
    
23.     (command "line" p5 p6 "")
    
24.     (command "line" pt2 p6 "")
    
25.     (command "line" pt1 p5 "")
    
26.     (setq k (angle pt1 pt2))
    
27. ;;;                                (setq k1 0)
    
28. ;;;                                        (if (> k (/ Pi 2))
    
29. ;;;                                        (setq k1 Pi)
    
30. ;;;                                        )
    
31.     (setq
    
32.         xx  (* 100 (/ (cos k) (sin k)))
    
33.         p10 (polar pt1 0 xx)
    
34.     )
    
35.     (setq p20 (polar pt2 (* pi 1.5) 100))
    
36.     (command "line" pt1 pt2 "")
    
37.     (command "line" p10 p20 "")
    
38.     (setq L (distance pt1 pt2))
    
39.     (setq N (/ L 1200))
    
40.     (setq I 1)
    
41.     (setq P0 Pt1)
    
42.     (while (<= i N)
    
43.         (setq P1 (polar p0 (/ pi 2.0) 1200))
    
44.         ;;27
    
45.         (command "line" p0 p1 "")
    
46.         (setq p0 (polar p0 k 1200))
    
47.         (setq I (+ i 1))
    
48.     )
    
49. 
    
50.     ;;恢复系统变量设置
    
51.     (setvar "CMDECHO" old_CMD)
    
52.     (setvar "OSMODE" old_OS)
    
53.     (setq *error* olderr)
    
54.     (princ)
    
55. )
    

<br /> (defun C:LTP (/ pt1 pt2 l p1 p2 P3 P4 P5 P6 K K1 P10 P20)<br />     ;;保存系统变量设置 <br />     (setq old_OS  (getvar "OSMODE")<br />           old_CMD (getvar "CMDECHO")<br />     )<br /> <br />     (setvar "CMDECHO" 0)<br />     (command "-osnap" "INT")<br />     (setq pt1 (getpoint "\n左下角点:"))<br />     (setq pt2 (getpoint pt1 "\n右下角点:"))<br />     ;;6<br />     (setvar "OSMODE" 0)<br />     (setq p1 (polar pt1 (/ pi 2.0) 400))<br />     (setq p2 (polar pt2 (/ pi 2.0) 400))<br />     (setq p3 (polar pt1 (/ pi 2.0) 800))<br />     (setq p4 (polar pt2 (/ pi 2.0) 800))<br />     (setq p5 (polar pt1 (/ pi 2.0) 1200))<br />     (setq p6 (polar pt2 (/ pi 2.0) 1200))<br />     (command "line" p1 p2 "")<br />     (command "line" p3 p4 "")<br />     (command "line" p5 p6 "")<br />     (command "line" pt2 p6 "")<br />     (command "line" pt1 p5 "")<br />     (setq k (angle pt1 pt2))<br /> ;;;                                (setq k1 0)<br /> ;;;                                        (if (> k (/ Pi 2))<br /> ;;;                                        (setq k1 Pi)<br /> ;;;                                        )<br />     (setq<br />         xx  (* 100 (/ (cos k) (sin k)))<br />         p10 (polar pt1 0 xx)<br />     )<br />     (setq p20 (polar pt2 (* pi 1.5) 100))<br />     (command "line" pt1 pt2 "")<br />     (command "line" p10 p20 "")<br />     (setq L (distance pt1 pt2))<br />     (setq N (/ L 1200))<br />     (setq I 1)<br />     (setq P0 Pt1)<br />     (while (<= i N)<br />         (setq P1 (polar p0 (/ pi 2.0) 1200))<br />         ;;27<br />         (command "line" p0 p1 "")<br />         (setq p0 (polar p0 k 1200))<br />         (setq I (+ i 1))<br />     )<br /> <br />     ;;恢复系统变量设置 <br />     (setvar "CMDECHO" old_CMD)<br />     (setvar "OSMODE" old_OS)<br />     (setq *error* olderr)<br />     (princ)<br /> )<br />

[PHP]
[PHP]
你的代码
[/PHP]
[/PHP]

TLHMQH

szx025为什么没有耳语功能？

szx025

非常感激ZML84先生,问题确实处在少一个 ) 上,但有一个疑问,LISP程序在少一个 )的情况下,为何在我的机器中能正常工作,只是捕捉出现问题?
另:我发贴是如何做到象ZML84那样,把程序贴在代码拦中
为什么没有耳语功能要请斑主回答

zml84

一、一般说来，括号不成对语法错误的代码是不会被加载的。所以我无法猜测你的情况。
<br>
二、关于发贴格式问题，请见：
http://www.xdcad.net/forum/showthread.php?s=&threadid=1218
或：
http://www.xdcad.net/forum/showthread.php?s=&threadid=1641
<br>
三、关于是否使用耳语功能，请见：
http://www.xdcad.net/forum/member.php?s=&action=editoptions