taoyi0727 发表于 2020-4-6 09:26:12

本帖最后由 taoyi0727 于 2020-4-6 09:36 编辑



(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 发表于 2020-4-6 09:34:14

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 发表于 2020-4-6 09:35:24

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

上面可以了
页: 1 [2]
查看完整版本: 这样的功能怎么实现，怎么弄呀