请教，如何两点旋转填充图案角度？

sbwdx

请教各位大神，最近画图改填充图案角度，GIF，这是源泉的旋转填充图案角度，我想简化一下，选中要旋转的填充图案，在需要的填充图案上，指定两点，确认角度，然后，选中的填充图案就和指定两点的填充图案角度一致了，我就不用去量和算了，结果就是两个填充图案角度一致，效果图GIF图片，请求帮忙

start4444

用command比较方便，但要加个76组码的判断，自定义和预定义填充改角度命令顺序有点不一样
(defun c:tt5 (/ ang ent entd p1 p2)
(setq entd (entget (setq ent (car (entsel "\n请选择对象:")))) p1 (getpoint"\n点1:") p2 (getpoint"\n点2:" p1) ang (angle p1 p2))
(entmod (setq entd (subst (cons 52 ang) (assoc 52 entd) entd)))
(command "_hatchedit" ent "o" "s" "non" p1 "n")       
)

start4444

你之前已经发过改填充图案的贴了吧，参考那个改一下就行了，把填充的52组码更换了就好

sbwdx

start4444 发表于 2020-1-2 15:24
你之前已经发过改填充图案的贴了吧，参考那个改一下就行了，把填充的52组码更换了就好

还是不会老师

kwok

(defun c:test ()
  (command "-HATCHEDIT"pause "p"  "" "" pause pause)
  )

bai2000

楼上，好人

sbwdx

start4444 发表于 2020-1-2 15:02
用command比较方便，但要加个76组码的判断，自定义和预定义填充改角度命令顺序有点不一样
(defun c:tt5 (/ ...

谢谢老师，我觉得5楼的代码，其实效果也不错，也挺好用的

sbwdx

kwok 发表于 2020-1-2 16:07
(defun c:test ()
  (command "-HATCHEDIT"pause "p"  "" "" pause pause)
  )

老师，经测试，此命令，针对，用户定义的填充图案，无效哦