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

mouse-net

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

newdhj

用不到什么程序的，只要在标注样式里设置一下，在标注时就有公英制双尺寸显示了
2 _. q2 |6 R0 Q你这个“C0.125(英寸)，”也有错误，一般英制是用分数表示的
' o9 m7 [, H! O2 U
[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。

" b4 L* U+ Q( u1 h! `[ 本帖最后由 mouse-net 于 2008-8-11 13:19 编辑 ]

ysryc99001

我有一个发给大家学习学习(defun c:inm()
(setq kkdat(findfile(strcat way"\\dat\\TAGMARK.kdat" )))
7 D; R; @+ b1 e(Setq ss@SS(ssget(list(cons -3 (list(list "my_tag"))))))
* H$ i6 a! s- V0 D* G: w(setq ss@len(sslength ss@SS))
4 }  j$ Y. S4 e# J(setq @k 0)
(while(< @k ss@len)
8 z7 L4 O7 X- v' r, U1 g: N& d(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
  (setq  my_tag(car(cdr(cdr(car data_i)))))
  J8 G4 H' J0 o* e/ @2 u (if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
! G. }/ f0 P, w" Z4 v  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
3 e7 g/ W) ?# \& [& X. _  (setq elss(entget ssn))
(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
(setq circen(cdr(assoc 10 elss)));;圆心
; y# J4 P1 ?0 W& I- s; D" L, p(setq Rcir(cdr(assoc 40 elss)));;半径
) j0 f9 G$ Q( h9 P7 X(setq cirlayer(cdr(assoc 8 elss)));;图层
' H% f& Q' L2 G$ Z8 x                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

5 I* F6 T4 l( f8 x+ W  
! p/ m# d% z& Y. C  (findtag tagmark)
, A7 Z( m2 O6 d) {  
  ));;(if my_tag(progn
# G! c5 n( ~5 j, m+ V  o  (setq @k(+ @k 1))
  );;(while(< @k ss@len)
' R4 t" {, o: K
4 Y! O5 m9 G  G  (princ)
0 Z6 \  n3 t' ~) t  );end


* F* p) H/ P4 \- d  a* E2 r( n

$ @0 Q0 m3 z& m6 U( H8 h5 p7 h
2 C7 |( ^2 f  ]% ^: G+ x; h! x* c
! c4 O9 X3 i- V

;;功能  
1 L" H2 l3 i. a- U;;获取附着在AutoCAD对象上的扩展图元数据  
& i5 `9 c$ ?$ l* m$ [2 r;;语法  
2 o4 k9 ?. |2 j, c$ v1 X% g;;(ax:GetXData Obj AppID)  
4 C. g# n. ]" q: u1 M;;参数  
$ @/ z, i8 j( m8 l2 O  h;;obj:图元名
( X! C+ b0 k; C1 c;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
;;返回附着到对象上的扩展图元数据列表  
" L: g" g3 Z) A# Z! y  {) C;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
+ }; V' e/ u. V% k7 W) X: h! Z3 z;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
% ^6 @" d: f; T4 H;;      )
7 f! {: G/ h5 {$ H+ N3 C;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
(defun xl:GetXData
       (Obj AppID / data n i  k i_k data_k temp1 temp2)
3 p4 R/ E7 F# O- w! k  (setq data_i nil)
  (setq data (cdr (assoc -3 (entget obj appid)))
n    (length data)
# u) Z9 W8 ]6 U- |& L; C* M) m! } i    0
  )
  (repeat n
  ?2 q  ~& H; D+ N0 m    (setq temp1  (nth i data)
0 M3 F& _6 c& f3 @' X0 C- V   data_k (list (car temp1))
   temp1  (cdr temp1)
' P$ F+ [1 M3 Y# z   k  (length temp1)
   i_k  0
4 v. E% K) o  `; Q. [' {    )
7 @3 |* k- S% {' S, U+ z. ^0 [" e    (repeat k
8 f: D% K4 J6 M+ }) V      (setq temp2 (nth i_k temp1)
* q& q' A1 z/ d6 O; O" V9 \     i_k   (1+ i_k)
, @- K/ B0 r% K2 T- F      )
      (if (and (not (equal temp2 '(1002 . "{")))
; X' @  @0 c& f' [; c        (not (equal temp2 '(1002 . "}")))
- [9 I3 {* |3 |9 B" a   )
(setq data_k (append data_k (list temp2)))
1 B8 [& a) y4 I+ b' g      )
    )
8 h6 x2 B8 w2 e! m$ e8 V    (setq data_i (append data_i (list data_k))
/ j; @( l. |7 w4 `- J; v8 I# F' c   i  (1+ i)
    )
  )
/ j( H8 i3 o3 {  data_i
2 E8 F/ t* n/ p/ l)



8 V+ E, N2 y+ J, [0 x. e2 Z7 s
- P; J" ~! J& g(defun findtag (tagmark)
! O5 l( e$ t& t  (setq kdat(open kkdat "r"))
9 C" O* f0 A( M+ x& e, m' a6 N (while(setq kdatread (read-line kdat))
   (if(/=" "(substr kdatread 1 1))
0 i0 R3 h& O7 Y0 c0 L    (if(= kdatread tagmark)(progn
(setq kai nil)                             
$ R; o* \* P1 u3 T/ ](while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
. c6 Y* R7 Q7 A% i  (setq kdatread(substr kdatread 2 ))
) ~) h( G* [2 s7 C+ c  (Setq pwk(vl-string-search " " kdatread))
  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (if (= comma "TEST")(progn
(setq kdatread(substr kdatread (+ pwk 2)))
; G$ V0 }3 u7 A* U$ w(Setq pwk(vl-string-search " " kdatread))
, T: A  T: ^& p7 q: o+ e' h  (setq textin (strcase (substr  kdatread 1 pwk)));文字插入点
(if (= textin "CEN")(setq textin  circen));如果为CEN为圆心
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq textt (strcase (substr  kdatread 1 pwk)));文字
, \7 b# ?( ]2 i9 g4 S (setvar "clayer" cirlayer)
, m- @0 q. N2 I: S4 _0 h(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
        ));(if (= comma "TEST")(progn
, L- i: l' `5 j% I5 P4 n: a* H
  (if (= comma "LINE")(progn
7 q  Z$ {2 f! q% E) h        (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
( |# F5 w$ s: ^0 w% J) E  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
(setq linep1 (polar circen (angtof lineang)  Rcir));起点
- \, D& Z2 d8 n       
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
& d8 z( x, I8 r/ d( \- H6 |  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
/ I; _# Z$ z# n9 t8 U- m(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
, X9 K, G- a: K0 Y4 Q% ]0 x (setvar "clayer" cirlayer)
' [+ L4 R( W7 |( N: X1 L4 G  X(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
        ));(if (= comma "LINE")(progn

  (if (= comma "HATCH")(progn
  \6 e+ l) {" A& a6 @
                         
        ));(if (= comma "HATCH")(progn
: ], ~- U& l$ Z+ L$ R$ O
    (if (= comma "CIRCLE")(progn
9 F: B. q5 |- V4 Z( ?# H; x
                         
        ));(if (= comma "CIRCLE")(progn
  
! s" e: |; z- G) L. r  
  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
4 i8 {# X$ o6 X5 A7 Y                             
8 m$ w0 P8 K- Y, B6 Y% {9 H' X                             
- F5 h) K8 c; I* Q* d! ^9 U6 r      ));;(if(= kdatread tagmark)(progn
" U! k0 |, S( S2 e9 t$ k& s     );;(if(/=" "(substr kdatread 1 1))
/ B% s' k" n9 z% a# S  }   
% f+ H2 S+ _' O2 o! B+ s    );;;(while(setq kdatread (read-line kdat))
& W+ ?& _+ i2 d  
  (close kdat)
0 n- T% q( s$ A2 C  );end