小练习，忘高手指点错在哪里

328302216

(defun c:xq()
  (setq ss (ssget))
  (setq ss1 (getdist "请输入偏移距离"))
  (setq ss2 (ssname ss 0))
    (setq ss3 (entget ss2))
    (setq ss4 (cdr (assoc 0 ss3)))
    (if (= ss4 "LINE")
      (progn
(setq ss5 (cdr (assoc 10 ss3)))
(setq ss6 (cdr (assoc 11 ss3)))
(setq ss7 (angle ss5 ss6))
   )
)
  (setq ss21 (ssname ss 1))
    (setq ss31 (entget ss21))
    (setq ss41 (cdr (assoc 0 ss31)))
    (if (= ss41 "LINE")
      (progn
(setq ss51 (cdr (assoc 10 ss31)))
(setq ss61 (cdr (assoc 11 ss31)))
(setq ss71 (angle ss51 ss61))
))
(if (and (= ss7 1.5708) (= ss71 0.0)) (ss10)
   )
(command "POINT" ss9 "")
(prin1)
  )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ss10()
  (setq aa 10)
     (setq ss8 (sqrt (+ (* ss1 ss1) (* ss1 ss1))))
     (setq ss9 (polar ss6 (* 1.25 pi) ss8))
  )
我的这程序怎么调用不了子程序啊
到了ss7 和ss71 那里都还是对了
ss7= 1.5708    ss71= 0.0   这也是对了
如果不用子程序 直接用(progn )放在(and (= ss7 1.5708) (= ss71 0.0)) 这的后面也不行
ss8 和ss9 都是 nil
求各位高手帮忙看一下是哪里出错了
执行此程序选择对象是的直线  画的时候顺序是  左右上

328302216

虽然是小练习但是对我以后还是有挺大帮助的，希望高手们能帮帮忙 看看哪里错了！ 先自己顶一下

Andyhon

(if (and (= ss7 1.5708) (= ss71 0.0))
==>
(if (and (equal ss7 1.5708 1e-4) (equal ss71 0.0 1e-4))

老帖中提及多次...

328302216

多谢前辈指导

328302216

328302216 发表于 2012-10-11 10:49
多谢前辈指导

2. (defun c:zdpy()      ;;;单向偏移程序（墙线）
   
3.   (setq ss (ssget))    ;;;选取对象
   
4.   (setq i 0)      ;
   
5.   (setq k 1)
   
6.   (setq p1 (getdist "请输入偏移距离"))
   
7.   (setq ssa (sslength ss))
   
8.   (repeat ssa    ;;;循环
   
9.     (setq ss2 (ssname ss i))  ;;;取得对象中的第一个名称
   
10.     (setq ss3 (entget ss2))  ;;;取得对象属性
    
11.     (setq ss4 (cdr (assoc 0 ss3)))  ;;;取得对象类别（如：LINE CIRCLE）
    
12.    
    
13. ;;;        (setq ss2a (ssname ss k))
    
14. ;;;    (setq ss3a (entget ss2a))
    
15. ;;;    (setq ss4a (cdr (assoc 0 ss3a)))
    
16. 
    
17. ;;;    (setq ss5 (cdr (assoc 8 ss3)))  ;;;取得图层
    
18.     (if  (= ss4 "LINE")  ;;;判断对象是否为直线且图层为07结构
    
19.       (progn
    
20.   (setq ss6 (cdr (assoc 10 ss3)))    ;;;取得对象的第一个端点坐标
    
21.   (setq ss7 (cdr (assoc 11 ss3)))    ;;;取得对象的第二个端点坐标
    
22.   (setq ss8a (angle ss6 ss7))
    
23.   )
    
24.       )
    
25.     (if (equal ssa k 0.0001) (= k 0))  ;设置如果k等于ssa k就等于0
    
26.     (setq ss2a (ssname ss k))
    
27.     (setq ss3a (entget ss2a))
    
28.     (setq ss4a (cdr (assoc 0 ss3a)))
    
29. ;;;    (setq ss4b (cdr (assoc 8 ss3a)))
    
30.    
    
31.     (if  (= ss4a "LINE")
    
32.       (progn
    
33.   (setq ss6a (cdr (assoc 10 ss3a)))
    
34.   (setq ss7a (cdr (assoc 11 ss3a)))
    
35.   (setq ss9a (angle ss6a ss7a))
    
36.   )
    
37.       )
    
38. ;;;    (setq ss8a (angle ss6 ss7))
    
39. ;;;    (setq ss9a (angle ss6a ss7a))
    
40.     (setq pp
    
41.     (cond
    
42.       (and (equal ss8a 1.5708 1e-4) (equal ss9a 0.0 1e-4)) (d01)  ;1
    
43.       (and (equal ss8a 4.71239 1e-4) (equal ss9a 0.0 1e-4)) (d02)  ;2
    
44.       (and (equal ss8a 0.0 1e-4) (equal ss9a 1.5708 1e-4)) (d01)  ;3
    
45.       (and (equal ss8a 3.14159 1e-4) (equal ss9a 1.5708 1e-4)) (d03)  ;4
    
46.       (and (equal ss8a 4.71239 1e-4) (equal ss9a 3.14159 1e-4)) (d04)  ;5
    
47.       (and (equal ss8a 1.5708 1e-4) (equal ss9a 3.14159 1e-4)) (d03)  ;6
    
48.       (and (equal ss8a 0.0 1e-4) (equal ss9a 4.71239 1e-4)) (d02)  ;7
    
49.       (and (equal ss8a 3.14159 1e-4) (equal ss9a 4.71239 1e-4)) (d04)  ;8
    
50.       )
    
51.     )
    
52.     (setq pp1 pp)
    
53.     (setq pp1 (list pp1 pp))
    
54.     (setq pp '())
    
55.     (setq i (+ 1 i))
    
56.     (setq k (+ 1 k))
    
57.     )
    
58.   (setq pp1 (cdr pp1))
    
59.   (command "LINE" pp1 "")
    
60.   (prin1)
    
61.   )
    
62. 
    
63. 
    
64. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
65. 
    
66. 
    
67. (defun d01()
    
68.   (setq aab 10)
    
69.       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))
    
70.       (setq ss9 (polar ss7a (* 0.75 pi) ss8))
    
71.   )
    
72. 
    
73. 
    
74. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
75. 
    
76. (defun d02()
    
77.       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))
    
