[原创]检查那个尺寸的值被改动过啦和非1：1画的图

龙龙仔 · 发表于 2009-11-5 17:59:00

本帖最后由作者于 2009-11-11 7:57:39 编辑

為甚麼我在R2005~R2006 與 R2006以上用不一樣的方法

顯示內容被替換掉的尺寸對像
Type LAI_DIS_DIM_UPDATE_VAL,By LUCAS
恢復內容被替換掉的尺寸對像
Type LAI_REV_DIM_UPDATE_VAL,By LUCAS

vlx版 for R2005以上(未詳細測試) 更新對角度亦有效

liminnet · 发表于 2009-11-6 09:02:00

提示: 作者被禁止或删除内容自动屏蔽

龙龙仔 · 发表于 2009-11-6 15:39:00

因我把LAI_DIS_DIM_UPDATE_VAL改為切換開關,但沒有寫好,樓上程序已更新

我的程序是修改個別尺寸,你的是修改DIMSTYLE OR 個別尺寸

liminnet · 发表于 2009-11-7 17:14:00

提示: 作者被禁止或删除内容自动屏蔽

龙龙仔 · 发表于 2009-11-9 08:09:00

到底貼了甚麼代碼會出現下列??

function XML() {
[native code]
}

liminnet · 发表于 2009-11-9 08:51:00

提示: 作者被禁止或删除内容自动屏蔽

龙龙仔 · 发表于 2009-11-9 12:05:00

