风清花弄影 发表于 2023-12-8 17:36:59

更改填充图案比例后 刷新图元 显示不更改

更改填充图案比例后刷新图元 显示不更改 但是修改已经生效了



(defun c:GBL()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(setq a (entsel))
(setq e (entget (car a)))
(princ e)
(setq old-e(assoc 41 e))
(setq bl (getreal "\n请输入比例:" ))
(setq new-e (cons 41 bl))
(setq e (subst new-e old-e e))
(princ e)
(entmod e)
   
   
(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
(prin1)
)
(prompt "<GBL>修改图案比例")
(prin1)



飞雪神光 发表于 2023-12-8 17:57:35

本帖最后由 飞雪神光 于 2023-12-8 17:59 编辑


[*](defun c:GBL(/ bl ty)
[*](setq ty (car (entsel)))
[*](setq bl (getreal "\n请输入比例:" ))
[*](vla-put-PatternScale (Vlax-Ename->Vla-Object ty) bl)
[*](princ)
[*])

vitalgg 发表于 2023-12-8 18:18:47

本帖最后由 vitalgg 于 2023-12-8 20:36 编辑

在(entmod e)后加
(entupd (cdr (assoc -1 e)))

楼下说的对，   修改 dxf 不会联动改变hatch的图案数据。

飞雪神光 发表于 2023-12-8 19:37:47

vitalgg 发表于 2023-12-8 18:18
在(entmod e)后加
(entupd e)

e是组码表啊 更新图元也不行 填充的比例可能不只是41控制 43 45 55啥的也跟着变了

风清花弄影 发表于 2023-12-8 22:12:13

飞雪神光 发表于 2023-12-8 17:57
[*](defun c:GBL(/ bl ty)
[*](setq ty (car (entsel)))
[*](setq bl (getreal "\n请输入比例:" )) ...

帅气大佬 感谢
页: [1]
查看完整版本: 更改填充图案比例后 刷新图元 显示不更改