两点画矩形并偏移，怎样控制偏移方向？

qazxswk

试了Bao_lai   guosheyang两位大神的代码，使用command画矩形，正常。但是，如果那个矩形用下面的方式得到的，后面用vla-offset 偏移，还有有点问题。因为这个是我一个插件的一部分，所以pt2  pt4不能忽略。
(defun c:13(/  pt1  pt2 pt3 pt4  ag0 ag len)
(setq pt1 (getpoint "拾取起点:"))
(setq ag0 (getangle pt1 "\n输入角度<或>直接取一个点以获取角度:"))
(setq pt3 (getcorner pt1 "\n拾取对角点:"))
(setq len (distance pt1 pt3) ag  (angle pt1 pt3) )
(setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))
(setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))

(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
(cons 10 pt1) (cons 10 pt2)(cons 10 pt3)(cons 10 pt4)'(70 . 1) ))
;;;(command "rectang" "non" pt1 "non" pt3)
(if(or(<(angle pt1 pt3)(* pi 0.5))(<(angle pt3 pt1)(* pi 0.5)))
     (vla-offset (vlax-ename->vla-object (entlast)) -30)
     (vla-offset (vlax-ename->vla-object (entlast)) 30)  )
  (princ))        

我现在是使用entmake创建矩形，然后用(command "offset" 30(entlast)(mapcar' *(mapcar' + pt1 pt3)'(0.5 0.5 0.5))"")这句得到偏移的对象。

guosheyang

qazxswk 发表于 2022-5-15 21:00
试了Bao_lai   guosheyang两位大神的代码，使用command画矩形，正常。但是，如果那个矩形用下面的方式得到 ...

仅针对你的 两点画矩形的情况    编标entmake  情况显然不一样   

uualice2020

把矩形双向偏移后得到2个面积，比较2面积大小  大的外偏 小的内偏 删除不需要的
(defun enpy ( ename pyl value / e1 e2 )
(vla-offset (vlax-ename->vla-object ename )(* pyl -1))
                 (setq e1 (entlast))                               
                 (vla-offset (vlax-ename->vla-object ename ) pyl )
                 (setq e2(entlast))       
(if (= value 1)
                 (if (> (vla-get-Area (vlax-ename->vla-object e1))
                                                 (vla-get-Area (vlax-ename->vla-object e2)))                               
                            (vl-cmdf "ERASE" e1  "")       
                            (vl-cmdf "ERASE" e2  "")               
                 )
)               
(if (= value 2)
                 (if (< (vla-get-Area (vlax-ename->vla-object e1))
                                                 (vla-get-Area (vlax-ename->vla-object e2)))                               
                            (vl-cmdf "ERASE" e1  "")       
                            (vl-cmdf "ERASE" e2  "")               
                 )
)                       
(setq ent (entlast))       
)

隽轩2013

(defun c:11 (/ p1 p2)
        (setq p1 (getpoint "矩形第一点:"))
        (setq p2 (getcorner p1 "矩形对角点:"))
        (command "rectang" p1 p2)
        (command "offset" 30 (entlast) (polar p1 (angle p1 p2) (* 0.5 (distance p1 p2))) "")
        (princ)
)

qazxswk

hhh454 发表于 2022-5-16 23:28
;;绘制双线矩形
;;主程序开始
(defun c:tt (/ p1 p2)

看你写了这么多，只看到你核心的一句： (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)   跟我的差不多。说明我们的想法是一样的。

qazxswk

隽轩2013 发表于 2022-5-17 08:28
(defun c:11 (/ p1 p2)
        (setq p1 (getpoint "矩形第一点:"))
        (setq p2 (getcorner p1 "矩形对角点:"))
...

你这句也是一样，(polar p1 (angle p1 p2) (* 0.5 (distance p1 p2)))   获取偏移后的中心，不同的表达，不错

hhh454

qazxswk 发表于 2022-5-17 08:56
看你写了这么多，只看到你核心的一句： (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)   跟我的差不多 ...

是的，就是取中点就行了，特定条件的代码还是好写一点，距离30也可以采用DCL来取值，便于改变，程序开头和结尾还是要有的，要不然有时会有错误，，我这也是学习猫老师的写法

yefei812678

都是高手啊