一个关于角度的问题

peraperson

如图，我希望通过框选绿色的矩形来生成蓝色的矩形（比如1000*1000）和绿色文字 要求绿色和蓝色的矩形中心对齐 角度一致
我会写左边的 但是右边倾斜的不会写
有人可以帮忙写一下或者指点一下吗

自贡黄明儒

添加或修改组码50

ysq101

实在不行你可以把两个对象生成了之后  把他放在一个选择集里
再用COMMAND来的转一下角度就好了
新手只能帮你到这了

edata

要看你实现左边的代码，这样简单。

q3_2006

绿色矩形是块吗??

q3_2006

(defun gxl-getboxCenter  (e1 / obj minpoint maxpoint)
  (if (= 'ENAME (type e1))
    (setq obj (vlax-ename->vla-object e1))
    (setq obj e1)
  )
  (vla-GetBoundingBox obj 'minpoint 'maxpoint)
  (setq minpoint (vlax-safearray->list minpoint))
  (setq maxpoint (vlax-safearray->list maxpoint))
  (mapcar '* '(0.5 0.5 0.5) (mapcar '+ minpoint maxpoint))
)
(defun c:tt ( / ang1 ang2 bn e i pts ss x)
(setq bn (getstring "\n输入块名:"))
(while (setq ss (ssget '((0 . "LWPOLYLINE"))))
  (repeat (setq i (sslength ss))
            (setq e (ssname ss (setq i (1- i)))
             pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e)))
             ang1 (angle (car pts) (cadr pts))
             ang2 (angle (cadr pts) (caddr pts))
            )
            (if (> ang1 ang2)
             (entmake (list '(0 . "INSERT") (cons 2 bn) (cons 10 (gxl-getboxCenter e)) (cons 50 ang2)))
             (entmake (list '(0 . "INSERT") (cons 2 bn) (cons 10 (gxl-getboxCenter e)) (cons 50 ang1)))
            )
        )
)
)

peraperson

q3_2006 发表于 2014-2-18 19:58
(defun gxl-getboxCenter  (e1 / obj minpoint maxpoint)
  (if (= 'ENAME (type e1))
    (setq obj (vl ...

谢谢回复 试了一下 貌似不行 款选完后没反应 提示 “Specify opposite corner: 1 found”
请问(car pts) 得到的是所有角点的x坐标而（cadr pts)得到的是是所有角点的x坐标相加除以2和y坐标相加除以2吗？
如果是的话那(angle (car pts) (cadr pts))的写法又成立吗？

peraperson

自贡黄明儒 发表于 2014-2-18 17:34
添加或修改组码50

谢谢 不好意思忘了说 蓝色和绿色的都是多段线不是快 主要的问题在于如何提取绿色矩形的倾斜角度

peraperson

edata 发表于 2014-2-18 18:13
要看你实现左边的代码，这样简单。

这个问题其实我之前问过 就是“如何获得矩形的中点” 当时得到的热心回复是
(setq angpt (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))))                     
(setq midpt (mapcar '(lambda (x y) (/ (+ x y) 2)) (car angpt) (caddr angpt)))      
就一直用了 一直没深究 现在想知道角度如何获得
其实对 (car angpt) (caddr angpt) 得到的是什么不是很明白 是所有角点的x坐标相加除以2和y坐标相加除以2吗？如何是的话那角度怎么写呢？

peraperson

ysq101 发表于 2014-2-18 17:44
实在不行你可以把两个对象生成了之后  把他放在一个选择集里
再用COMMAND来的转一下角度就好了
新手只能帮 ...

主要是角度不知道怎么获取