[求助]：请高手指点，急！

pipeng611

这是个计算线路方位角的小程序，代码：
(defun c:xlfwj(/ umask_s p0 p1 p2 p3 p4 p5 h h0 h1 h2 h3 h4 d ft tt tt1 hd)
(if (null ia)(setq ia 1))
(command "osnap" "int,end" "")
(setq j1 (getpoint"\n请选择坐标系原点:"))
(setq j2 (getpoint"\n请选择坐标系E方向:"))
(setq j3 (getpoint"\n请选择坐标系N方向:"))
(command "ucs" "3" j1 j2 j3)
(command "-layer" "make" "123" "c" "white" "123" "" "")
(setq p0 (getpoint"\n画平行线路直线起点(小里程)"))
(setq p1 (getpoint"\n终点(大里程)"))
(command "osnap" "off" "")
(command "line" p0 p1 "")
(command "list" (ssget "L") "")
(command "-layer" "set" "0" "" "")
)

我现在想添加一个判断语句，以实现：Y 则全部执行，N 则直接执行画平行线路直线起点(小里程)，我试写了一下，但提示有错，请高手指点一下，非常感谢！我试写的如下：
(defun c:xlfwj(/ umask_s p0 p1 p2 p3 p4 p5 h h0 h1 h2 h3 h4 d ft tt tt1 hd)
(if (null ia)(setq ia 1))
(command "osnap" "int,end" "")
(setq y (getstring 1"\n新标注范围吗?<N>:"))
(IF (OR (= "Y" Y) (= "y" y))
(PROGN (setq j1 (getpoint"\n请选择坐标系原点:"))
(setq j2 (getpoint"\n请选择坐标系E方向:"))
(setq j3 (getpoint"\n请选择坐标系N方向:"))
(command "ucs" "3" j1 j2 j3)
(command "-layer" "make" "123" "c" "white" "123" "" "")
(if (not(setq p0 (getpoint"\n画平行线路直线起点(小里程)")))
(setq p1 (getpoint"\n终点(大里程)"))
(command "osnap" "off" "")
(command "line" p0 p1 "")
(command "list" (ssget "L") "")
(command "-layer" "set" "0" "" "")
)

zxq0220

少了几个括弧。
[php]
(defun c:xlfwj(/ umask_s p0 p1 p2 p3 p4 p5 h h0 h1 h2 h3 h4 d ft tt tt1 hd)
(if (null ia) (setq ia 1))
(command "osnap" "int,end" "")
(setq y (getstring 1"\n新标注范围吗?:"))
(IF (OR (= "Y" Y) (= "y" y)) (progn
  (setq j1 (getpoint"\n请选择坐标系原点:"))
  (setq j2 (getpoint"\n请选择坐标系E方向:"))
  (setq j3 (getpoint"\n请选择坐标系N方向:"))
  (command "ucs" "3" j1 j2 j3)
  (command "-layer" "make" "123" "c" "white" "123" "" "")
  (if (not (setq p0 (getpoint "\n画平行线路直线起点(小里程)"))) (progn
   (setq p1 (getpoint "\n终点(大里程)"))
   (command "osnap" "off" "")
   (command "line" p0 p1 "")
   (command "list" (ssget "L") "")
   (command "-layer" "set" "0" "" "")
  ))
))
)
[/php]

zxq0220

书写规范些就不会出这样的错误了。
[php]
(defun c:xlfwj (/ umask_s p0 p1 p2 p3 p4 p5 h h0 h1 h2 h3 h4 d ft tt tt1 hd)
(if (null ia) (setq ia 1))
(command "osnap" "int,end" "")
(setq y (getstring 1 "\n新标注范围吗?:"))
(if (= (strcase Y) "Y") (progn
  (setq j1 (getpoint "\n请选择坐标系原点:"))
  (setq j2 (getpoint "\n请选择坐标系E方向:"))
  (setq j3 (getpoint "\n请选择坐标系N方向:"))
  (command "ucs" "3" j1 j2 j3)
  (command "-layer" "make" "123" "c" "white" "123" "" "")
  (if (not (setq p0 (getpoint "\n画平行线路直线起点(小里程)"))) (progn
   (setq p1 (getpoint "\n终点(大里程)"))
   (command "osnap" "off" "")
   (command "line" p0 p1 "")
   (command "list" (ssget "L") "")
   (command "-layer" "set" "0" "" "")
  ))
))
(princ)
)
[/php]

pipeng611

很感谢zxq0220 哈！
我刚开始接触lisp语言，有好多不规范的地方，还请多多指导哈！

我试了下你发的代码，还是不行，不知道什么原因？
多谢哈，在线等你！

pipeng611

很感谢zxq0220 哈！
我刚开始接触lisp语言，有好多不规范的地方，还请多多指导哈！

我试了下你发的代码，还是不行，不知道什么原因？
多谢哈，在线等你！

carrot1983

2. 
   
3. ;;;这是个计算线路方位角的小程序.carrot1983 2008-1-10 改写
   
4. ;;;我个人觉得这个思路不太好。。哪里有得到方位角啊？？？
   
5. ;;;代码：
   
6. (defun c:tt (/ CLA KW OSM PE PN PO PQ PZ)
   
7.   ;;初始设置
   
8.   ;;++++++++++
   
9.   (setq osm (getvar "osmode")) ;_获取初始对象捕捉
   
10.   (setq cla (getvar "clayer")) ;_获取初始图层
    
11.   (setvar "osmode" 33) ;_设置当前捕捉为end和int
    
12.   ;;如果不存在白色图层123，则建立白色图层123
    
13.   (if (not (tblsearch "layer" "123"))
    
14.     (command "-layer" "m" "123" "c" 7 "123" "")
    
15.   )
    
16.   (setvar "clayer" "123") ;_设置当前图层为123
    
17. 
    
18.   ;;++++++++++
    
19.   (if (and (setq po (getpoint "\n请选择坐标系原点<退出>:"))
    
20.            (setq pe (getpoint po "\n请选择坐标系E方向<退出>:"))
    
21.            (setq pn (getpoint po "\n请选择坐标系N方向<退出>:"))
    
22.       )
    
23.     (progn
    
24.       ;;以下用initget和getkword取得关键字Yes／No的值
    
25.       ;;------------
    
26.       (initget "Yes No")
    
27.       (setq kw
    
28.              (getkword
    
29.                "\n选项:［Yes／No］<Y>:"
    
30.              )
    
31.       )
    
32.       (if (null kw)
    
33.         (setq kw "yes")
    
34.       )
    
35.       (setq kw (strcase kw t))
    
36.       ;;------------
    
37.       ;;以下进行Yes／No返回值进行相应的条件判断
    
38.       ;;============
    
39.       (if (= kw "yes")
    
40.         (progn
    
41.           (command "ucs" "3" po pe pn) ;_改变座标系
    
42.         )
    
43.       )
    
44.       ;;============
    
45.       (setq pq (getpoint "\n画平行线路直线起点(小里程)<退出>:"))
    
46.       (setq pz (getpoint pq "\n终点(大里程)<退出>:"))
    
47.       (command "line" pq pz "")
    
48.       (command "list" "L" "")
    
49.       (command "ucs" "w") ;_还原UCS座标系
    
50.     )
    
51.     (alert "完蛋啦- -")
    
52.   )
    
53.   ;;结束设置
    
54.   ;;++++++++++
    
55.   (setvar "osmode" osm) ;_还原初始对象捕捉
    
56.   (setvar "clayer" cla) ;_还原初始图层
    
57.   ;;++++++++++
    
58.   (princ)
    
59. )
    

<br /> ;;;这是个计算线路方位角的小程序.carrot1983 2008-1-10 改写<br /> ;;;我个人觉得这个思路不太好。。哪里有得到方位角啊？？？<br /> ;;;代码：<br /> (defun c:tt (/ CLA KW OSM PE PN PO PQ PZ)<br />   ;;初始设置<br />   ;;++++++++++<br />   (setq osm (getvar "osmode")) ;_获取初始对象捕捉<br />   (setq cla (getvar "clayer")) ;_获取初始图层<br />   (setvar "osmode" 33) ;_设置当前捕捉为end和int<br />   ;;如果不存在白色图层123，则建立白色图层123<br />   (if (not (tblsearch "layer" "123"))<br />     (command "-layer" "m" "123" "c" 7 "123" "")<br />   )<br />   (setvar "clayer" "123") ;_设置当前图层为123<br /> <br />   ;;++++++++++<br />   (if (and (setq po (getpoint "\n请选择坐标系原点<退出>:"))<br />            (setq pe (getpoint po "\n请选择坐标系E方向<退出>:"))<br />            (setq pn (getpoint po "\n请选择坐标系N方向<退出>:"))<br />       )<br />     (progn<br />       ;;以下用initget和getkword取得关键字Yes／No的值<br />       ;;------------<br />       (initget "Yes No")<br />       (setq kw<br />              (getkword<br />                "\n选项:［Yes／No］<Y>:"<br />              )<br />       )<br />       (if (null kw)<br />         (setq kw "yes")<br />       )<br />       (setq kw (strcase kw t))<br />       ;;------------<br />       ;;以下进行Yes／No返回值进行相应的条件判断<br />       ;;============<br />       (if (= kw "yes")<br />         (progn<br />           (command "ucs" "3" po pe pn) ;_改变座标系<br />         )<br />       )<br />       ;;============<br />       (setq pq (getpoint "\n画平行线路直线起点(小里程)<退出>:"))<br />       (setq pz (getpoint pq "\n终点(大里程)<退出>:"))<br />       (command "line" pq pz "")<br />       (command "list" "L" "")<br />       (command "ucs" "w") ;_还原UCS座标系<br />     )<br />     (alert "完蛋啦- -")<br />   )<br />   ;;结束设置<br />   ;;++++++++++<br />   (setvar "osmode" osm) ;_还原初始对象捕捉<br />   (setvar "clayer" cla) ;_还原初始图层<br />   ;;++++++++++<br />   (princ)<br /> )<br />

pipeng611

还是一楼同样的问题，请大家帮帮忙，苦等！