78.       (setq ss9 (polar ss7a (* 0.25 pi) ss8))
    
79.   )
    
80. 
    
81. 
    
82. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
83. 
    
84. (defun d03()
    
85.       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))
    
86.       (setq ss9 (polar ss7a (* 1.25 pi) ss8))
    
87.   )
    
88. 
    
89. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
90. 
    
91. (defun d04()
    
92.       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))
    
93.       (setq ss9 (polar ss7a (* 1.75 pi) ss8))
    
94.   )
    
95. 
    

(defun c:zdpy()      ;;;单向偏移程序（墙线）<br />   (setq ss (ssget))    ;;;选取对象<br />   (setq i 0)      ;<br />   (setq k 1)<br />   (setq p1 (getdist "请输入偏移距离"))<br />   (setq ssa (sslength ss))<br />   (repeat ssa    ;;;循环<br />     (setq ss2 (ssname ss i))  ;;;取得对象中的第一个名称<br />     (setq ss3 (entget ss2))  ;;;取得对象属性<br />     (setq ss4 (cdr (assoc 0 ss3)))  ;;;取得对象类别（如：LINE CIRCLE）<br />     <br /> ;;;        (setq ss2a (ssname ss k))<br /> ;;;    (setq ss3a (entget ss2a))<br /> ;;;    (setq ss4a (cdr (assoc 0 ss3a)))<br /> <br /> ;;;    (setq ss5 (cdr (assoc 8 ss3)))  ;;;取得图层<br />     (if  (= ss4 "LINE")  ;;;判断对象是否为直线且图层为07结构<br />       (progn<br />   (setq ss6 (cdr (assoc 10 ss3)))    ;;;取得对象的第一个端点坐标<br />   (setq ss7 (cdr (assoc 11 ss3)))    ;;;取得对象的第二个端点坐标<br />   (setq ss8a (angle ss6 ss7))<br />   )<br />       )<br />     (if (equal ssa k 0.0001) (= k 0))  ;设置如果k等于ssa k就等于0<br />     (setq ss2a (ssname ss k))<br />     (setq ss3a (entget ss2a))<br />     (setq ss4a (cdr (assoc 0 ss3a)))<br /> ;;;    (setq ss4b (cdr (assoc 8 ss3a)))<br />     <br />     (if  (= ss4a "LINE")<br />       (progn<br />   (setq ss6a (cdr (assoc 10 ss3a)))<br />   (setq ss7a (cdr (assoc 11 ss3a)))<br />   (setq ss9a (angle ss6a ss7a))<br />   )<br />       )<br /> ;;;    (setq ss8a (angle ss6 ss7))<br /> ;;;    (setq ss9a (angle ss6a ss7a))<br />     (setq pp<br />     (cond <br />       (and (equal ss8a 1.5708 1e-4) (equal ss9a 0.0 1e-4)) (d01)  ;1<br />       (and (equal ss8a 4.71239 1e-4) (equal ss9a 0.0 1e-4)) (d02)  ;2<br />       (and (equal ss8a 0.0 1e-4) (equal ss9a 1.5708 1e-4)) (d01)  ;3<br />       (and (equal ss8a 3.14159 1e-4) (equal ss9a 1.5708 1e-4)) (d03)  ;4<br />       (and (equal ss8a 4.71239 1e-4) (equal ss9a 3.14159 1e-4)) (d04)  ;5<br />       (and (equal ss8a 1.5708 1e-4) (equal ss9a 3.14159 1e-4)) (d03)  ;6<br />       (and (equal ss8a 0.0 1e-4) (equal ss9a 4.71239 1e-4)) (d02)  ;7<br />       (and (equal ss8a 3.14159 1e-4) (equal ss9a 4.71239 1e-4)) (d04)  ;8<br />       )<br />     )<br />     (setq pp1 pp)<br />     (setq pp1 (list pp1 pp))<br />     (setq pp '())<br />     (setq i (+ 1 i))<br />     (setq k (+ 1 k))<br />     )<br />   (setq pp1 (cdr pp1))<br />   (command "LINE" pp1 "")<br />   (prin1)<br />   )<br /> <br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> <br /> (defun d01()<br />   (setq aab 10)<br />       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))<br />       (setq ss9 (polar ss7a (* 0.75 pi) ss8))<br />   )<br /> <br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun d02()<br />       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))<br />       (setq ss9 (polar ss7a (* 0.25 pi) ss8))<br />   )<br /> <br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun d03()<br />       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))<br />       (setq ss9 (polar ss7a (* 1.25 pi) ss8))<br />   )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun d04()<br />       (setq ss8 (sqrt (+ (* p1 p1) (* p1 p1))))<br />       (setq ss9 (polar ss7a (* 1.75 pi) ss8))<br />   )<br /> <br />

前辈帮忙再看看这个程序，  为什么ss2a为 nil  ss3a又等于ss3  

328302216

想要的结果如图

328302216

五楼的程序ss2a不为空了又到了pp哪里为空了……

328302216

程序以暂时解决

混沌初开

楼主的图例看不明白!