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

mouse-net

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

newdhj

用不到什么程序的，只要在标注样式里设置一下，在标注时就有公英制双尺寸显示了
$ i7 }( |8 Y: O; B( R1 e% _你这个“C0.125(英寸)，”也有错误，一般英制是用分数表示的
) r6 W, D& l( F( t3 v# F$ z0 V
' B1 @$ e8 a: N8 h: L[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
% }$ |5 ?6 y1 _肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。
4 s; S$ k, G, m0 L# c
9 {( p- A/ a1 D& S% k[ 本帖最后由 mouse-net 于 2008-8-11 13:19 编辑 ]

ysryc99001

我有一个发给大家学习学习(defun c:inm()
& C- Q, F' S1 n3 c; `(setq kkdat(findfile(strcat way"\\dat\\TAGMARK.kdat" )))
% ^3 C; E, ]" Z7 S2 f(Setq ss@SS(ssget(list(cons -3 (list(list "my_tag"))))))
(setq ss@len(sslength ss@SS))
(setq @k 0)
(while(< @k ss@len)
2 [" F/ a0 z1 W' W(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
( c" K" s; B7 r0 }( M/ u  (setq  my_tag(car(cdr(cdr(car data_i)))))
- a+ U1 c' W6 ~$ I. C/ P (if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
  (setq elss(entget ssn))
% n! |/ U( S, g/ w, g(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
2 p! v0 j  I9 ~4 `( _(setq circen(cdr(assoc 10 elss)));;圆心
  Y* o; W" M! Z( g1 U, Q(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

  
  (findtag tagmark)
" H; H4 r- ?9 C  
! v) g" R6 C. F- a  ));;(if my_tag(progn
  B8 U3 X* Y3 A8 Z  (setq @k(+ @k 1))
  );;(while(< @k ss@len)

  (princ)
7 O( W7 E; y  c8 g- s+ P1 J  );end





2 `, y* D! {( ^  P

3 m) `: F/ n- u1 I; J
; u, O8 [9 |& \2 k& F;;功能  
8 T5 h1 ]6 Q+ X. ^( t;;获取附着在AutoCAD对象上的扩展图元数据  
% S2 Y* p( T3 W, X- f;;语法  
8 o( J2 _' w" T! @' _- B" E;;(ax:GetXData Obj AppID)  
;;参数  
;;obj:图元名
;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
' P  X" u3 X  L+ H7 Q! Q# M" H( n' ];;返回值  
9 Z5 B$ u5 x3 p/ |/ b/ P;;返回附着到对象上的扩展图元数据列表  
2 p% `4 r! `2 A) M5 u4 c;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
;;      )
;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
) x' E6 k0 H$ X. l, @5 v(defun xl:GetXData
       (Obj AppID / data n i  k i_k data_k temp1 temp2)
  (setq data_i nil)
8 M: d0 B, K% y- p) o  (setq data (cdr (assoc -3 (entget obj appid)))
+ t- q; n# C3 W4 E' h  A" X3 Y- D n    (length data)
i    0
  )
  (repeat n
    (setq temp1  (nth i data)
   data_k (list (car temp1))
# H" P' d  y" ~; I" O6 d+ |   temp1  (cdr temp1)
   k  (length temp1)
   i_k  0
, i1 V/ P) N. i    )
! E9 i8 j! k8 N, `6 L/ Z4 a7 T5 z% G% l6 {    (repeat k
      (setq temp2 (nth i_k temp1)
8 u  z0 E4 Q& s; k, j+ B     i_k   (1+ i_k)
. n9 `" Z; C; m( a  j      )
% t# X! N5 q4 ^- I/ ~$ s      (if (and (not (equal temp2 '(1002 . "{")))
7 }6 L8 e8 C+ m3 g. x4 q        (not (equal temp2 '(1002 . "}")))
   )
(setq data_k (append data_k (list temp2)))
      )
    )
    (setq data_i (append data_i (list data_k))
   i  (1+ i)
5 B9 q" z1 r2 M& s1 d    )
  )
  data_i
1 D4 p; G& |' b/ q)




(defun findtag (tagmark)
% ?$ [; ?- H1 ?3 |, R% }  (setq kdat(open kkdat "r"))
(while(setq kdatread (read-line kdat))
; R7 Q4 c) z; c* x9 a# @1 [   (if(/=" "(substr kdatread 1 1))
4 W8 r1 W: W2 {: k$ f8 e    (if(= kdatread tagmark)(progn
% A% n7 e6 T3 d, j3 A  S8 f  Z(setq kai nil)                             
$ D( M0 Q" a- k2 K3 z(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
  x# Y0 K( t2 a  (setq kdatread(substr kdatread 2 ))
  (Setq pwk(vl-string-search " " kdatread))
  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (if (= comma "TEST")(progn
(setq kdatread(substr kdatread (+ pwk 2)))
. g$ s6 {& u' [(Setq pwk(vl-string-search " " kdatread))
, _$ r+ j/ T2 ~+ o$ S" u* Y  (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))
& \& P7 [) C* x) U% s  (setq textt (strcase (substr  kdatread 1 pwk)));文字
(setvar "clayer" cirlayer)
(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
# _7 C! b6 u- d; ~# p! E4 y        ));(if (= comma "TEST")(progn
5 D4 Z* J8 }  o* L
  (if (= comma "LINE")(progn
        (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
  l. W, l* J1 H  T" R1 I. K* g (setq linep1 (polar circen (angtof lineang)  Rcir));起点
       
0 e& e, q& I! o' H% i5 D' v  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
" h- {# Y5 T7 A; T/ O; W  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
: ?3 f& P0 k+ I4 B: N(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
9 p' R7 `) H9 E' e  F (setvar "clayer" cirlayer)
- y  @; A1 b+ O% q! V0 h(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
. v2 u% _5 F: d/ o# ~        ));(if (= comma "LINE")(progn

! L; Z% L% c8 `  (if (= comma "HATCH")(progn

                         
8 A  B8 z. l' I! m9 N7 }: k& w5 v        ));(if (= comma "HATCH")(progn
- p5 W1 b& }( A# [. F8 g0 p
9 x. l: w( E1 ?! h% b) C    (if (= comma "CIRCLE")(progn

                         
        ));(if (= comma "CIRCLE")(progn
  
  
. j  Q) T& f& u: @- ^7 z  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
                             
4 _2 v: M5 Q. s5 X                             
5 }* @* ?4 \1 d; C# I      ));;(if(= kdatread tagmark)(progn
8 b2 w, T: P( L% [) d     );;(if(/=" "(substr kdatread 1 1))
   
    );;;(while(setq kdatread (read-line kdat))
$ S2 _# [2 V2 O2 Z$ C9 L  
  (close kdat)
  );end