AutoLISP: Reset Selected Dimensions

Now that you have located “dodgy” dims in a drawing, you may need to reset them to their original values. There are many LISP routines online that do this globally, but you may need to reset a few of these dimensions. That’s where this routine comes in handy. Instead of doing this manually, this routine does the hard work for you.

BTW, To do this manually, you select the dimension and then in the properties palette, under the text override text-box you enter <>

Here’s how:

  • RDD <enter> to start Reset Dodgy Dims
  • Select the dimensions that you want reset.
  • <enter> to finish

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
;RDD Reset Dims to actual value
 
(defun C:RDD (); (c) 2001 Andy Leisk
 
(prompt "\nRDD to start...\n")
 
(princ "Selects dims to reset...\n")
 
(setq ss (ssget))
 
(command ".DIM1" "NEW" "<>" ss "")
 
(princ)
 
)
 
(princ)


'CAD > Lisp' 카테고리의 다른 글

(mapcar) 와 (lambda)  (0) 2014.10.25
Entmake 할 때, 객체별 요구리스트 정리  (0) 2014.10.25
켜 생성  (0) 2014.10.11
소실된 SHX 파일 퍼지  (0) 2014.09.08
아이소매트릭 글자 만들기  (0) 2014.09.08