[求助]选择填充图案后，直接加角度，更新图案

my_autocad

填充图案加角度

做铺装图时常常要修改填充图案的角度以适合需要，如要为图案的角度为12。3356456，加45度，通常要复制角度到计算器里去，加上45度后，再复制到角度框里去，非常麻烦，能不能先选择填充图案后，输入要加的角度值，图案自动更新啊，LSP程序是怎么样的呢？

(defun c:ok ()
(setq a (entget(car(entsel))))
(setq b (assoc 52 a))
(setq d (cdr b))
(setq c (getint "\n请输入角度："))
(setq e (cons 52 (+ d c)))
(setq a (subst e b a))
(entmod a)
)

这个程序有问题

1、角度值不对，如0度变到45度，对话框的里值，不正确

2、图案不能自动更新，要双击才能手动更新

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

my_autocad

Rotate Angle 旋转角度 <DEG> :30
未知命令“TT”。按 F1 查看帮助。

程序完全能用，但有上面的提示，估计是commnad影响的

一次选择多个图案，只会改变最后一个图案，

要么选多个都变化，要么，只允许选择一个图案

呵呵，谢谢ZZXXQQ这么晚还在看贴

ZZXXQQ

2楼已改

dkj0322

谢谢楼上的分享，参考下，很感激

depgfdepgf

谢谢分享，支持！

sunfj

ZZXXQQ 发表于 2007-10-2 22:33
[/post]

太棒了，你。收了。