独立基础形心对正柱子形心

bingshuier

柱子的形心事先生成好了，想要框选柱形心，让旁边的独立的形心对正柱子的，写了一段，但是移动不了，看了很久真不知道哪里有问题，麻烦大家帮看下，谢谢！！！

2. (defun c:xxxz  ()
   
3.   (setvar "osmode" 0)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq ssb (ssget '((0 . "POINT"))))
   
6.   (setq p 0)
   
7.   (repeat (sslength ssb)
   
8.     (setq name_pt (ssname ssb p))
   
9.     (setq pt_cen (cdr (assoc 10 (entget name_pt))))
   
10.     (setq pt_a (polar pt_cen (/ pi 2) 3000))
    
11.     (setq pt_b (polar pt_cen (/ (* 5 pi) 4) 3000))
    
12.     (zxx pt_a pt_b pt_cen)   
    
13.     (setq p (1+ p))
    
14.     )
    
15.   (princ)
    
16.   )
    
17. 
    
18. ;找形心
    
19. (defun zxx  (a b c)
    
20.   (vl-load-com)
    
21.   (setq ss (ssget "C" a b))
    
22.   (setq i 0)
    
23.   (repeat (sslength ss)
    
24.     (setq name (ssname ss i))
    
25.     (setq nameb name)
    
26.     (setq obj_type (cdr (assoc 0 (entget name))))
    
27.     (setq obj_layer (cdr (assoc 8 (entget name))))
    
28.     (if        (and (= obj_type "LWPOLYLINE") (= obj_layer "S-DJ"))
    
29.       (progn
    
30.         (command "copy" name "" 0 0)
    
31.         (command "region" name "")
    
32.         (setq name2 (entlast))
    
33.         (setq name (vlax-ename->vla-object (entlast)))
    
34.         (setq centroid (vla-get-Centroid name))
    
35.         (setq pt_x (vlax-safearray-get-element
    
36.                      (vlax-variant-value centroid)
    
37.                      0))
    
38.         (setq pt_y (vlax-safearray-get-element
    
39.                      (vlax-variant-value centroid)
    
40.                      1))
    
41.         (setq pt (list pt_x pt_y 0))
    
42.         (command "point" pt)
    
43.         (entdel name2)
    
44.         (command "move" nameb "" pt c)
    
45. ;;;        (princ "11111111111111111")
    
46.         )
    
47.       )
    
48.     (setq i (1+ i))
    
49.     )
    
50.   )
    

(defun c:xxxz  ()<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq ssb (ssget '((0 . "POINT"))))<br />   (setq p 0)<br />   (repeat (sslength ssb)<br />     (setq name_pt (ssname ssb p))<br />     (setq pt_cen (cdr (assoc 10 (entget name_pt))))<br />     (setq pt_a (polar pt_cen (/ pi 2) 3000))<br />     (setq pt_b (polar pt_cen (/ (* 5 pi) 4) 3000))<br />     (zxx pt_a pt_b pt_cen)   <br />     (setq p (1+ p))<br />     )<br />   (princ)<br />   )<br /> <br /> ;找形心<br /> (defun zxx  (a b c)<br />   (vl-load-com)<br />   (setq ss (ssget "C" a b))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq name (ssname ss i))<br />     (setq nameb name)<br />     (setq obj_type (cdr (assoc 0 (entget name))))<br />     (setq obj_layer (cdr (assoc 8 (entget name))))<br />     (if        (and (= obj_type "LWPOLYLINE") (= obj_layer "S-DJ"))<br />       (progn<br />         (command "copy" name "" 0 0)<br />         (command "region" name "")<br />         (setq name2 (entlast))<br />         (setq name (vlax-ename->vla-object (entlast)))<br />         (setq centroid (vla-get-Centroid name))<br />         (setq pt_x (vlax-safearray-get-element<br />                      (vlax-variant-value centroid)<br />                      0))<br />         (setq pt_y (vlax-safearray-get-element<br />                      (vlax-variant-value centroid)<br />                      1))<br />         (setq pt (list pt_x pt_y 0))<br />         (command "point" pt)<br />         (entdel name2)<br />         (command "move" nameb "" pt c)<br /> ;;;        (princ "11111111111111111")<br />         )<br />       )<br />     (setq i (1+ i))<br />     )<br />   )<br />

newer

截取个图片贴上来，并传一个测试DWG上来。