(entmod el2)更新数据

ymcui

自贡黄明儒 发表于 2015-5-6 14:03
看不出你的动是什么作用。
你试试同时修改10组码试试。

用下面程序点选11.3的尺寸得出的组码是230，当我用左键点选尺寸就会高亮再点选它来进行移动.后再用下面程序点选尺寸得出的组码就是102
你也可以下载我那个CAD用我下面程序点选尺寸试一下,一共有四种<38><102><166><230
当你手工拖动尺寸位置时,所有尺寸都只<38>和<102>了

2. (defun c:cv ()
   
3. (princ (cdr (assoc '70 (entget (car (entsel))))))
   
4. (princ)
   
5. )

(defun c:cv ()<br /> (princ (cdr (assoc '70 (entget (car (entsel))))))<br /> (princ)<br /> )

springwillow

ymcui 发表于 2015-5-6 11:09
我是要移动尺寸文字的位置
(setq el2 (subst (list '14 (nth 1 (assoc '14 el1)) (+ (nth 2 (assoc '14 el ...

你这里组表不应用list应该用cons组表