请教一下关于文件选取的问题。

alwaysbin · 发表于 2004-8-6 01:16:00

请教一下关于文件选取的问题。
比如我有2组文字，第一组为“2C14+2C20;2C25”，第二组为“;4C25”，我分别点取这两组文字，C为符号，在第一组中，我如何分别得到分号前面的数字的和？
比如，a1＝2×14+2×20 a2＝2×25，就是说按分号断，前面和后面的数字分别求和。
谢谢各位大侠！

meflying · 发表于 2004-8-6 09:15:00

(setq a (vl-string-subst " " ";" "2C14+2C20;2C25"))
(setq a (strcat "(" a ")"))
(read a)

alwaysbin · 发表于 2004-8-6 12:25:00

我是在R14里面用，用vl好像不行。
这样做只是得到了字符串，但是还是无法计算出结果啊，a1＝2×14+2×20＝68，怎样得到这个68的计算结果啊？？

meflying · 发表于 2004-8-6 13:43:00

到底是乘还是C？你是问如何分割还是问如何计算，还是要把你写一个完整的程序？如果是后者，你提供的信息还不够详细，
还有，是否一定要在R14下使用？
(setq a (vl-string-subst " " ";" "2*14+2*20;2*25"))
   (setq a (strcat "(" a ")"))
   (setq a (mapcar 'vl-symbol-name (read a)))
   (mapcar 'cal a)

alwaysbin · 发表于 2004-8-6 20:06:00

是符号，如果是乘号就好办了。我的是一个字符串“%%131”，是结构里的钢筋符号，2%%13116就表示2根16的钢筋，比如我有一串文字，"2%%13116;3%%13125"，怎样才能计算出分号前后的钢筋的面积啊？？或者是把根数和直径直接分离出来也可以。可以不用14，只要2002能用就行。
如下图，黄色的为第一组数据，就是2%%13116;3%%13125，表示上部2根16，下部3根25，请问我如何能分别得到面积？？

e0cttvmnssh.jpg

alwaysbin · 发表于 2004-8-6 20:09:00

顺便把图也弄上来，我要得到的最终结果是判断白色的钢筋的面积是否小于分号后面的钢筋面积的1/4。

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:kngmxhkx3yu.dwg
下载次数:0 文件大小:36.65 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

alin · 发表于 2004-8-7 00:56:00

copy


(defun C:tt(/ str1 str2 tmp1 tmp2 area1 area2)
   (setq str1 (cdr (assoc 1 (entget (car (entsel "\n选择第一个text: ")))))
  str2 (cdr (assoc 1 (entget (car (entsel "\n选择第二个text: ")))))
   )
   (setq tmp1 (Parse_It (vl-string-subst "x" "%%131" (last (Parse_It str1 ";"))) "x")
  tmp2 (Parse_It (vl-string-subst "x" "%%131" (last (Parse_It str2 ";"))) "x")
   )
   (setq area1 (* (read (car tmp1)) (CirArea (read (cadr tmp1))))
  area2 (* (read (car tmp2)) (CirArea (read (cadr tmp2))))
   )
   (if (> area2 (/ area1 4))
       (princ "\n腰筋面积>1/4底筋面积.")
       (princ "\n腰筋面积 0 Delim 256) Delim 32)))
  ;
  ; Set up parameters for string search loop
  ;
  Inx (VL-String-Position Delim inStr 0)
  InxP -1
  )
   ;
   (while (and Inx (alin，先送你一朵鲜花，你真是太厉害了。 不过我还有几个问题，我不懂vl，你能不能帮我完善一下。
1.如果是两种钢筋的组合，比如1%%13116+1%%13118，能不能将这将这两种钢筋加起来，求出面积？
2.如果我在选第二组文字的时候，不选直接回车，那么area2就读分号前面的数字。可以实现吗？
        3.如果area2 area2 (/ area1 4))
  (cond (ss2
               (princ "\n腰筋面积>1/4底筋面积。通过。"))
             (t
               (princ "\n面筋面积>1/4底筋面积。通过。"))
             )
  (cond
     (ss2
       (princ "\n腰筋面积 0 Delim 256)
           Delim
           32)))
  ;
  ; Set up parameters for string search loop
  ;
  Inx     (VL-String-Position Delim inStr 0)
  InxP   -1
  )
  ;
   (while (and Inx (< Inx (strlen inStr)))
       (setq Res
               (cons (substr inStr (+ 2 InxP) (- Inx InxP 1))
             Res)
     InxP Inx
     Inx   (VL-String-Position Delim inStr (1+ InxP))
     )
       )
   (setq Res (cons (substr inStr (+ 2 InxP)) Res))
   (reverse Res)
   )
  ;