;与参照对象集双向中心对齐--移动源对象

Gray-wolf

;与参照对象集双向中心对齐--移动源对象
(defun c:zkdq (/ pt1 pt2 pts pts2 pts3 ss ss1)   
        (setq eh-*error*-bak *error*);backup
        (defun *error* (msg)
                (setq *error* eh-*error*-bak);restore
                (setvar "osmode" eh_os_g)
                (command "_.undo" "e")
                (setvar "nomutt" 0)
                (setvar "cmdecho" 1)
                (print msg)   
        )   
        (setvar "cmdecho" 0)
        (command "_.undo" "be")
        (if (< (setq eh_os_g (getvar "osmode")) 16384)
                (setvar "osmode" (+ eh_os_g 16384))
        );if   
        (princ "--与参照对象集双向中心对齐--移动源对象")
        (setq ss (ssget))
        (princ "\n请选择要目标对象：")
        (setvar "nomutt" 1)
        (setq ss1 (ssget))
        (setvar "nomutt" 0)
       
        (setq pt1 (EH-SS-9pt ss 5))
        (setq pts2 (EH-Ent-9pt (ssname ss1 0) '(1 7 3 9)))
        (setq pts3 (EH-Ent-9pt (ssname ss1 1) '(1 7 3 9)))   
       
        (if (< (car (caddr pts2)) (car (car pts3)))
                (setq pts (list
                                                                (nth 2 pts2) (nth 3 pts2)
                                                                (nth 0 pts3) (nth 1 pts3)
                                                        )
                        pt3 (EH-Get-Midpt (EH-Get-Midpt (nth 2 pts2) (nth 3 pts2)) (EH-Get-Midpt (nth 0 pts3) (nth 1 pts3)))
                        pts4 (list (EH-Get-Midpt (nth 2 pts2) (nth 3 pts2))(EH-Get-Midpt (nth 0 pts3) (nth 1 pts3)))
                )
                (setq pts (list
                                                                (nth 2 pts3) (nth 3 pts3)
                                                                (nth 0 pts2) (nth 1 pts2)
                                                        )
                        pt3 (EH-Get-Midpt (EH-Get-Midpt (nth 0 pts2) (nth 1 pts2)) (EH-Get-Midpt (nth 2 pts3) (nth 3 pts3)))
                        pts4 (list (EH-Get-Midpt (nth 0 pts2) (nth 1 pts2))(EH-Get-Midpt (nth 2 pts3) (nth 3 pts3)))        
                )
        )
       
       
       
        (setq pt2 (EH-Pts-9pt pts '5))
        (vl-cmdf "_.move" ss "" pt1 pt2)
       
       
        (setq *error* eh-*error*-bak)
        (command "_.undo" "e")
        (setvar "osmode" eh_os_g)
        (setvar "cmdecho" 1)
        (princ)
)

MENGZE

沙发顶楼主一个

fangmin723

缺少自定义函数：EH-Ent-9pt、EH-Get-Midpt、EH-Pts-9pt

yoyoho

缺少自定义函数：
EH-SS-9pt

shuaier

"no function definition: EH-SS-9PT"

alpha223334

缺少函数

Gray-wolf

那些自定义函数都是很基础的通用函数了，论坛里有很多，就不重复了