有没有什么方法可以一次性更新模型和布局里的日期字段

fgsyql · 发表于 2019-6-18 17:23:25

本帖最后由 fgsyql 于 2019-6-19 16:44 编辑

用updatefield只能更新当前页所有的日期，如果布局有好几页就要每一页去更新
有没有什么方法可以一次性更新模型和布局里的所有日期字段, 或者可以写个lisp的快捷键可以一次性更新

e2002 · 发表于 2019-6-18 17:23:26

本帖最后由 e2002 于 2019-6-24 14:26 编辑

这就是一个我刚才回复另一个帖子中谈到的Layout的不便之处的例子。

这种需求只能遍历操作。
很多年前就写了。很简短，直接发给大家吧：

(defun C:lkpt_Layouts_AllTabs_ZoomExtendAndUpdateField ( / sCTab oldvar llayouts item)
(vl-arx-import 'layoutlist)
(setq sCTab (getvar "CTAB")
oldvar (getvar "CMDECHO")
llayouts (layoutlist)
)
(setvar "CMDECHO" 0)
(foreach item llayouts
(setvar "CTAB" item)
(vl-cmdf "_.updatefield" "_all" "")
(vl-cmdf "_.zoom" "_e")
)
(setvar "CMDECHO" oldvar)
(setvar "CTAB" sCTab)
(princ)
);_defun

start4444 · 发表于 2019-6-18 21:21:21

保存一次不是全部更新的吗

guohq · 发表于 2019-6-19 00:23:17

日期保存在哪里呢？有样图吗？

fgsyql · 发表于 2019-6-19 09:58:29

start4444 发表于 2019-6-18 21:21
保存一次不是全部更新的吗

我插入的字段不是不用保存日期，是用日期
如果用保存日期才是保存一次更新一次

q3_2006 · 发表于 2019-6-23 08:26:18

本帖最后由 q3_2006 于 2019-6-23 08:31 编辑

(if (setq ss1 (ssget "X" '((0 . "MTEXT"))))
(progn
   (setq ss (ssadd))
   (mapcar
'(lambda (ename / ent)
   (if (and (setq ent (cdr (assoc 360 (entget ename))))
      (dictsearch ent "ACAD_FIELD"))
      (ssadd ename ss)))
(vl-remove-if
   (function listp)
   (mapcar (function cadr) (ssnamex ss1))))
   (if (and ss (/= (sslength ss) 0))
(command "_.updatefield" ss ""))))

fgsyql · 发表于 2019-6-27 17:19:44

e2002 发表于 2019-6-24 14:17
这就是一个我刚才回复另一个帖子中谈到的Layout的不便之处的例子。

这种需求只能遍历操作。

谢谢楼原版主
怎么给明经币呀

fgsyql · 发表于 2019-7-8 17:00:04

afafdafdsfafafda

jkop · 发表于 2023-8-8 18:04:47

路过，有类似的困扰需要处理，感谢分享。

tranque · 发表于 2024-4-16 14:05:58

感谢楼主，非常好用，就是命令有点忒长了

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

[提问] 有没有什么方法可以一次性更新模型和布局里的日期字段

最佳答案

点评