请教，如何两点旋转填充图案角度？
请教各位大神，最近画图改填充图案角度，GIF，这是源泉的旋转填充图案角度，我想简化一下，选中要旋转的填充图案，在需要的填充图案上，指定两点，确认角度，然后，选中的填充图案就和指定两点的填充图案角度一致了，我就不用去量和算了，结果就是两个填充图案角度一致，效果图GIF图片，请求帮忙本帖最后由 start4444 于 2020-1-2 16:36 编辑
用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")
)
你之前已经发过改填充图案的贴了吧，参考那个改一下就行了，把填充的52组码更换了就好 start4444 发表于 2020-1-2 15:24
你之前已经发过改填充图案的贴了吧，参考那个改一下就行了，把填充的52组码更换了就好
还是不会老师 (defun c:test ()
(command "-HATCHEDIT"pause "p""" "" pause pause)
) 楼上，好人 start4444 发表于 2020-1-2 15:02
用command比较方便，但要加个76组码的判断，自定义和预定义填充改角度命令顺序有点不一样
(defun c:tt5 (/ ...
谢谢老师，我觉得5楼的代码，其实效果也不错，也挺好用的 kwok 发表于 2020-1-2 16:07
(defun c:test ()
(command "-HATCHEDIT"pause "p""" "" pause pause)
)
老师，经测试，此命令，针对，用户定义的填充图案，无效哦
页:
[1]