图幅变换

流_星 · 发表于 2013-9-17 19:36:26

请高手帮个忙如何让字符串为A2x3
变成1.5A1字符串
A2x2.5 =》1.25A1
A3x4 =>2A2
等等谢谢啦

q3_2006 · 发表于 2013-9-17 20:02:53

FIND查找替换

namezg · 发表于 2013-9-17 20:33:57

本帖最后由 namezg 于 2013-9-17 20:46 编辑

(mapcar 'test '("A2x3" "A2x2.5" "A3x4"))
返回值：'("1.5A1" "1.25A1" "2A2")

(defun test (str / i j k newstr)
(setq i (substr str 2 1))
(setq j (substr str (+ (vl-string-search "x" str) 2)))
(setq k (/ (read j) 2.0))
(if (= (- (float k) (fix k)) 0)
(setq k (fix k))
(setq k (float k))
)
(setq newstr (strcat (vl-princ-to-string k) "A" (itoa (1- (atoi i)))))
)

namezg · 发表于 2013-9-17 20:52:49

现来个简单点的

;(mapcar 'test '("A2x3" "A2x2.5" "A3x4"))
;返回值：'("1.5A1" "1.25A1" "2A2")
(defun test (str / i j k newstr)
(setq i (substr str 2 1))
(setq j (substr str (+ (vl-string-search "x" str) 2)))
(setq k (/ (read j) 2.0))
(setvar "dimzin" 8)
(setq newstr (strcat (rtos k 2 4) "A" (itoa (1- (atoi i)))))
)

流_星 · 发表于 2013-9-17 21:14:30

namezg 发表于 2013-9-17 20:52
现来个简单点的

好谢谢namezg
我看到了思路明天去公司试试
我在结合特定的程序看看谢谢啦

流_星 · 发表于 2013-9-18 20:25:10

本帖最后由流_星于 2013-10-11 19:18 编辑

;这里谢谢namezg，给我的帮助
(setq s nil s (ssget "X" (list (cons 2 "tzmu"))))
(if s (Progn
(setq ss (entget (ssname s 0)))
(SETQ SQ NIL)
(WHILE (/= SQ "SEQEND")
         (SETQ SS (ENTGET (ENTNEXT (CDR (ASSOC '-1 SS)))));(PRINC  SS)
         (SETQ SQ (CDR (ASSOC '0 SS)))
         (if (= "图幅" (cdr (assoc '2 ss)))(setq tf (cdr (assoc '1 ss))))

) ;WHILE SQ
(if (= (strlen tf) 2)(setq ntf tf))
(if (> (strlen tf) 2)(progn
      (setq i (substr tf 2 1))
      (setq j (substr tf (+ (vl-string-search "x" tf) 2)))
      (setq k (/ (read j) 2.0))
      (setq ntf (strcat (rtos k 2 4) "A" (itoa (1- (atoi i)))))
))
))
现在就是变不了不知道啥原因请高手修改一下谢谢
如tf=“A3x2.5”那么应该结果ntf应该是1.25A2等等
tf=”A2x3“那么tf应该是1.5A1
谢谢高手啦

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

[经验] 图幅变换