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

mouse-net · 发表于 2008-8-10 19:11:08

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

newdhj · 发表于 2008-8-10 19:30:16

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

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

mouse-net · 发表于 2008-8-11 13:07:18

谢谢newdhj 的答复。
肯恩是我没有所清楚，我是在标注模板坐标时出现这个问题。模板的XY坐标标出来后，跟模板就没有关联性了。换句话说，标出来的就是一对文字，不是尺寸了。所以没有办法从设置里面更改。（这个软件是个外挂）。

[ 本帖最后由 mouse-net 于 2008-8-11 13:19 编辑 ]

ysryc99001 · 发表于 2010-10-14 16:49:49

我有一个发给大家学习学习(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))
(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))))
  (setq tagmark(substr temptag 1 (vl-string-search  " " temptag)))
  (setq elss(entget ssn))
(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn
(setq circen(cdr(assoc 10 elss)));;圆心
(setq Rcir(cdr(assoc 40 elss)));;半径
(setq cirlayer(cdr(assoc 8 elss)));;图层

  ));;(if(= "CIRCLE"(cdr(assoc 0 elss)))(progn


  (findtag tagmark)

  ));;(if my_tag(progn
  (setq @k(+ @k 1))
  );;(while(< @k ss@len)

  (princ)
  );end

;;功能
;;获取附着在AutoCAD对象上的扩展图元数据
;;语法
;;(ax:GetXData Obj AppID)
;;参数
;;obj:图元名
;;appid:AutoLISP函数REGAPP注册的应用名,如为("*")则返回全部XDATA，如为("AAA" "ACAD")则返回两个程序的数据
;;返回值
;;返回附着到对象上的扩展图元数据列表
;;如：  (("south" (1000 . "204201") (1040 . 1.0))
;;    ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
;;    ("BBBB" (1000 . "bbbbbbb"))
;;    ("CCCC" (1041 . 752.569))
;;    )
;;样例
;;(xl:GetXData myVlaObj '("*")) 或 (xl:GetXData myVlaObj '("AAA" "ACAD" "my_tag"))
(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)
i 0
  )
  (repeat n
(setq temp1  (nth i data)
data_k (list (car temp1))
temp1  (cdr temp1)
k  (length temp1)
i_k  0
)
(repeat k
   (setq temp2 (nth i_k temp1)
   i_k (1+ i_k)
   )
   (if (and (not (equal temp2 '(1002 . "{")))
      (not (equal temp2 '(1002 . "}")))
)
(setq data_k (append data_k (list temp2)))
   )
)
(setq data_i (append data_i (list data_k))
i  (1+ i)
)
  )
  data_i
)

(defun findtag (tagmark)
  (setq kdat(open kkdat "r"))
(while(setq kdatread (read-line kdat))
(if(/=" "(substr kdatread 1 1))
(if(= kdatread tagmark)(progn
(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))
  (setq comma (strcase (substr  kdatread 1 pwk)));变大写
  (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为圆心
  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (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));起点

  (setq kdatread(substr kdatread (+ pwk 2)))
(Setq pwk(vl-string-search " " kdatread))
  (setq lineang2 (strcase (substr  kdatread 1 pwk)));端点
(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

  (if (= comma "HATCH")(progn


));(if (= comma "HATCH")(progn

(if (= comma "CIRCLE")(progn


));(if (= comma "CIRCLE")(progn


  );;;(while (=" "(substr (setq kdatread (read-line kdat)) 1 1))


   ));;(if(= kdatread tagmark)(progn
   );;(if(/=" "(substr kdatread 1 1))

);;;(while(setq kdatread (read-line kdat))

  (close kdat)
  );end

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

[讨论] Lisp 编程完成英制转换为公制

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

浏览过的版块