大师帮我看看，我这个程序好像有一点问题

吴外安放

;算出包围框
(defun ss::boundingbox (sel / idx llp ls1 ls2 obj urp)
    (repeat (setq idx (sslength sel))
      (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))
      (if
    (and
      (vlax-method-applicable-p obj 'getboundingbox)
      (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'llp 'urp))))
    )
     (setq ls1 (cons (vlax-safearray->list llp) ls1)
           ls2 (cons (vlax-safearray->list urp) ls2)
     )
      )
    )
    (if (and ls1 ls2)
      (mapcar '(lambda (a b) (apply 'mapcar (cons a b))) '(min max) (list ls1 ls2))
    )
)
;居中中心对齐
(defun c:dq ()        (setvar "OSMODE" 0)
       (princ "\n选择要移动的对象")
        (while (setq ss1 (ssget))                        
         (setq obj1 (ss::boundingbox ss1))         
        (setq x (/ (+ (caar obj1) (caadr obj1)) 2))
        (setq y (/ (+ (cadar obj1) (cadadr obj1)) 2))
        (setq mid1 (list x y 0.0))
   (princ "\n选择对齐的对象")
          (setq ss2 (ssget))
         (setq obj2 (ss::boundingbox ss2))
         (setq x1 (/ (+ (caar obj2) (caadr obj2)) 2))
         (setq y1 (/ (+ (cadar obj2) (cadadr obj2)) 2))
         (setq mid2 (list x1 y1 0.0))
          (princ "\n中心对齐")

      (command "_.move" ss1 "" mid1 mid2))
     (setvar "OSMODE" 11)
    (princ)     
  )

muwind

感觉是捕捉问题，一般用了command 控制捕捉就是耍流氓

吴外安放

muwind 发表于 2020-8-30 15:39
感觉是捕捉问题，一般用了command 控制捕捉就是耍流氓

谢谢大哥