用VLA实现COPY

Lisphk · 发表于 2017-12-3 15:37:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[Actionscript3] 纯文本查看 复制代码

(defun c:tt  (/ ss p1 p2)
      (vl-load-com)
      (if (and (ssget "_:L")
               (setq p1 (getpoint "\nPick basepoint: "))
               (setq p2 (getpoint p1 "\nPick Next point: "))
               )
            (progn
                  (vlax-for
                         itm  (setq ss   (vla-get-activeselectionset
                                               (vla-get-activedocument
                                                     (vlax-get-acad-object))))
                        (vla-move
                              (vla-copy itm)
                              (vlax-3d-point p1)
                              (vlax-3d-point p2))
                        )
                  (vla-delete ss)
                  )
            )(princ)
      )

liunian0524 · 发表于 2017-12-5 09:50:54

感谢楼主分享

sicky111 · 发表于 2017-12-6 00:01:17

学习一下。

zjy2999 · 发表于 2017-12-6 10:20:39

谢谢楼主分享！！！！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 用VLA实现COPY

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块