【已解决】求画矩形对角线

lwl450 · 发表于 2019-6-18 10:46:06

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

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

×

本帖最后由 lwl450 于 2019-7-5 16:39 编辑

怎么求P5  P6 P7 P8 这四个点，然后四个点对角相连，有无大神帮帮忙

(defun c:tt (/ p1 p2 p3 p4)
(setvar "cmdecho" 0)
(setq p1 (getpoint "\r第一点:"))
(setq p2 (getcorner p1 "\r下一点:"))
(progn
   (setq p3 (list (car p1) (cadr p2))
         p4 (list (car p2) (cadr p1))
   )
   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity")
                  '(100 . "AcDbPolyline")  (cons 90 4)
                  (cons 10 p1) (cons 10 p3) (cons 10 p2) (cons 10 p4)
                  (cons 70 1)  )  )
(vla-offset (vlax-ename->vla-object (entlast)) 10)
)
(princ)
)

yinchuan99001 · 发表于 2019-7-5 09:36:46

(defun c:tt(/ p1 p2 p3 p4)
  (setvar "cmdecho" 0)
  (setq p1 (getpoint "\r第一点:"))
  (setq p2 (getcorner p1 "\r下一点:"))
  (progn
(setq p3 (list (car p1) (cadr p2))
   p4 (list (car p2) (cadr p1))
)
(entmake (list '(0 . "LWPOLYLINE")
   '(100 . "AcDbEntity")
   '(100 . "AcDbPolyline")
   (cons 90 4)
   (cons 10 p1)
   (cons 10 p3)
   (cons 10 p2)
   (cons 10 p4)
   (cons 70 1)
      )
)
(vla-offset (vlax-ename->vla-object (entlast)) 10)
  )
(setq p5 (list (+ (car p1) 10) (+ (cadr p1) 10)))
(setq p6 (list (- (car p2) 10) (- (cadr p2) 10)))
(setq p7 (list (+ (car p3) 10) (- (cadr p3) 10)))
(setq p8 (list (- (car p4) 10) (+ (cadr p4) 10)))
(command "line" p5 p6 p7 p8 "")
(princ)
)

;说明画矩形第一点在左下角，第二点相对第一点在右上角，不然会出错

137407536 · 发表于 2019-6-19 11:17:46

本帖最后由 137407536 于 2019-7-8 09:59 编辑

学习到了，谢谢了

lwl450 · 发表于 2019-7-5 16:33:44

yinchuan99001 发表于 2019-7-5 09:36
(defun c:tt(/ p1 p2 p3 p4)
(setvar "cmdecho" 0)
(setq p1 (getpoint "\r第一点:"))

谢谢了，明白了，这几句加了个判断四个角框选都没出错了
   (vla-offset (vlax-ename->vla-object (entlast)) 10)
   (setq p5 (list (+ (car p1) 10) (+ (cadr p1) 10)))
   (setq p6 (list (- (car p2) 10) (- (cadr p2) 10)))
   (setq p7 (list (+ (car p3) 10) (- (cadr p3) 10)))
   (setq p8 (list (- (car p4) 10) (+ (cadr p4) 10)))

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

[已解决] 【已解决】求画矩形对角线

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

点评