我写的这个命令有点蹊跷，求测试

我来看MM的

写了个根据四参数转换坐标并更新对象坐标列表的命令，现在碰到了个奇怪的问题：
1、获取一条多段线的坐标列表，然后用坐标转换子函数得出的坐标
2、直接在坐标转换子函数中定义和多段线端点坐标一致的坐标计算得出的坐标
1和2得出的结果不一致

我来看MM的

2. (defun zbzh (ppt_x ppt_y)
   
3.   (setq d_x -15.0
   
4.         d_y -3.0
   
5.         k_k 1.0056046755
   
6.         a_angle 0.0005081
   
7.         )
   
8.   (setq dd_x (+ d_x (* k_k (- (* (cos a_angle) ppt_x)  (* (sin a_angle) ppt_y)))))
   
9.   (setq dd_y (+ d_y (* k_k (+ (* (cos a_angle) ppt_y)  (* (sin a_angle) ppt_x)))))
   
10.   (setq ppt (list dd_x dd_y))
    
11. 
    
12.   )
    
13. 
    
14. (defun c:zh (/               ss         l_length  data             new_list
    
15.              last_list m_list         en           en_data   b_list
    
16.              pt               pt_x         pt_y           pt_h             new_pt_x
    
17.              new_pt_y  new_pt         pt_data   data             f_list
    
18.              new_en_data
    
19.             )
    
20.   (setvar "nomutt" 1)
    
21.   (setq ss (ssget '((0 . "LWPOLYLINE")))) ;选择多个对象
    
22.   (setvar "nomutt" 0)
    
23.   (setq l_length 0)
    
24.   (repeat (sslength ss)
    
25.     (setq i            0
    
26.           j            0
    
27.           n            0
    
28.           z            0
    
29.           m            0
    
30.           mm            0
    
31.           data            (list '(0 0))
    
32.           new_list  (list '(0 0))
    
33.           last_list (list '(0 0))
    
34.           m_list    (list '(0 0))
    
35.     )
    
36.     (setq en (ssname ss l_length))        ;获取第“l_length”个对象的对象名
    
37.     (setq en_data (entget en))                ;获取对象列表
    
38.     (setq b_list (list (car (reverse en_data))))
    
39.     (while (/= (nth j en_data) nil)
    
40.       (if (= (car (nth j en_data)) 10)
    
41.         (progn
    
42.           (setq pt (cdr (nth j en_data)))
    
43.           (setq pt_x (car pt))
    
44.           (setq pt_xx (distof (rtos pt_x 2 10)))
    
45.           (setq pt_y (cadr pt))
    
46.           (setq pt_yy (atof (rtos pt_y 2 10)))
    
47.           (setq pt_h (caddr pt))
    
48.           (if (= pt_h nil)
    
49.             (setq pt_h 0)
    
50.           )
    
51.           (setq new_pt_x (car(zbzh pt_x pt_y)))
    
52.           (setq new_pt_x (atof (rtos new_pt_x 2 12)))
    
53.           (setq new_pt_y (cadr (zbzh pt_x pt_y)))
    
54.           (setq new_pt_y (atof (rtos new_pt_y 2 12)))
    
55.           (setq new_pt (list new_pt_x new_pt_y pt_h))
    
56.           (setq pt_data (cons 10 new_pt))
    
57.           (setq        data (append (list (list pt_data
    
58.                                          (nth (+ j 1) en_data)
    
59.                                          (nth (+ j 2) en_data)
    
60.                                          (nth (+ j 3) en_data)
    
61.                                    )
    
62.                              )
    
63.                              data
    
64.                      )
    
65.           )
    
66.           (setq z (+ z 1))
    
67.           (if (= z 1)
    
68.             (setq f_list (carnth j en_data))
    
69.                                         ;获取对象数据中第一个节点坐标前的列表数据
    
70.           )                                ;end if
    
71.         )                                ;end progn
    
72.       )                                        ;end if
    
73.       (setq j (+ j 1))
    
74.     )
    
75.     (setq data (cdr (reverse data)))
    
76. 
    
77.     (while (/= (nth mm data) nil)
    
78.       (setq nn 0)
    
79.       (while (/= (nth nn (nth mm data)) nil)
    
80.         (setq m_list
    
81.                (append (list (nth nn (nth mm data))) m_list)
    
82.         )
    
83.         (setq nn (+ nn 1))
    
84.       )                                        ;end while
    
85.       (setq mm (+ mm 1))
    
86.     )
    
87.     (setq m_list (cdr (reverse m_list)))
    
88. 
    
89. ;;;对象更新
    
90.     (setq new_en_data (append f_list m_list b_list))
    
91. 
    
92. 
    
93.     (entmod new_en_data)
    
94.     (setq l_length (+ l_length 1))
    
95.   )
    
96. )

(defun zbzh (ppt_x ppt_y)<br />   (setq d_x -15.0<br />         d_y -3.0<br />         k_k 1.0056046755<br />         a_angle 0.0005081<br />         )<br />   (setq dd_x (+ d_x (* k_k (- (* (cos a_angle) ppt_x)  (* (sin a_angle) ppt_y)))))<br />   (setq dd_y (+ d_y (* k_k (+ (* (cos a_angle) ppt_y)  (* (sin a_angle) ppt_x)))))<br />   (setq ppt (list dd_x dd_y))<br /> <br />   )<br /> <br /> (defun c:zh (/               ss         l_length  data             new_list<br />              last_list m_list         en           en_data   b_list<br />              pt               pt_x         pt_y           pt_h             new_pt_x<br />              new_pt_y  new_pt         pt_data   data             f_list<br />              new_en_data<br />             )<br />   (setvar "nomutt" 1)<br />   (setq ss (ssget '((0 . "LWPOLYLINE")))) ;选择多个对象<br />   (setvar "nomutt" 0)<br />   (setq l_length 0)<br />   (repeat (sslength ss)<br />     (setq i            0<br />           j            0<br />           n            0<br />           z            0<br />           m            0<br />           mm            0<br />           data            (list '(0 0))<br />           new_list  (list '(0 0))<br />           last_list (list '(0 0))<br />           m_list    (list '(0 0))<br />     )<br />     (setq en (ssname ss l_length))        ;获取第“l_length”个对象的对象名<br />     (setq en_data (entget en))                ;获取对象列表<br />     (setq b_list (list (car (reverse en_data))))<br />     (while (/= (nth j en_data) nil)<br />       (if (= (car (nth j en_data)) 10)<br />         (progn<br />           (setq pt (cdr (nth j en_data)))<br />           (setq pt_x (car pt))<br />           (setq pt_xx (distof (rtos pt_x 2 10)))<br />           (setq pt_y (cadr pt))<br />           (setq pt_yy (atof (rtos pt_y 2 10)))<br />           (setq pt_h (caddr pt))<br />           (if (= pt_h nil)<br />             (setq pt_h 0)<br />           )<br />           (setq new_pt_x (car(zbzh pt_x pt_y)))<br />           (setq new_pt_x (atof (rtos new_pt_x 2 12)))<br />           (setq new_pt_y (cadr (zbzh pt_x pt_y)))<br />           (setq new_pt_y (atof (rtos new_pt_y 2 12)))<br />           (setq new_pt (list new_pt_x new_pt_y pt_h))<br />           (setq pt_data (cons 10 new_pt))<br />           (setq        data (append (list (list pt_data<br />                                          (nth (+ j 1) en_data)<br />                                          (nth (+ j 2) en_data)<br />                                          (nth (+ j 3) en_data)<br />                                    )<br />                              )<br />                              data<br />                      )<br />           )<br />           (setq z (+ z 1))<br />           (if (= z 1)<br />             (setq f_list (carnth j en_data))<br />                                         ;获取对象数据中第一个节点坐标前的列表数据<br />           )                                ;end if<br />         )                                ;end progn <br />       )                                        ;end if<br />       (setq j (+ j 1))<br />     )<br />     (setq data (cdr (reverse data)))<br /> <br />     (while (/= (nth mm data) nil)<br />       (setq nn 0)<br />       (while (/= (nth nn (nth mm data)) nil)<br />         (setq m_list<br />                (append (list (nth nn (nth mm data))) m_list)<br />         )<br />         (setq nn (+ nn 1))<br />       )                                        ;end while<br />       (setq mm (+ mm 1))<br />     )<br />     (setq m_list (cdr (reverse m_list)))<br /> <br /> ;;;对象更新<br />     (setq new_en_data (append f_list m_list b_list))<br /> <br /> <br />     (entmod new_en_data)<br />     (setq l_length (+ l_length 1))<br />   )<br /> )

这是1中所用的命令

我来看MM的

2. (defun c:test1()
   
3. 
   
4.   (setq d_x -15.0
   
5.         d_y -3.0
   
6.         k_k 1.0056046755
   
7.         a_angle 0.0005081
   
8.         pt_x 2753748.277
   
9.         pt_y 511748.461
   
10.         )
    
11.   (setq dd_x (+ d_x (* k_k (- (* (cos a_angle) pt_x)  (* (sin a_angle) pt_y)))))
    
12.   (setq dd_y (+ d_y (* k_k (+ (* (cos a_angle) pt_y)  (* (sin a_angle) pt_x)))))
    
13.   (setq dd_x (rtos dd_x 2 3))
    
14.   (setq dd_y (rtos dd_y 2 3))
    
15.   (princ dd_x )
    
16.   (princ dd_y)
    
17.   )

(defun c:test1()<br /> <br />   (setq d_x -15.0<br />         d_y -3.0<br />         k_k 1.0056046755<br />         a_angle 0.0005081<br />         pt_x 2753748.277<br />         pt_y 511748.461<br />         )<br />   (setq dd_x (+ d_x (* k_k (- (* (cos a_angle) pt_x)  (* (sin a_angle) pt_y)))))<br />   (setq dd_y (+ d_y (* k_k (+ (* (cos a_angle) pt_y)  (* (sin a_angle) pt_x)))))<br />   (setq dd_x (rtos dd_x 2 3))<br />   (setq dd_y (rtos dd_y 2 3))<br />   (princ dd_x )<br />   (princ dd_y)<br />   )

在这个函数中直接定义和多段线端点一致的坐标 pt_x  pt_y,这两种计算得出的结果不一样。求解惑

我来看MM的

xinxirong 发表于 2018-6-28 18:37
静下心来，一步一步调试。没有人比你更强大

谢谢鼓励，真心是调试了一整天了，都在获取节点坐标带到子函数内计算时就和直接定义坐标值带入计算出现差异。不然我也不会发帖求助的

我来看MM的

自顶一下

xinxirong

静下心来，一步一步调试。没有人比你更强大

evayleung

如此多的＋－×，看得我入目三分，实在爱莫难助

我来看MM的

evayleung 发表于 2018-6-28 19:20
如此多的＋－×，看得我入目三分，实在爱莫难助

不好意思，水平有限，简单粗暴了

我来看MM的

最后自顶一次

被承包的东子

我来看MM的 发表于 2018-6-28 15:26
自顶一下

是不是因为，你定义的是三位小数，而实际坐标和你定义的有点差距啊