Lisp 编程完成英制转换为公制

mouse-net

有没有编程高手帮我编个LISP程序。我做在标注模板图的时候，用英制标注，而加工需要用公制，要是每个都手工改很费时间的。比方说自动标注出的直径为%%C0.125(英寸)，我只能手工改成%%c3.175(0.125x25.4)。能不能编个LISP程序自动改成这样？先谢谢啦！

newdhj

用不到什么程序的，只要在标注样式里设置一下，在标注时就有公英制双尺寸显示了
; D# Z% n. w+ }( x你这个“C0.125(英寸)，”也有错误，一般英制是用分数表示的

3 _# S* P# M. f$ ~/ p- c/ m[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
1 A9 I  q+ S' e% f" }肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。
. ?9 j$ v( _. v4 c* f
[ 本帖最后由 mouse-net 于 2008-8-11 13:19 编辑 ]

ysryc99001

我有一个发给大家学习学习(defun c:inm()
9 B8 K4 w1 x' _: M  O  D(setq kkdat(findfile(strcat way"\\dat\\TAGMARK.kdat" )))
(Setq ss@SS(ssget(list(cons -3 (list(list "my_tag"))))))
4 I1 @# k  G; r$ Y) _7 s; O) U(setq ss@len(sslength ss@SS))
7 d0 ]1 ^! f0 f5 }% V- C# t(setq @k 0)
' f/ |8 ^2 {7 j% u. C(while(< @k ss@len)
(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
  (setq  my_tag(car(cdr(cdr(car data_i)))))
2 J$ X1 C6 F; N7 u (if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
/ n" |; \3 {0 p7 q- P/ K, g0 m  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
& `4 n! ?. x$ A# V+ I0 t% G" h  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
  (setq elss(entget ssn))
7 R% J, t9 G1 W(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
) [% V; O; K% N3 V4 O. C(setq circen(cdr(assoc 10 elss)));;圆心
- `9 }$ D9 T9 T. l- d6 d/ ]4 N& T(setq Rcir(cdr(assoc 40 elss)));;半径
' F/ W$ d. K4 ?% P( k(setq cirlayer(cdr(assoc 8 elss)));;图层
4 @! ?1 k! I( u7 Z6 S7 y' ~                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

  
  (findtag tagmark)
3 D$ r. J  }9 b, A3 K7 l  e  
5 s: P3 [- V, I3 O1 B  ));;(if my_tag(progn
! T2 T6 e: C% M/ o  (setq @k(+ @k 1))
) C' w5 N) X+ B2 W0 q! W  );;(while(< @k ss@len)

2 F. I/ r- o. J4 S( Y  (princ)
  );end
0 t3 p( h, L9 ]8 q& K
" J% l- m5 R" j! k0 B- G/ e: R0 M

9 L) r, W& S+ v9 i7 g4 X- Y

