glow123 发表于 2010-6-26 08:00:00

<p>好想看到内容啊</p>

billliu66 发表于 2010-6-26 21:17:00

<p>kan kan</p>

gason 发表于 2011-10-19 10:19:39

要5个回帖，这个潜水号杯具了

gason 发表于 2011-10-19 10:38:50


要5个回帖，这个潜水号杯具了

dforme 发表于 2011-10-25 13:52:32

呵呵，级别不够，参观一下

mjz521yy 发表于 2011-10-25 14:06:25

谢谢！谢谢！

raimo 发表于 2011-10-25 15:57:23

2009年的帖子都翻上来了..不过很有用..

millermin 发表于 2011-11-20 14:17:48

我也贴一个给你参考。我自己做的。能够在整个图形文件里，自动找到指定的旧样式替换成你需要的新样式。所以你需要输入新旧两种样式，但是不用选目标。全图替换。


(defun c:fd()
(setq dim-del (strcase (getstring "\nENTER A EXPIRED DIM STYLE:")))
(setq dim-chg(strcase (getstring "\nENTER A NEW DIM STYLE:")))
(setq ss (ssget "x" '((0 . "DIMENSION,LEADER"))))
(setq m 0 )
(setq n 0)
   (if (/= ss nil) ;no1
    (progn ;no1
       (repeat (sslength ss)
          (setq dimdata(entget(ssname ss m)))
          (setq old-obj0(strcase(cdr(assoc 3 dimdata))))
            (if (= old-obj0 dim-del) ;n02
            (progn ;no2
               (setq old-obj (assoc 3 dimdata))   
               (setq new-obj (cons 3 dim-chg))
               
               (setq dimdata(subst new-obj old-obj dimdata))
               (entmod dimdata)
               (setq m (1+ m))
               (setq n (1+ n))
               )    ;end progn no2
               (setq m (1+ m))
             )   ; end if no2
         )   ; end repeat
      (print (strcat " TOTAL DIMENSIONS OBJECTS: " "----------------"(rtos m)))
      (print (strcat " CHANGED EXPIRED DIMENSIONS: " "--------------"(rtos n)))   
      (princ)
    ) ;end progn no1
    (progn; no3
      (print"DIMENSION NOT FOUND")
      (princ)
   ) ;end progn no3
   ); end if no1
)

lvrenfei 发表于 2011-11-20 15:14:44

楼主真厉害

lvrenfei 发表于 2011-11-20 15:15:15

错了，应该是版主，嘿嘿
页: 1 2 [3] 4
查看完整版本: 标注样式的替换LISP