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

mouse-net

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

newdhj

用不到什么程序的，只要在标注样式里设置一下，在标注时就有公英制双尺寸显示了
, \9 e2 Y1 y2 X, b0 S5 P你这个“C0.125(英寸)，”也有错误，一般英制是用分数表示的
0 x1 S" s7 p9 P( E, Q
. J. X  @7 f8 Y[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
1 z; g" I% g4 S8 j$ m肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的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"))))))
(setq ss@len(sslength ss@SS))
1 s. K' @7 q7 a(setq @k 0)
(while(< @k ss@len)
(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
' P: k7 E1 k4 x8 T  (setq  my_tag(car(cdr(cdr(car data_i)))))
% H) C8 E6 O: m% J, F) |+ D& E (if (/= "org"(cdr my_tag ))(progn
' ?9 Y: \/ A! s1 b4 p% w+ r% n4 i  (setq my_tag(cdr my_tag))
  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
) \% T! H# p# t  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
  (setq elss(entget ssn))
4 K+ F& s! O) E' L- u" ^(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
8 S% }6 P8 ?: k! F7 _- X(setq circen(cdr(assoc 10 elss)));;圆心
* @  r# m  _. }* P+ u$ h# B# z; ^" [3 Q(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
* D# u, S* v' g0 p                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

  
  (findtag tagmark)
  
8 j' J% R' J3 k7 v7 n  ));;(if my_tag(progn
( D7 R* J% s" P- ^  (setq @k(+ @k 1))
7 t& P: v& i' L; F* d! I; ]; L9 @) Z  );;(while(< @k ss@len)

  (princ)
  );end

/ Q7 I1 V3 d* f. D' H
5 E- F- v6 \3 p



) \% x' S, h" J) m( X

;;功能  
;;获取附着在AutoCAD对象上的扩展图元数据  
;;语法  
& K. Q- g  ]# M/ F9 N;;(ax:GetXData Obj AppID)  
. N7 g! a2 C- a# f;;参数  
;;obj:图元名
# ~5 K8 v' T* c6 _$ K;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
) }4 N) d2 w. d' K8 A1 s1 d  |% };;返回值  
;;返回附着到对象上的扩展图元数据列表  
;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
. {0 Q6 J. V  H& m;;       ("BBBB" (1000 . "bbbbbbb"))
% S7 l* P% O! A6 [! O;;       ("CCCC" (1041 . 752.569))
( w7 a' h+ o! z! _* j" P;;      )
! P; l* c# ]/ L3 [: B' V' m# T;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
& Y3 z/ O1 j- K, Y1 C; \(defun xl:GetXData
       (Obj AppID / data n i  k i_k data_k temp1 temp2)
( [' u7 U  X( T! R- g* W  (setq data_i nil)
  (setq data (cdr (assoc -3 (entget obj appid)))
0 ^2 h) B) G2 m: P+ k) a n    (length data)
i    0
# Z8 {% ~" S0 \, @' f( C  )
, p5 C1 E5 n- R+ P  (repeat n
1 E6 F8 [  U4 T    (setq temp1  (nth i data)
; i2 z( L/ `2 y8 f   data_k (list (car temp1))
   temp1  (cdr temp1)
   k  (length temp1)
   i_k  0
    )
; \' T) D# r( S# ?. J+ J% }! |    (repeat k
! w  h- x: k9 m1 N. b4 V& w! ^      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
8 _% n& B, T2 [: [2 q6 m3 r6 M      )
# t' o; q) P; G. `1 \      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
! ]- z1 E5 F( |# U   )
(setq data_k (append data_k (list temp2)))
      )
' w- [" }: k: V$ Z. s; Y    )
, o6 e% t3 k8 p0 A5 v    (setq data_i (append data_i (list data_k))
   i  (1+ i)
" ], o: k( s: U) T8 Z$ [2 q2 w% y* _- f    )
3 `: b3 M2 m7 }7 j4 y. j2 a: N  )
  data_i
  E9 _, o" j9 F: o6 Y* v)
. m, b" |+ d: ^: z. a
* k1 J) U" f' D) F" e! \

8 A  t9 I; o9 Y3 f- \' ]
  O# X1 V- ?, D(defun findtag (tagmark)
. f) `, _7 m4 j, J  ^5 J  (setq kdat(open kkdat "r"))
(while(setq kdatread (read-line kdat))
2 X1 P: E$ f6 K3 ^  f7 Y   (if(/=" "(substr kdatread 1 1))
' G. t5 Z3 A9 O) i: Y    (if(= kdatread tagmark)(progn
(setq kai nil)                             
* k4 g: M: `4 m) a1 @(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
/ B8 ^1 e/ e' `9 w; {6 a" N   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
  (setq kdatread(substr kdatread 2 ))
& S) s8 Z8 d, a  (Setq pwk(vl-string-search " " kdatread))
  U5 \! y" c% P; m, z  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (if (= comma "TEST")(progn
(setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
8 n4 e0 x8 E7 U* b  (setq textin (strcase (substr  kdatread 1 pwk)));文字插入点
& T+ x2 Z( ^% e* A2 F) [(if (= textin "CEN")(setq textin  circen));如果为CEN为圆心
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
8 u8 H0 J, Z' j" d; C+ m  (setq textt (strcase (substr  kdatread 1 pwk)));文字
(setvar "clayer" cirlayer)
(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
        ));(if (= comma "TEST")(progn

  (if (= comma "LINE")(progn
        (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));起点
% A! ]  i: z$ l4 L! [       
- P$ V; k" u. v& d% N/ r, x% D  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
: w) @, w, j# ]2 Y1 O(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
(setvar "clayer" cirlayer)
(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
        ));(if (= comma "LINE")(progn

) a) u+ H, h2 F+ ]0 P, K( S5 \" ]  (if (= comma "HATCH")(progn

+ S# L% p% c& [                         
- x5 E. @8 `5 H        ));(if (= comma "HATCH")(progn

" X; w4 H$ X1 q    (if (= comma "CIRCLE")(progn

                         
        ));(if (= comma "CIRCLE")(progn
  
  [  G$ x/ h) k2 {  
/ ~9 B% N/ W2 R. a9 j  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
                             
2 F) J8 b& `' D$ T; o  a                             
9 o+ r% w/ y( e; s2 t5 g      ));;(if(= kdatread tagmark)(progn
     );;(if(/=" "(substr kdatread 1 1))
! h6 h# p3 K. L" L* V  D1 m4 W   
% v9 V( X0 S5 t. b    );;;(while(setq kdatread (read-line kdat))
  
  (close kdat)
  );end