. X$ b9 ?; p7 g' r9 Z6 \
5 @1 B6 W2 i' q( @+ @# C. R( G

2 x# M1 ~; k) n5 p;;功能  
;;获取附着在AutoCAD对象上的扩展图元数据  
;;语法  
;;(ax:GetXData Obj AppID)  
1 _* P- m$ L: V8 |;;参数  
" C: J1 d) f# B. b1 m;;obj:图元名
; e- s+ ~8 S: {/ v9 f* @) {;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
* z7 S: w6 |5 H4 ?/ D9 n;;返回附着到对象上的扩展图元数据列表  
8 Z0 R5 F% A: F+ D;;如：  (("south" (1000 . "204201") (1040 . 1.0))
; p+ l1 f: h2 v& `- W;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
;;       ("BBBB" (1000 . "bbbbbbb"))
3 W3 T: X7 r7 E/ h, `2 m4 g: z  _;;       ("CCCC" (1041 . 752.569))
  w, t: V, e+ G2 v;;      )
! N  L0 J) _, {3 G( O;;样例  
# r/ ?: K# o; j- J& u;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
(defun xl:GetXData
& O7 b$ V+ B/ [8 W8 R& H       (Obj AppID / data n i  k i_k data_k temp1 temp2)
  (setq data_i nil)
7 o: w; `- E# X8 {; V5 T! M  (setq data (cdr (assoc -3 (entget obj appid)))
1 F$ y# M0 x( b- o8 g" U n    (length data)
i    0
  )
7 [5 w* R/ P  Q; c  (repeat n
+ O; R: [' t% v# q6 Q& J  u    (setq temp1  (nth i data)
   data_k (list (car temp1))
8 [9 k! l0 Z2 N: U, r9 R$ P1 Y   temp1  (cdr temp1)
: E' X9 z; s% L: Q% n1 }* a   k  (length temp1)
1 \3 W2 B" b: x  x   i_k  0
2 s1 I$ X) K! _# j: W    )
    (repeat k
      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
/ K* I3 ?7 B. R5 c      )
" K' z. V' v+ g      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
- F' w0 h- ]& g* U8 A( b   )
(setq data_k (append data_k (list temp2)))
5 y' v0 ]2 b* D  C8 n      )
6 H" Z# s# F5 w0 x    )
    (setq data_i (append data_i (list data_k))
4 {. |) a! K# n3 v$ D   i  (1+ i)
3 d* a; [7 q, Q1 }    )
  )
7 _4 \& g2 P( a, S6 Z  data_i
)

* T- @( B3 m' s/ d+ Q
- P) P6 d' x! y+ U( @( }
) Z- ]/ f" r& j* A1 |3 u" a
(defun findtag (tagmark)
5 r; V  o# i) D) L* x- r5 ~1 p' K( i  (setq kdat(open kkdat "r"))
( {; y$ ^* P, T (while(setq kdatread (read-line kdat))
   (if(/=" "(substr kdatread 1 1))
5 X. R5 \; K1 G1 L4 y& B* ]: j    (if(= kdatread tagmark)(progn
4 \. D7 s9 W, M$ X( h) b# X(setq kai nil)                             
9 J6 C1 Q$ k% u3 e" f! K9 g(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
* `' f) O$ d9 A   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
  (setq kdatread(substr kdatread 2 ))
  (Setq pwk(vl-string-search " " kdatread))
. @7 m3 |, O( i" d8 s2 A3 R- Y% r  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (if (= comma "TEST")(progn
(setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq textin (strcase (substr  kdatread 1 pwk)));文字插入点
& U7 d! r5 H  b% G: s(if (= textin "CEN")(setq textin  circen));如果为CEN为圆心
# A2 Q* @! i  ~% q7 a  (setq kdatread(substr kdatread (+ pwk 2)))
  r( _" S7 `4 o# w$ K4 [$ ?(Setq pwk(vl-string-search " " kdatread))
  (setq textt (strcase (substr  kdatread 1 pwk)));文字
# f* j: p, b+ o- T" e. p (setvar "clayer" cirlayer)
(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
4 H( _( ~9 f/ O. ^        ));(if (= comma "TEST")(progn
1 {; S$ K7 H- v$ T" D: E
$ K% t9 {5 m# G* z: a  (if (= comma "LINE")(progn
; @+ x! ~0 i! F2 m) p. r        (setq kdatread(substr kdatread (+ pwk 2)))
( s% x' W5 t5 n, d# A; \8 B(Setq pwk(vl-string-search " " kdatread))
1 g3 P& I0 a& S/ T, U1 n  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
(setq linep1 (polar circen (angtof lineang)  Rcir));起点
9 [+ Y2 Q0 i! y* i5 a( C& _/ z       
  (setq kdatread(substr kdatread (+ pwk 2)))
6 U6 ~* B2 Q' Q" m' c2 ?+ P(Setq pwk(vl-string-search " " kdatread))
  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
(setvar "clayer" cirlayer)
9 g( w* v9 w+ O  O9 C* D3 ]9 j(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
& r& u6 O$ Q4 V# ?% w/ I        ));(if (= comma "LINE")(progn

  (if (= comma "HATCH")(progn
: ~6 i. }9 l4 h& ?
- t; p6 ~0 [; r* i( ?0 U6 i* U                         
: Q' }% h: x$ U4 q; a        ));(if (= comma "HATCH")(progn

    (if (= comma "CIRCLE")(progn

                         
        ));(if (= comma "CIRCLE")(progn
, Q  O) j# _; C7 r  
  J" F+ x5 @" Y! i2 j9 t* `4 H  
  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
                             
& q% A! j+ i1 ?5 L                             
0 I; p8 P2 e' C" r" c! x      ));;(if(= kdatread tagmark)(progn
     );;(if(/=" "(substr kdatread 1 1))
( h8 D" n( P( ^   
6 w4 L/ e2 F1 {: Q' Q- s! c    );;;(while(setq kdatread (read-line kdat))
  
  (close kdat)
  B3 ~" W, Y2 }! T, \  );end