怎樣更新符號列表

tyliling · 发表于 2006-12-13 08:43:00

各位現在我想更新"BLOCK"符號列表不知怎麼配合"entget"和:entmod"來操作

phoenixdjq · 发表于 2006-12-13 08:51:00

用了entmod后,还要用entupd这个函数,或者用regen这个cad命令

具体你看看函数说明吧

tyliling · 发表于 2006-12-13 10:41:00

(defun c:dcc()
(setq pp1 (tblnext "dimstyle"))
(setvar "cmdecho" 0)
(setvar "dimzin" 1)
(setq dh (getvar "dimdec"))
(setq dh_n (getint "\n<苤杅弇杅:"))
(setq sss (ssget ))
(setq n 0)
(setq i 0)
(repeat (sslength sss)
(setq en(ssname sss n))
    (setq en_date (entget en))
    (setq ABC (strcase (cdr (assoc 0 en_date))))
    (if (= ABC "DIMENSION")
         (changdimedc)
      )
    (setq n (1+ n)))
(princ)
)
(defun changdimedc()
(setq dimname (strcase (cdr (assoc 3 en_date))))
(setq dimnamelist (tblobjname "dimstyle" dimname))
(setq lplp (tblsearch "dimstyle" dimname))
(setq en_date (entget dimnamelist))
      (setq olddimdec_list (assoc 271 en_date))
      (setq newdimdec_list (cons 271 dh_n))
      (setq en_date (subst newdimdec_list olddimdec_list en_date))
      (entmod en_date)
)

tyliling · 发表于 2006-12-13 16:08:00

上面那段程式是更新尺寸小數位數,但是無法更表,請哪位幫忙更改一下.....

wzz1968 · 发表于 2006-12-18 17:20:00

首先用tbkobjname获得实体,

然后再用entget和entmod尽心修改.

rongyifei · 发表于 2006-12-18 20:01:00

这个问题好象在哪儿见过,版主已经给了你很好的答复!

TANER · 发表于 2006-12-19 09:15:00

本帖最后由作者于 2006-12-19 9:21:22 编辑

;;; ==================================================================
;;; (th-entmode-ename (car (entsel "\n选择圆 : ")) '((40 . 1000) (8 .
;;; "seg")(62 . 3)))
;;; ==================================================================
(defun th-entmode-ename (ename tylst / c el)
(setq el (entget ename))
(foreach n tylst
(if (setq c (assoc (car n) el))
(setq el (subst
n
c
el
)
)
(setq el (append
el
(list n)
)
)
)
)
(entmod el)
(entupd ename)
)

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

怎樣更新符號列表

浏览过的版块