请大神帮忙修改一下代码，因为旋转UCS坐标后，就不行了,谢谢

sbwdx1 · 发表于 2019-10-17 15:33:05

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

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

×

本帖最后由 sbwdx1 于 2019-10-17 15:34 编辑

(defun c:zx (/ ang mpt pt1 pt2 v)
      (setq pt1 (getpoint "指定第一点"))
      (setq pt2 (getpoint pt1 "指定第二点"))
      (setq mpt (mapcar (function (lambda (x y) (/ (+ x y)2.0))) pt1 pt2))
      (setq
            ang (+ (angle pt1 pt2) (/ pi 2))
            v (polar '(0 0 0) ang 1)
      )
      (entmake (list
                                             '(0 . "XLINE")
                                             '(100 . "AcDbEntity")
                                             '(62 . 1)
                                             '(100 . "AcDbXline")
                                             (cons 10 (trans mpt 1 0))
                                             (cons 11 (trans v 1 0))
                                       )
      )
  (princ)
)

st788796 · 发表于 2019-10-17 23:13:33

(defun c:zx (/ ang mpt pt1 pt2 v)
(if (and (setq pt1 (getpoint "指定第一点"))
(setq pt2 (getpoint pt1 "指定第二点"))
)
(progn
(setq mpt (mapcar (function (lambda (x y) (/ (+ x y) 2.0))) pt1 pt2)
v (trans (mapcar '- pt2 pt1) 1 0)
)
(entmake (list
'(0 . "XLINE")
'(100 . "AcDbEntity")
'(62 . 1)
'(100 . "AcDbXline")
(cons 10 (trans mpt 1 0))
(cons 11 (list (cadr v) (- (car v)) 0.0))
)
)
)
)
(princ)
)

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

[求助] 请大神帮忙修改一下代码，因为旋转UCS坐标后，就不行了,谢谢

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