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

mouse-net

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

newdhj

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

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

mouse-net

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

[ 本帖最后由 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"))))))
! Y$ j% d' Y+ C7 _(setq ss@len(sslength ss@SS))
(setq @k 0)
(while(< @k ss@len)
. I0 q! J' z, [& q* p& e3 J(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
! _# I0 R9 m; L8 R0 }  (setq  my_tag(car(cdr(cdr(car data_i)))))
' o, I. a) `8 i4 I (if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
0 H) C) V2 C0 ~9 m* I+ s  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
( `* a9 H, c8 S+ e0 ^& u9 s7 Z  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
  (setq elss(entget ssn))
+ s# ?/ X0 }/ ?# |0 Z2 Q(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
: T1 t/ _( H3 B(setq circen(cdr(assoc 10 elss)));;圆心
; I5 @3 f/ r8 A! E* g% }(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
% P* h. G% B' j9 [% F                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
% X+ J( m' p! f! D
" w' T6 ~9 E( o; e+ e  
  (findtag tagmark)
! d3 _2 [% m/ H2 c  
# ?( g+ _. e% g4 u  ));;(if my_tag(progn
' w$ H- C4 L) d* v5 _  (setq @k(+ @k 1))
  );;(while(< @k ss@len)
) V# F  i( x7 v* f- h8 t5 b
1 [( q& @0 C% T  (princ)
  );end
( z: Y- v' }6 X5 C9 J$ @




  H* d( q7 j3 J1 Z  z


;;功能  
;;获取附着在AutoCAD对象上的扩展图元数据  
6 M' U0 O4 e& y& s( y;;语法  
: c$ A) }3 x( n;;(ax:GetXData Obj AppID)  
9 l2 Q- ^# c5 };;参数  
+ z* j: ], o- K  V3 ^5 };;obj:图元名
, i1 D/ B; ]: I7 H- u;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
+ Y, K* `' K, I+ }. t;;返回附着到对象上的扩展图元数据列表  
( y( i. H" G5 z' w; I;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
0 A* [) y/ v. [% I0 I; v3 U2 l6 B;;       ("BBBB" (1000 . "bbbbbbb"))
% {% J2 }; ]; R6 _4 ~;;       ("CCCC" (1041 . 752.569))
;;      )
;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
1 C2 ^0 ^& ~5 l- z( t+ I/ N(defun xl:GetXData
5 h5 F, {0 J. r! L       (Obj AppID / data n i  k i_k data_k temp1 temp2)
  (setq data_i nil)
  (setq data (cdr (assoc -3 (entget obj appid)))
n    (length data)
( E( x/ Z+ X8 U% a# E i    0
  )
+ H3 u& R& S+ B) `: t  (repeat n
    (setq temp1  (nth i data)
3 N6 Q8 T3 D& ^" H% F- l   data_k (list (car temp1))
* k/ b! K4 d$ u' A4 W   temp1  (cdr temp1)
3 l2 B2 @, t# C# L9 Y   k  (length temp1)
% U6 f$ G8 u2 C% E1 [   i_k  0
    )
    (repeat k
& m) \! E& I/ X0 x5 n6 A      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
$ E. G9 x1 u+ d) @2 B      )
      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
  L1 o8 s6 z9 ?/ Z, |/ D. y( F7 l& D   )
/ X0 R4 v) o1 g: N1 m (setq data_k (append data_k (list temp2)))
      )
0 ?$ v, U0 e( l" Z+ B* b2 f2 W% Z    )
4 E$ i! g1 E2 t' E( ?3 D: P    (setq data_i (append data_i (list data_k))
8 q, p( [* d- m8 J: ], A  E! Q   i  (1+ i)
    )
0 M8 f7 l8 k$ w3 q2 C  )
  data_i
0 Q7 `- I6 B* z$ ]+ s: z9 ~- o)
4 M! ~8 H: h+ _5 |5 v6 ~& [1 ]7 p
$ P; l' W0 J3 a  @! V) r8 _$ f
  s. ^) }1 j- T9 H- L5 T% A
; n: d. f  _& I9 G5 s
8 D; N9 G; a# C& \5 [$ S: P* b$ s(defun findtag (tagmark)
8 U$ o6 ?) u' p# b" y& E  (setq kdat(open kkdat "r"))
0 e) ?. g; Z) V0 ?$ E3 V (while(setq kdatread (read-line kdat))
   (if(/=" "(substr kdatread 1 1))
! e8 [' J) D2 L4 T: P    (if(= kdatread tagmark)(progn
(setq kai nil)                             
(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
6 Q: S9 L; ~2 U   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
  (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)))
(Setq pwk(vl-string-search " " kdatread))
  (setq textin (strcase (substr  kdatread 1 pwk)));文字插入点
  f) p+ H  t0 j* K+ E(if (= textin "CEN")(setq textin  circen));如果为CEN为圆心
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
" K& F+ |# Q% o+ ?  (setq textt (strcase (substr  kdatread 1 pwk)));文字
(setvar "clayer" cirlayer)
: a# a, ~, I, I% x8 l: ]- \% S(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
        ));(if (= comma "TEST")(progn

( X5 G! G+ {7 ]& w  (if (= comma "LINE")(progn
5 H% [% [" H8 g0 Z/ s  l: R        (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
(setq linep1 (polar circen (angtof lineang)  Rcir));起点
1 Y. @% {8 G6 T- D       
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  o" m9 X( o1 ~  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
% a+ P% f9 `8 W(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
. W7 Q  I, h2 A, _ (setvar "clayer" cirlayer)
0 y6 z4 y" q! w! Q* M& [4 L# j4 c! A(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
' v6 v; Q, ]* a# e. x! @+ L# n  c7 @        ));(if (= comma "LINE")(progn
6 q+ o) D' Z- V  q; v1 r  U3 A
  (if (= comma "HATCH")(progn
& `& {& p# O  A  m2 b% U$ Q6 g
                         
        ));(if (= comma "HATCH")(progn
) a9 Q( C& Z+ T. o9 }. r
& S" i/ C3 V2 a: V( s" \0 D! J    (if (= comma "CIRCLE")(progn
9 }) Y9 R# o' E: n
" h# N+ c# l5 d4 Z5 H) L                         
        ));(if (= comma "CIRCLE")(progn
  
  
" Y  K0 G( a9 z3 e: R; @  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
                             
0 ?# ?& c; S$ f5 O% |                             
      ));;(if(= kdatread tagmark)(progn
     );;(if(/=" "(substr kdatread 1 1))
   
& U* L1 b: O! H" C    );;;(while(setq kdatread (read-line kdat))
  
  (close kdat)
  );end