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

mouse-net

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

newdhj

用不到什么程序的，只要在标注样式里设置一下，在标注时就有公英制双尺寸显示了
- a* m0 r, c# e/ r你这个“C0.125(英寸)，”也有错误，一般英制是用分数表示的

[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。
) l3 l% H; s( t, Y4 P: b" g
: K/ `+ j- W" m+ K. h[ 本帖最后由 mouse-net 于 2008-8-11 13:19 编辑 ]

ysryc99001

我有一个发给大家学习学习(defun c:inm()
(setq kkdat(findfile(strcat way"\\dat\\TAGMARK.kdat" )))
(Setq ss@SS(ssget(list(cons -3 (list(list "my_tag"))))))
) ?+ P8 I1 E8 f6 M  f9 q(setq ss@len(sslength ss@SS))
(setq @k 0)
9 L1 l5 q* j1 h  Q  k3 O) \5 b(while(< @k ss@len)
(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
  (setq  my_tag(car(cdr(cdr(car data_i)))))
: [' D6 W9 B( W7 k (if (/= "org"(cdr my_tag ))(progn
- F4 d0 C' E0 ?; \# b, @  (setq my_tag(cdr my_tag))
! G5 c4 \# U) w* w, ~  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
  (setq elss(entget ssn))
(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
(setq circen(cdr(assoc 10 elss)));;圆心
7 k/ o2 F" Q% M% [(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
                                    
# }, t; Q( _2 P5 {! m4 Y5 }3 U* {8 @  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

  
1 i# j+ h; O  Q1 q; n  (findtag tagmark)
  
  ));;(if my_tag(progn
  (setq @k(+ @k 1))
  );;(while(< @k ss@len)
! q5 W+ y, j2 l
0 K' Z# h0 l" c, c  (princ)
4 T7 D  C6 e$ f4 ~$ ]  );end


5 X, l6 q/ N5 w! z$ i( D3 S2 Q
) Q; C5 Q7 A3 I
* a9 U0 Y, S; q+ a4 t. @1 f

+ {) X+ |4 E( O. z( X1 }/ `, F
5 T  d& O1 _# Z+ o6 {; ]. Q
$ A$ s" K% T! j& h- q, e3 j# e;;功能  
;;获取附着在AutoCAD对象上的扩展图元数据  
;;语法  
;;(ax:GetXData Obj AppID)  
;;参数  
;;obj:图元名
;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
0 {# Q% U6 ?/ @$ i. ^;;返回附着到对象上的扩展图元数据列表  
;;如：  (("south" (1000 . "204201") (1040 . 1.0))
6 w; r$ V! |# L% e4 z;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
9 ~# m1 B2 A( `+ X) ?0 d;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
;;      )
;;样例  
; U) j' U" b" T3 z;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
, t9 J5 A! L0 \  o' r(defun xl:GetXData
       (Obj AppID / data n i  k i_k data_k temp1 temp2)
% S) U. f4 a4 j: \  D  (setq data_i nil)
  (setq data (cdr (assoc -3 (entget obj appid)))
5 H; q/ |. f! ` n    (length data)
i    0
  )
) N1 M8 C5 T0 V  F: z, w% ^  (repeat n
4 l3 A. k" X6 W& m! D    (setq temp1  (nth i data)
   data_k (list (car temp1))
   temp1  (cdr temp1)
: v0 W; y0 [5 d% w1 Z9 L8 ]   k  (length temp1)
( s" h  P2 F( E5 T9 M   i_k  0
  N5 |# I5 G2 x+ w    )
    (repeat k
) k; i6 Q% T% R1 M      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
+ a7 A' A) q$ Y1 {* r; R      )
1 G5 v* J; A& N      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
   )
: F/ N# ~7 `# a' s0 h/ B3 M. s' ~* C. B (setq data_k (append data_k (list temp2)))
      )
    )
    (setq data_i (append data_i (list data_k))
   i  (1+ i)
    )
  )
! b: O' L8 A+ D+ F  data_i
)
% `: X. D- i5 C
' W9 g6 g  U# S! w, V
. [5 @! B3 F2 R& R+ x$ F4 X1 o

(defun findtag (tagmark)
  (setq kdat(open kkdat "r"))
- z2 m% b! [( _ (while(setq kdatread (read-line kdat))
6 [' x/ k; O: y6 X1 ~( I3 o3 j8 p   (if(/=" "(substr kdatread 1 1))
    (if(= kdatread tagmark)(progn
(setq kai nil)                             
' D4 t5 b4 O9 f9 q  H(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
3 r/ n/ a8 @& s* h$ _& G+ Q/ }5 g   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
2 N( w- ], q* @, [! [' f  (setq kdatread(substr kdatread 2 ))
' L/ \' o6 x& {  (Setq pwk(vl-string-search " " kdatread))
$ ^  d' ], w$ p2 s+ m! m$ |  I  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
' [0 _1 n- y$ ~6 V6 m  (if (= comma "TEST")(progn
& G" f  D# t) N3 F(setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (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)));文字
(setvar "clayer" cirlayer)
(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
+ Q, ]9 n% A/ G; t        ));(if (= comma "TEST")(progn

  (if (= comma "LINE")(progn
: ?, r1 }& ]# y+ ~7 a& g        (setq kdatread(substr kdatread (+ pwk 2)))
  Q& M9 O) ^4 t) {(Setq pwk(vl-string-search " " kdatread))
2 `' f$ x7 s% ]# x1 U" i  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
2 I; P/ p6 A( {2 u. l% F/ M! F: v (setq linep1 (polar circen (angtof lineang)  Rcir));起点
! n: u8 s6 q5 m       
  (setq kdatread(substr kdatread (+ pwk 2)))
3 d% s8 i  ]; g: A(Setq pwk(vl-string-search " " kdatread))
  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
$ L2 t0 \2 A/ v2 `) Q4 C' L(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
(setvar "clayer" cirlayer)
3 }7 [6 W, o1 z4 }/ P(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
# V; H; `. J5 m% E% S        ));(if (= comma "LINE")(progn

2 z: Z8 M. D! g! X2 ?  (if (= comma "HATCH")(progn

                         
        ));(if (= comma "HATCH")(progn
' d1 q5 o5 a# Q
    (if (= comma "CIRCLE")(progn
- ]# \; v) {4 e3 C4 r# ?
5 F% [9 |2 k) Q+ b7 L) F2 H$ D                         
        ));(if (= comma "CIRCLE")(progn
* d) g8 Y( H1 J" I8 l; g) V: q  k* \% }  
  
  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
2 g9 [7 y$ o3 R" r                             
5 n( a& q$ J) z) M                             
7 m, c' o  P& m6 v0 ^      ));;(if(= kdatread tagmark)(progn
     );;(if(/=" "(substr kdatread 1 1))
   
    );;;(while(setq kdatread (read-line kdat))
/ P& `$ V) s- [  
$ k0 ^1 j* h1 R" c2 ^: K; j2 X. v  (close kdat)
  );end