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

mouse-net

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

newdhj

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

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

mouse-net

谢谢newdhj 的答复。
7 b* \' d4 A# o8 q( T8 D) S肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。
2 s. u8 x; A2 ]0 Z7 k& @% D
[ 本帖最后由 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"))))))
(setq ss@len(sslength ss@SS))
4 a* H' ]) G% w5 ^% w) A. w(setq @k 0)
(while(< @k ss@len)
(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
3 ~9 r# U0 D) T5 F  (setq  my_tag(car(cdr(cdr(car data_i)))))
# A0 p+ }7 d9 C9 L (if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
/ s8 D  ~  C) {1 X* _1 I  (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
6 K9 ]# T' s3 L* |- c5 n(setq circen(cdr(assoc 10 elss)));;圆心
( k/ q4 P. \# _: ?# ~: R. t(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
3 ?6 J/ H) H6 @+ e2 S
  
  (findtag tagmark)
  
  ));;(if my_tag(progn
- ?, L4 M  {0 w+ V: [( n/ P  (setq @k(+ @k 1))
  );;(while(< @k ss@len)

  (princ)
% D% I, O) H" N7 T  );end

7 W; ]  |7 J7 b2 I+ E: Z. @; U

6 O: s) g: }$ `% o/ {' D. E

3 J9 r! t' g# @6 J! P


$ \( g$ ?+ a8 ?1 c' E;;功能  
; a/ U& X* B- H5 f0 j7 L' `4 v;;获取附着在AutoCAD对象上的扩展图元数据  
. Y) N5 x& g2 [;;语法  
1 T7 i, D6 @3 {# h' `6 O3 \' }! a+ e( s8 Y;;(ax:GetXData Obj AppID)  
8 C+ G* Q* ]7 \" g$ G6 l+ n0 B;;参数  
;;obj:图元名
' a$ s% [, S( };;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
;;返回附着到对象上的扩展图元数据列表  
$ H1 H% i8 f# ^( l- Z! L4 m- d;;如：  (("south" (1000 . "204201") (1040 . 1.0))
1 H- y5 r( T! w; }! N5 |/ G;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
6 R% M) B4 _2 N, C2 l9 t8 H3 E;;      )
;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
8 U' G5 {$ g2 A(defun xl:GetXData
       (Obj AppID / data n i  k i_k data_k temp1 temp2)
  (setq data_i nil)
% S2 Q( ~- z$ ^! l+ C  R2 @- R& S* I  (setq data (cdr (assoc -3 (entget obj appid)))
+ l: b- o" ~: X) C n    (length data)
i    0
  )
3 I; g4 m0 U- U  (repeat n
    (setq temp1  (nth i data)
   data_k (list (car temp1))
   temp1  (cdr temp1)
" }# E/ Y1 F1 b* H! m( T   k  (length temp1)
% E" q2 W; F$ [   i_k  0
    )
4 D( j- M3 s# {; D& H" G- N( n) _4 `    (repeat k
% t9 @/ a  A* u      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
      )
      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
0 a! P3 `  N( q3 b' c4 c7 m# U   )
# s- Q0 V; s/ K" V  [4 i5 _ (setq data_k (append data_k (list temp2)))
% Q# S; \( O' A      )
    )
    (setq data_i (append data_i (list data_k))
& m" ^6 l" E) Z! H   i  (1+ i)
    )
% ^: g5 ?5 _+ `5 N6 j! B2 `  )
! i4 i) b" G' \. }4 ]* Z  data_i
! b9 {, i) I4 E1 T% e  i)

2 j% R# z/ b) @
  M( O, ^1 K; W8 w. @- W

+ M2 E: `/ L# w; `4 y(defun findtag (tagmark)
5 h+ J! z) y$ {. d  (setq kdat(open kkdat "r"))
(while(setq kdatread (read-line kdat))
   (if(/=" "(substr kdatread 1 1))
# M2 c2 d- p3 P7 {+ b    (if(= kdatread tagmark)(progn
(setq kai nil)                             
' k  C7 x: r' P' U5 V' x% K" A(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
6 V0 [2 Y8 Q+ j! ^2 g7 u   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
/ C* L+ r, p4 ^: T+ e  (setq kdatread(substr kdatread 2 ))
  (Setq pwk(vl-string-search " " kdatread))
  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (if (= comma "TEST")(progn
. L& n5 d( `, z1 O8 H(setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
" C0 v* K" t# u3 n' a! d  (setq textin (strcase (substr  kdatread 1 pwk)));文字插入点
# o: _$ m3 {8 u% J* A% H! |+ M(if (= textin "CEN")(setq textin  circen));如果为CEN为圆心
  (setq kdatread(substr kdatread (+ pwk 2)))
; d- f" E4 [" S8 @(Setq pwk(vl-string-search " " kdatread))
  (setq textt (strcase (substr  kdatread 1 pwk)));文字
$ i) ~  W& F6 R4 i (setvar "clayer" cirlayer)
(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
        ));(if (= comma "TEST")(progn
" m. o( x8 q* T8 K# {
  (if (= comma "LINE")(progn
        (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
; _, r! S1 _0 j3 |# F6 d  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
& X' h( m, D5 u. ?+ g (setq linep1 (polar circen (angtof lineang)  Rcir));起点
       
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
, M/ p. v: i- A  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
4 i) J+ I7 ?% v  D9 e (setvar "clayer" cirlayer)
(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
( s4 V: u8 y0 V& U2 u6 D# L        ));(if (= comma "LINE")(progn
4 X0 O7 K# {$ j+ Y
  (if (= comma "HATCH")(progn

, A3 e7 b6 T0 ?1 N                         
        ));(if (= comma "HATCH")(progn
! k9 J, c: y0 g! @: ?4 S
    (if (= comma "CIRCLE")(progn

5 R3 [2 A7 R0 I6 X. I                         
+ u5 e8 Z- L" r        ));(if (= comma "CIRCLE")(progn
  I* K* m# Z6 x3 [  
  
  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
                             
                             
      ));;(if(= kdatread tagmark)(progn
' D9 @0 P' I5 {, F' _     );;(if(/=" "(substr kdatread 1 1))
   
    );;;(while(setq kdatread (read-line kdat))
7 N# L, N9 J$ D' S0 j3 ^  a0 S  
  (close kdat)
: a# j) Q! @4 y  );end