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

mouse-net

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

newdhj

用不到什么程序的，只要在标注样式里设置一下，在标注时就有公英制双尺寸显示了
( g( x5 P/ Y) \6 g, f. U" j你这个“C0.125(英寸)，”也有错误，一般英制是用分数表示的
8 L0 q/ q) n* j, \; i. w' Y
* w: V) W0 n8 l" H$ ]5 U# H[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。
# E: l8 l; {( x  }, ~* ^2 N1 Y
[ 本帖最后由 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))
! A; V, u- l/ n$ V6 w, \(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)))))
(if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
2 h9 D2 }! t' _3 c  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
5 C1 K2 w6 L# s0 Z5 q  (setq elss(entget ssn))
(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
(setq circen(cdr(assoc 10 elss)));;圆心
. C" E$ R7 A% |& ~1 z, G) Y  M9 I( K(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
                                    
  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

- q" C7 R" G/ g  
  (findtag tagmark)
( F3 w4 Q8 w7 o  
# p! _  u, \1 a$ l  ));;(if my_tag(progn
  (setq @k(+ @k 1))
* Y  O# {! c3 T  );;(while(< @k ss@len)

  (princ)
- B0 J, B! j! [0 z# s( s  );end

" R" {8 G( ?; ]  }2 B) h
2 [; I: F% s' L$ U7 o: Y
7 _! m% M/ m; e
  c: k" s) I- t9 r


- B) R  |6 U' t% m- {
' v' p: i; E& \' T5 d;;功能  
;;获取附着在AutoCAD对象上的扩展图元数据  
;;语法  
;;(ax:GetXData Obj AppID)  
;;参数  
* j% n) e7 i, [6 ^;;obj:图元名
# ]' {2 M0 F: g! }/ I2 L;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
;;返回附着到对象上的扩展图元数据列表  
;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
$ J/ ~' q5 b0 u, T;;       ("BBBB" (1000 . "bbbbbbb"))
5 @% k) r8 R# _;;       ("CCCC" (1041 . 752.569))
;;      )
/ T* y' e9 ]- }6 V5 C% n;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
# x4 m: i- s& A' G: w( {$ J( _(defun xl:GetXData
       (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)
/ p1 L- t* u+ `# ]# m/ f i    0
" W) a" k: @2 q% ^2 K) |# s  )
  (repeat n
    (setq temp1  (nth i data)
0 O- @- \$ _$ _% S- A2 m   data_k (list (car temp1))
6 w0 v3 \) [/ ?5 M; w% ?0 j9 ~   temp1  (cdr temp1)
   k  (length temp1)
   i_k  0
    )
    (repeat k
. {7 Y: d0 h3 f5 a7 R$ I4 U      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
      )
  ~5 h( P1 @2 t  a$ X8 m      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
1 ~. v4 u& W) v. W4 R   )
9 o$ L& I9 f6 I" ~: \6 Y' D4 l+ y (setq data_k (append data_k (list temp2)))
) B# z1 g: r4 e# G/ V. S5 r      )
    )
    (setq data_i (append data_i (list data_k))
   i  (1+ i)
, \* x5 y0 Z* t* m4 L- m6 n! a    )
3 ?# t+ C3 P. |2 r  )
+ u0 L$ o& x. s' p3 M& T$ l, e  data_i
)
* M, i9 ?' k0 v, Q. @  b$ T' b1 \



: m( K8 _- p5 C: ]5 M# b/ X# {4 E(defun findtag (tagmark)
  (setq kdat(open kkdat "r"))
" s# L* _( X' m* E7 D( ~ (while(setq kdatread (read-line kdat))
1 W5 X0 i7 M, s   (if(/=" "(substr kdatread 1 1))
& Y* R. l) b+ U# y/ E) [    (if(= kdatread tagmark)(progn
3 J* L' T( C5 z( T- k- d' D/ e(setq kai nil)                             
(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
  (setq kdatread(substr kdatread 2 ))
  (Setq pwk(vl-string-search " " kdatread))
6 n3 v8 C+ k% u8 x8 {  n  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (if (= comma "TEST")(progn
0 Z* X: L. k0 _! a% N" f, Y6 z" H3 ~(setq kdatread(substr kdatread (+ pwk 2)))
" O5 N3 A# E1 G7 J+ S) F! o' ~(Setq pwk(vl-string-search " " kdatread))
  (setq textin (strcase (substr  kdatread 1 pwk)));文字插入点
" C$ P: t6 V$ @6 ^7 E; M(if (= textin "CEN")(setq textin  circen));如果为CEN为圆心
) V- H$ W' e3 q! V: e. y  (setq kdatread(substr kdatread (+ pwk 2)))
8 H( o9 x5 r' T0 s(Setq pwk(vl-string-search " " kdatread))
3 @0 r6 T5 ]4 {4 J2 y  (setq textt (strcase (substr  kdatread 1 pwk)));文字
, y, E; n# ]1 {, ^# d  W (setvar "clayer" cirlayer)
- j# D; \. S, ^; T1 l(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
8 l3 w/ l$ C+ x* \& y* {* j" q5 H        ));(if (= comma "TEST")(progn

0 l* v" Z9 F  l" j  (if (= comma "LINE")(progn
        (setq kdatread(substr kdatread (+ pwk 2)))
/ t- f/ n  r$ [; I1 ^. C5 p5 B; ~$ A(Setq pwk(vl-string-search " " kdatread))
0 r# D, H3 i- O4 K8 d' z* b  (setq lineang (strcase (substr  kdatread 1 pwk)));起点
(setq linep1 (polar circen (angtof lineang)  Rcir));起点
+ Z' H5 N% M9 P$ Y" j       
1 m8 ^5 q1 s0 g2 j+ N: a9 j  (setq kdatread(substr kdatread (+ pwk 2)))
% w& f$ N/ `! Z5 R9 D& i(Setq pwk(vl-string-search " " kdatread))
  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
(setvar "clayer" cirlayer)
6 r* g$ |$ \2 m; p/ @- H/ o+ P, m(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
) V/ n5 \% ~7 @5 l$ }) t5 e3 \        ));(if (= comma "LINE")(progn

! z0 s5 u2 e9 `7 y% t  D2 o  i( ]  (if (= comma "HATCH")(progn
- P1 Z+ I( B* o6 G+ f
7 W1 h' n/ i$ |/ ?$ @* n                         
        ));(if (= comma "HATCH")(progn
: e6 z6 ^/ H3 a) T
    (if (= comma "CIRCLE")(progn
+ ~: n  h  q, T7 E: f
3 x$ \, g. Z1 c. [- U                         
, O+ D7 Y( t7 L        ));(if (= comma "CIRCLE")(progn
- O& ?$ ?1 p& [* M( E  
  
) I) v, }+ k! U0 S0 E) e/ s' p  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
                             
9 `8 g1 x- \: P# I+ v, g! ~                             
      ));;(if(= kdatread tagmark)(progn
" s7 W% a6 o. {% T/ W     );;(if(/=" "(substr kdatread 1 1))
   
0 X) O& J' [8 }: }9 H# G    );;;(while(setq kdatread (read-line kdat))
, q  o3 D+ h9 r% a$ }9 G  
, h! Q! a6 V* k' b9 M$ c  (close kdat)
  );end