这样的功能怎么实现，怎么弄呀

taoyi0727

(defun c:tt (/ ang1 ang2 basepoint name obj pt1 pt2 pt3 pt4 pt5 pt6)
        (if (and
                                (setq name (car (entsel "\n选择家具:")))
                                (setq pt1 (getpoint "\n选择家具第1点:"))
                                (setq pt2 (getpoint "\n选择家具第2点:"))
                                (setq pt3 (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2)))
                                
                                (setq pt4 (getpoint "\n选择墙面第1点:"))
                                (setq pt5 (getpoint "\n选择墙面第2点:"))
                                (setq pt6 (polar pt4 (angle pt4 pt5) (/ (distance pt4 pt5) 2)))
                        )
                (progn
                        (setq obj (vlax-ename->vla-object name))
                        (vla-Move obj (vlax-3d-point pt3) (vlax-3d-point pt6))
                        (setq basepoint (vlax-3D-point pt6))
                        (vla-Rotate obj basepoint (+ (- (angle pt1 pt2)) (angle pt4 pt5)))
                )
        )
)

friendship

taoyi0727 发表于 2020-4-6 09:26
(defun c:tt (/ ang1 ang2 basepoint name obj pt1 pt2 pt3 pt4 pt5 pt6)
        (if (and
                                (setq name  ...

你好
选择墙面第2点:; 错误: no function definition: T-UNIVERSAL-RADIAN-ANGLE

taoyi0727

friendship 发表于 2020-4-6 09:34
你好
选择墙面第2点:; 错误: no function definition: T-UNIVERSAL-RADIAN-ANGLE

上面可以了