for r2005~r2006
(vl-load-com)
(defun KO->GET-DIMDXFVAL (ENA DXF / DATA)
(if (setq DATA (assoc -3 (entget ENA '("ACAD"))))
(cdadr (member (cons 1070 DXF) (cadr DATA)))
)
;;(vla-get-linearscalefactor (vlax-ename->vla-object ENA))
)
(defun KO->LSTPRINC (LST)
(foreach L LST
(princ L)
)
)
(defun KO->LSTALERT (STR LST)
(foreach L LST
(setq STR (strcat STR L))
)
(alert STR)
)
(defun KO->SS-2LST (SS / N LST)
(setq N 0)
(repeat (sslength SS)
(setq LST (cons (ssname SS N) LST))
(setq N (1+ N))
)
LST
)
(defun KO->DISCHAVAL_ONOROFF
(ENA MODE TXTCOL MASKCOL / DXF_LST ENA_DATA)
(if (not (tblobjname "APPID" "ACAD_DSTYLE_DIMTEXT_FILL"))
(regapp "ACAD_DSTYLE_DIMTEXT_FILL")
)
(if MODE
(progn
(setq DXF_LST
(list
(list '(1070 . 376) '(1070 . 2))
(list '(1070 . 377)
(cons 1004 MASKCOL)
)
)
)
(vlax-put (vlax-ename->vla-object ENA) 'TEXTCOLOR TXTCOL)
)
(vlax-put (vlax-ename->vla-object ENA)
'TEXTCOLOR
(getvar "DIMCLRT")
)
)
(setq ENA_DATA (entget ENA))
(entmod
(cons
(list
-3
(apply 'append
(list (list "ACAD_DSTYLE_DIMTEXT_FILL")
(apply 'append DXF_LST)
)
)
)
ENA_DATA
)
)
)
;;;以上代碼為上面程序的主代碼，僅供參考
;;;顯示內容被替換掉的尺寸對像
(defun C:LAI_DIS_DIM_UPDATE_VAL ()
(KO_DIM_UPDATE_VAL t)
) ;ko_end
(princ
"\n顯示內容被替換掉的尺寸對像\nTYPE LAI_DIS_DIM_UPDATE_VAL,By LUCAS"
)
;;;恢復內容被替換掉的尺寸對像
(defun C:LAI_REV_DIM_UPDATE_VAL ()
(KO_DIM_UPDATE_VAL NIL)
) ;ko_end
(princ
"\n恢復內容被替換掉的尺寸對像\nTYPE LAI_REV_DIM_UPDATE_VAL,By LUCAS"
)
(defun KO_DIM_UPDATE_VAL (MODE / HOLDECHO HOLDOSMODE
I I II I_SUM II_SUM
SS X MODE_MSG DATA
)
;;(KO->ERROR-INIT (list '("cmdecho" 0 "osmode" 0) 1))
(setq HOLDEHCO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq HOLDOSMODE (getvar "osmode"))
(setvar "osmode" 0)
(setq I 0
I_SUM 0
II 0
II_SUM 0
SS NIL
)
(setq MODE_MSG (if MODE
"顯示"
"恢復"
)
)
(mapcar
'(lambda (X)
(cond
((and (setq DATA (KO->GET-DIMDXFVAL X 144))
(not (equal DATA 1))
)
(if
(vl-catch-all-error-p
(vl-catch-all-apply
'KO->DISCHAVAL_ONOROFF
(list X
MODE
6
"1800000001000000050000C3000000000000000000000000"
)
)
)
(setq II (1+ II))
(setq II_SUM (1+ II_SUM))
)
)
((wcmatch (cdr (assoc 1 (entget X))) "~")
(if
(vl-catch-all-error-p
(vl-catch-all-apply
'KO->DISCHAVAL_ONOROFF
(list X
MODE
2
"1800000001000000010000C3000000000000000000000000"
)
)
)
(setq I (1+ I))
(setq I_SUM (1+ I_SUM))
)
)
)
)
(KO->SS-2LST
(setq SS (ssget "X" '((0 . "DIMENSION"))))
)
)
(cond
((and SS (or (/= I 0) (/= II 0)))
(KO->LSTALERT
"出現程序出錯信息，統計如下:\n"
(list
(strcat "共找到"
(itoa (sslength SS))
"個內容被替換掉的尺寸對像"
)
"\n "
"處理結果如下:"
"\n "
(strcat MODE_MSG
"了"
(itoa (+ I I_SUM))
"個內容被替換掉的尺寸對像"
)
"\n"
(strcat "有"
(itoa I)
"個內容被替換掉的尺寸對像"
MODE_MSG
"過程中，出現異常,沒有"
MODE_MSG
"出來"
)
"\n"
(strcat MODE_MSG
"了"
(itoa (+ II II_SUM))
"個同時具備內容被替換、測量因子非1的兩個條件的尺寸對像"
)
"\n"
(strcat "有"
(itoa II)
"個同時具備內容被替換、測量因子非1的兩個條件的尺寸對像"
MODE_MSG
"過程中，出現異常,沒有"
MODE_MSG
"出來"
)
)
)
)
(SS
(KO->LSTPRINC
(list
(strcat "\n共找到"
(itoa (sslength SS))
"個內容被替換掉的尺寸對像"
)
(strcat "\n"
MODE_MSG
"了"
(itoa (+ I I_SUM))
"個內容被替換掉的尺寸對像"
)
(strcat "\n"
MODE_MSG
"了"
(itoa (+ II II_SUM))
"個同時具備內容被替換、測量因子非1的兩個條件的尺寸對像"
)
)
)
)
(t (alert "本圖中沒有內容被替換掉的尺寸"))
) ;end_cond
;;(KO->ERROR-RESTORE)
(setvar "osmode" HOLDOSMODE)
(setvar "cmdecho" HOLDEHCO)
(princ)
) ;ko_end

for r2005~r2006

(vl-load-com)
(defun KO->GET-DIMDXFVAL (ENA DXF / DATA)
  (if (setq DATA (assoc -3 (entget ENA '("ACAD"))))
    (cdadr (member (cons 1070 DXF) (cadr DATA)))
  )
  ;;(vla-get-linearscalefactor (vlax-ename->vla-object ENA))
)
(defun KO->LSTPRINC (LST)
  (foreach L LST
    (princ L)
  )
)
(defun KO->LSTALERT (STR LST)
  (foreach L LST
    (setq STR (strcat STR L))
  )
  (alert STR)
)
(defun KO->SS-2LST (SS / N LST)
  (setq N 0)
  (repeat (sslength SS)
    (setq LST (cons (ssname SS N) LST))
    (setq N (1+ N))
  )
  LST
)
(defun KO->DISCHAVAL_ONOROFF
       (ENA MODE TXTCOL MASKCOL / DXF_LST ENA_DATA)
  (if (not (tblobjname "APPID" "ACAD_DSTYLE_DIMTEXT_FILL"))
    (regapp "ACAD_DSTYLE_DIMTEXT_FILL")
  )
  (if MODE
    (progn
      (setq DXF_LST
      (list
        (list '(1070 . 376) '(1070 . 2))
        (list '(1070 . 377)
       (cons 1004 MASKCOL)
        )
      )
      )
      (vlax-put (vlax-ename->vla-object ENA) 'TEXTCOLOR TXTCOL)
    )
    (vlax-put (vlax-ename->vla-object ENA)
       'TEXTCOLOR
       (getvar "DIMCLRT")
    )
  )
  (setq ENA_DATA (entget ENA))
  (entmod
    (cons
      (list
 -3
 (apply 'append
        (list (list "ACAD_DSTYLE_DIMTEXT_FILL")
       (apply 'append DXF_LST)
        )
 )
      )
      ENA_DATA
    )
  )
)
;;;以上代碼為上面程序的主代碼，僅供參考
;;;顯示內容被替換掉的尺寸對像 
(defun C:LAI_DIS_DIM_UPDATE_VAL ()
  (KO_DIM_UPDATE_VAL t)
)     ;ko_end
(princ
  "\n顯示內容被替換掉的尺寸對像\nTYPE LAI_DIS_DIM_UPDATE_VAL,By LUCAS"
)
;;;恢復內容被替換掉的尺寸對像
(defun C:LAI_REV_DIM_UPDATE_VAL ()
  (KO_DIM_UPDATE_VAL NIL)
)     ;ko_end
(princ
  "\n恢復內容被替換掉的尺寸對像\nTYPE LAI_REV_DIM_UPDATE_VAL,By LUCAS"
)
(defun KO_DIM_UPDATE_VAL (MODE    /     HOLDECHO HOLDOSMODE
     I    I     II      I_SUM    II_SUM
     SS    X     MODE_MSG DATA
    )
  ;;(KO->ERROR-INIT (list '("cmdecho" 0 "osmode" 0) 1))
  (setq HOLDEHCO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "osmode" 0)
  (setq I 0
 I_SUM 0
 II 0
 II_SUM 0
 SS NIL
  )
  (setq MODE_MSG (if MODE
     "顯示"
     "恢復"
   )
  )
  (mapcar
    '(lambda (X)
       (cond
  ((and (setq DATA (KO->GET-DIMDXFVAL X 144))
        (not (equal DATA 1))
   )
   (if
     (vl-catch-all-error-p
       (vl-catch-all-apply
  'KO->DISCHAVAL_ONOROFF
  (list X
        MODE
        6
        "1800000001000000050000C3000000000000000000000000"
  )
       )
     )
      (setq II (1+ II))
      (setq II_SUM (1+ II_SUM))
   )
  )
  ((wcmatch (cdr (assoc 1 (entget X))) "~")
   (if
     (vl-catch-all-error-p
       (vl-catch-all-apply
  'KO->DISCHAVAL_ONOROFF
  (list X
        MODE
        2
        "1800000001000000010000C3000000000000000000000000"
  )
       )
     )
      (setq I (1+ I))
      (setq I_SUM (1+ I_SUM))
   )
  )
       )
     )
    (KO->SS-2LST
      (setq SS (ssget "X" '((0 . "DIMENSION"))))
    )
  )
  (cond
    ((and SS (or (/= I 0) (/= II 0)))
     (KO->LSTALERT
       "出現程序出錯信息，統計如下:\n"
       (list
  (strcat "共找到"
   (itoa (sslength SS))
   "個內容被替換掉的尺寸對像"
  )
  "\n "
  "處理結果如下:"
  "\n "
  (strcat MODE_MSG
   "了"
   (itoa (+ I I_SUM))
   "個內容被替換掉的尺寸對像"
  )
  "\n"
  (strcat "有"
   (itoa I)
   "個內容被替換掉的尺寸對像"
   MODE_MSG
   "過程中，出現異常,沒有"
   MODE_MSG
   "出來"
  )
  "\n"
  (strcat MODE_MSG
   "了"
   (itoa (+ II II_SUM))
   "個同時具備內容被替換、測量因子非1的兩個條件的尺寸對像"
  )
  "\n"
  (strcat "有"
   (itoa II)
   "個同時具備內容被替換、測量因子非1的兩個條件的尺寸對像"
   MODE_MSG
   "過程中，出現異常,沒有"
   MODE_MSG
   "出來"
  )
       )
     )
    )
    (SS
     (KO->LSTPRINC
       (list
  (strcat "\n共找到"
   (itoa (sslength SS))
   "個內容被替換掉的尺寸對像"
  )
  (strcat "\n"
   MODE_MSG
   "了"
   (itoa (+ I I_SUM))
   "個內容被替換掉的尺寸對像"
  )
  (strcat "\n"
   MODE_MSG
   "了"
   (itoa (+ II II_SUM))
   "個同時具備內容被替換、測量因子非1的兩個條件的尺寸對像"
  )
       )
     )
    )
    (t (alert "本圖中沒有內容被替換掉的尺寸"))
  )     ;end_cond
  ;;(KO->ERROR-RESTORE)
  (setvar "osmode" HOLDOSMODE)
  (setvar "cmdecho" HOLDEHCO)
  (princ)
)     ;ko_end

liminnet · 发表于 2009-11-9 12:35:00

提示: 作者被禁止或删除内容自动屏蔽

tyxdd · 发表于 2009-11-9 13:02:00

龙版主太厉害了.

龙龙仔 · 发表于 2009-11-9 17:28:00

liminnet发表于2009-11-9 12:35:00厉害，不过没有文字颜色的恢复功能，

程序上這段就是

(vlax-put (vlax-ename->vla-object ENA)
'TEXTCOLOR
(getvar "DIMCLRT")
)

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

[资源] [原创]检查那个尺寸的值被改动过啦和非1：1画的图

本帖子中包含更多资源

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-11-6 09:02:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-11-7 17:14:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-11-9 08:51:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-11-9 12:35:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