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

mouse-net

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

newdhj

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

7 S. E$ n1 d& C' `  y% R( y[ 本帖最后由 newdhj 于 2008-8-10 19:32 编辑 ]

mouse-net

谢谢newdhj 的答复。
& x% S4 N: b3 a" @- \0 ^: r肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。
2 [6 E! b$ U0 B! W8 _: _9 O0 E
[ 本帖最后由 mouse-net 于 2008-8-11 13:19 编辑 ]

ysryc99001

我有一个发给大家学习学习(defun c:inm()
& r% p% ]+ \1 X: w2 M' _1 x(setq kkdat(findfile(strcat way"\\dat\\TAGMARK.kdat" )))
/ X; y0 |; P0 t(Setq ss@SS(ssget(list(cons -3 (list(list "my_tag"))))))
(setq ss@len(sslength ss@SS))
$ Z; z, Y5 K; t; T7 a2 m$ _/ S(setq @k 0)
(while(< @k ss@len)
(xl:GetXData (setq ssn(ssname ss@SS @k)) '("my_tag"))
. Y, @5 l7 e7 ]! Y  H  (setq  my_tag(car(cdr(cdr(car data_i)))))
9 O4 c) Q; |. z. v" d  Z6 s (if (/= "org"(cdr my_tag ))(progn
  (setq my_tag(cdr my_tag))
& ^' S* m% m! w, A1 }  (setq temptag(substr my_tag (+ 2(vl-string-search  " " my_tag))))
2 y3 E$ }: i/ T( O  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
8 u* e  y! Q  c+ |( g  (setq elss(entget ssn))
" R, j5 y2 O% `+ ~" ~0 D# Y(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
& E+ A! C) v: H, ^' J' I(setq circen(cdr(assoc 10 elss)));;圆心
7 F9 [7 ?+ C( }# K  I+ [(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层
$ n  N! a2 B4 a6 a' \                                    
+ |4 _. E; K7 n7 P! Z, [8 `  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn

  
: U( E3 b( E* T6 R6 M  (findtag tagmark)
  
$ |; F/ d! i' c( s$ M% f2 w  ));;(if my_tag(progn
( Z, `; \6 d# l  G& D  (setq @k(+ @k 1))
  );;(while(< @k ss@len)

  (princ)
  );end
- u! }( n1 Y) [
' N8 W/ d4 S* j% I5 s! Z- X% m



+ a. x2 a6 I3 r9 t* [3 c& T7 g
8 V3 ?) r! a. H. {
( z* M% Q, }5 K: \3 q
;;功能  
;;获取附着在AutoCAD对象上的扩展图元数据  
* G6 ~4 A# i( r;;语法  
: E; D1 ^5 j: _" L2 @$ u; a9 d;;(ax:GetXData Obj AppID)  
;;参数  
;;obj:图元名
;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值  
. L. e: Z6 C3 p$ Q, U;;返回附着到对象上的扩展图元数据列表  
;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
) d# Y& r, {* x;;      )
3 g2 l. i' Y& S9 H;;样例  
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
(defun xl:GetXData
; {) D" }: q7 Y8 Y* R       (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)
4 J' Q' Q( \- U2 Y( g4 f# } i    0
  )
7 p0 ^2 d- c7 V1 p( T  (repeat n
5 M/ R8 \( N  P    (setq temp1  (nth i data)
) s  M3 N" u- k& I. y6 l" Z   data_k (list (car temp1))
4 K. H" ~) E/ O/ g   temp1  (cdr temp1)
   k  (length temp1)
   i_k  0
5 h) ]: ~/ m1 ~6 k. h7 ]    )
, R; [* `, _8 [4 R7 p    (repeat k
      (setq temp2 (nth i_k temp1)
     i_k   (1+ i_k)
      )
      (if (and (not (equal temp2 '(1002 . "{")))
        (not (equal temp2 '(1002 . "}")))
   )
0 y* c, Z4 h/ ~, c! O4 S (setq data_k (append data_k (list temp2)))
  ]- E  I, Z/ W$ E; O      )
    )
! V6 n4 M; ]0 k3 {! i. T8 }    (setq data_i (append data_i (list data_k))
; n8 Z. y, g- X0 \   i  (1+ i)
1 |# U0 z0 u# g- F( D( D6 i    )
6 }. Q6 g$ r: s. P* D3 _5 N9 x  )
  data_i
+ ]5 S6 T8 }$ b, g)



4 u3 u7 o8 a' E$ F/ Y# U% h3 q
(defun findtag (tagmark)
, u5 O. g8 h4 Q$ c- P2 a7 |- |  (setq kdat(open kkdat "r"))
( H3 R# y9 d" g; d: w& B (while(setq kdatread (read-line kdat))
   (if(/=" "(substr kdatread 1 1))
    (if(= kdatread tagmark)(progn
: ~" s- O6 q& A' j& ^(setq kai nil)                             
(while (and (/= kai 1)(setq kdatread (read-line kdat))) ;运行下面的
. c* H. y* q7 a0 b   (if(/=" "(substr  kdatread 1 1))(setq kai 1))
  (setq kdatread(substr kdatread 2 ))
( o, }+ D  `. n3 L  (Setq pwk(vl-string-search " " kdatread))
  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
# u# U* p% Z: T1 _5 R7 z0 _4 V  (if (= comma "TEST")(progn
(setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq textin (strcase (substr  kdatread 1 pwk)));文字插入点
(if (= textin "CEN")(setq textin  circen));如果为CEN为圆心
/ N- i; E3 O% D+ v3 b& C  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
/ U: s4 q4 j8 z6 K- v  (setq textt (strcase (substr  kdatread 1 pwk)));文字
(setvar "clayer" cirlayer)
) z% K* }" v; g4 x; l( {' `(vla-Addtext mspace textt(vlax-3d-point textin)2.5);写文字
        ));(if (= comma "TEST")(progn

8 `6 ]0 s& p! ^  (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));起点
# d1 {1 L; d5 p0 r' s. E% M       
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
) j+ p( a8 X& f$ A* w; s(setq linep2 (polar circen (angtof lineang2)  Rcir));端点
; R! {, `! f7 _  }; | (setvar "clayer" cirlayer)
* j9 ]8 L+ ]6 v" J(vla-Addline mspace (vlax-3d-point linep1)(vlax-3d-point linep2));画线               
2 X" n' u6 z/ c3 j9 M3 _        ));(if (= comma "LINE")(progn

  (if (= comma "HATCH")(progn
- Q' p/ n! X  s0 o9 F0 v/ i
' H4 D( q. i) L; m) `! ^2 d! l                         
        ));(if (= comma "HATCH")(progn
# I2 @+ x( W7 m5 y
    (if (= comma "CIRCLE")(progn

; V3 \$ ]2 s1 n6 @                         
        ));(if (= comma "CIRCLE")(progn
, R2 m$ `* K1 H1 Y3 w  
  
% U% f4 V( _7 X  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))
& x5 w' H* i( [9 M3 J! Z1 c- |                             
                             
. U& R  I- D6 _$ p$ b      ));;(if(= kdatread tagmark)(progn
% R0 O9 Y0 U- T' d9 y     );;(if(/=" "(substr kdatread 1 1))
" O) z- p, j  _$ s9 d9 _" F   
    );;;(while(setq kdatread (read-line kdat))
  
  (close kdat)
  D6 ]. q. z9 A: O& y2 i! \8 ?  );end