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

风清花弄影 · 发表于 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请输入比例:" )) ...

帅气大佬感谢

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

[提问] 更改填充图案比例后 刷新图元 显示不更改

[提问] 更改填充图案比例后刷新图元显示不更改