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

mouse-net

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

newdhj

用不到什么程序的，只要在标注样式里设置一下，在标注时就有公英制双尺寸显示了
你这个“C0.125(英寸)，”也有错误，一般英制是用分数表示的
; u9 l0 l* F4 b1 ^1 g
, v3 @5 D% ~. @& a[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
" Z" e* r3 `& Q6 W/ u肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的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))
  T5 K# I  g' R: |/ u(setq @k 0)
(while(< @k ss@len)
(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
  (setq  my_tag(car(cdr(cdr(car data_i)))))
" y( L& b7 S% V( s1 I (if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
3 S6 A4 \: s/ U( I) [  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
( T4 Z, b2 o. M( L7 q4 c  (setq elss(entget ssn))
(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
(setq circen(cdr(assoc 10 elss)));;圆心
8 H6 I, p$ K1 [(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

  
! w/ P, P& r2 w1 k9 C" t  (findtag tagmark)
  
2 x( L5 |) u$ G+ a  ));;(if my_tag(progn
  (setq @k(+ @k 1))
  );;(while(< @k ss@len)

; A# H! ?- I4 o  (princ)
  );end

3 k( b( h. S9 `

; Z0 J4 m& @1 a, r
2 z) q8 F6 W- X6 a


; |9 j/ l9 f* |$ |' K8 o' e4 L; ]* S) Y
- O9 V, _" e  t  {6 X- O2 z;;功能  
;;获取附着在AutoCAD对象上的扩展图元数据  
;;语法  
;;(ax:GetXData Obj AppID)  
;;参数  
( W+ K# Q1 H- I' _$ M2 Z. S% n;;obj:图元名
;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
;;返回附着到对象上的扩展图元数据列表  
9 L' U( C- ?: a;;如：  (("south" (1000 . "204201") (1040 . 1.0))
6 m. r6 X' D5 d7 Y, X;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
: J. W1 ]: J+ r& Q2 t;;      )
;;样例  
- Q; @7 l! _8 D# T;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
+ n, J0 E2 Q( R0 ^# ?$ N(defun xl:GetXData
       (Obj AppID / data n i  k i_k data_k temp1 temp2)
1 S, s* E7 \2 I- e1 |  (setq data_i nil)
  (setq data (cdr (assoc -3 (entget obj appid)))
n    (length data)
i    0
' P" _8 k* k8 u$ {2 J% U( Q3 {  )
0 H$ v/ r. y/ H6 @( r5 ?' A, k7 `# N  (repeat n
    (setq temp1  (nth i data)
   data_k (list (car temp1))
   temp1  (cdr temp1)
   k  (length temp1)
   i_k  0
    )
' Q7 \8 ~! K/ g' U7 Y    (repeat k
      (setq temp2 (nth i_k temp1)
+ c) z9 G! z. o0 D% X7 H     i_k   (1+ i_k)
      )
      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
   )
(setq data_k (append data_k (list temp2)))
      )
    )
" r# G+ l2 W0 s# x) e    (setq data_i (append data_i (list data_k))
* U9 b* m3 y2 g  o6 _2 n: u9 J  E   i  (1+ i)
! h$ y: y2 _5 v" D' S    )
  )
  data_i
)
- B, D7 H4 g8 Y8 Y& P4 C$ y% B6 D
% @  z6 [' ~% u7 a& ?* h8 |- Z7 C


(defun findtag (tagmark)
  (setq kdat(open kkdat "r"))
; r2 g, i8 A' b' @! L* p' | (while(setq kdatread (read-line kdat))
! B0 o8 f7 ^, t/ L6 x7 I* w   (if(/=" "(substr kdatread 1 1))
    (if(= kdatread tagmark)(progn
3 ^! z( J, |; d# h! j(setq kai nil)                             
(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
9 Z- X! J9 d. b0 P) f$ Z   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
' D3 g) P4 u! d, R2 j5 U1 }  (setq kdatread(substr kdatread 2 ))
) P1 r( N! X. {* O& n& I" J  (Setq pwk(vl-string-search " " kdatread))
- O- q2 Q6 c$ G$ S+ j  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (if (= comma "TEST")(progn
(setq kdatread(substr kdatread (+ pwk 2)))
6 R, }7 m+ f/ u: O+ x6 w(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)))
7 x) Y0 o: l$ Q7 |(Setq pwk(vl-string-search " " kdatread))
  (setq textt (strcase (substr  kdatread 1 pwk)));文字
(setvar "clayer" cirlayer)
9 c; N0 Q6 _/ @5 J  K, `(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
        ));(if (= comma "TEST")(progn
, Q" }7 V7 t& `' q9 ^1 [; g
( q: r1 H7 E  m  (if (= comma "LINE")(progn
/ i/ y6 b, E& ]3 H: U1 p        (setq kdatread(substr kdatread (+ pwk 2)))
6 q. q, G% A! _: ^2 }2 X5 r9 E( d(Setq pwk(vl-string-search " " kdatread))
  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
5 m9 r  n8 h4 D" ]' [ (setq linep1 (polar circen (angtof lineang)  Rcir));起点
0 T: n: f6 T' A# X3 K       
$ N9 z6 _+ n. B4 J, G* Y+ h  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
/ c- a/ D2 I+ Q) s4 G; {  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
/ u8 i8 j1 y  D6 X4 {, Y8 e8 ?  y% \(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
; w6 D! P  {  b7 [) G4 o- ]  \- ] (setvar "clayer" cirlayer)
(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
7 |( F* t7 T5 P" y. y. y( b        ));(if (= comma "LINE")(progn

  (if (= comma "HATCH")(progn
, @5 \5 ^7 u1 p+ {! s* l% `! @
. E$ n9 z' l; {" W                         
        ));(if (= comma "HATCH")(progn

    (if (= comma "CIRCLE")(progn
; e' u" b+ C2 s& f4 @
# S  S, |. i, ~                         
" E- S1 W6 {* C) t1 i        ));(if (= comma "CIRCLE")(progn
" c, E6 t5 _, f; s9 x( s; I, r  
0 G. c( v) Z1 F9 v, S  
( Z$ k) s% a- C6 X  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
                             
/ S9 ~6 {2 q: H" V, F3 I                             
      ));;(if(= kdatread tagmark)(progn
     );;(if(/=" "(substr kdatread 1 1))
   
    );;;(while(setq kdatread (read-line kdat))
  
  (close kdat)
+ P- E# \4 i7 Z  );end