动态修改填充角度

st788796 · 发表于 2019-1-31 09:57:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

模仿了一个

(defun c:tt (/ myerr e _callback ha bp pt olderr ang)
(defun myerr (msg)
(xdrx_pointmonitor)
(xdrx_setpropertyvalue ha "PatternAngle" ang)
(princ)
)
(defun _callback (p)
(xdrx_setpropertyvalue ha "PatternAngle" (angle p bp))
)
(setq olderr *error*
*error* myerr
)
(if (setq e (entsel))
(progn
(setq bp (cadr e)
ha (car e)
ang (xdrx_getpropertyvalue ha "PatternAngle")
)
(xdrx_pointmonitor "_callback")
(if (setq pt (getpoint bp "\nAngle: "))
(progn
(xdrx_pointmonitor)
(xdrx_setpropertyvalue
ha
(angle pt bp)
)
)
)
)
)
(setq *error* olderr)
(xdrx_pointmonitor)
(princ)
)

Lisphk · 发表于 2019-1-31 10:13:23

感谢大师分享，能不能做个动态修改比例的或者平行线间距

st788796 · 发表于 2019-1-31 11:33:29

Lisphk 发表于 2019-1-31 10:13
感谢大师分享，能不能做个动态修改比例的或者平行线间距

图案填充是一个个"线"重复，平行线间距（图形单位）在 pat 文件中定义了，看到的间距就是填充比例 x 这个定义的间距（图案单元）

如果使用填充表达一些精确尺寸，可以自定义实际尺寸的 pat 定义，也可以使用期望的距离和 pat 文件中定义的间距计算需要的填充比例

获取填充单元大小的图形单位大小可以使用

(xdrx_getpropertyvalue (entlast) "ParallelSpacing")

复制代码

st788796 · 发表于 2019-1-31 11:46:30

*ANGLE,角钢
0, 0, 0, 0, 6.985, 5.08, -1.905
90, 0, 0, 0, 6.985, 5.08, -1.905

这个图案填充，定义的一个单元是 6.985 图形单位，如果想图案线间距为 100，那么

填充比例 = 100.0 / 6.985

gdfyhao · 发表于 2019-1-31 20:20:36

这种动态显示的效果看起来很是舒服

coverne · 发表于 2019-2-1 10:58:45

好好了解一下

账号		自动登录	找回密码
密码			立即注册

[教学] 动态修改填充角度

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。