按提取数据改变圆的直径！

cz78873559

大家好，请给我指导指导：

1、我想提取图中的带有：的字符，并取最后三位，然后用最后三位除以1000，作为圆的直径。

2、然后把图中JZP层的圆圈直径全部改为第一步提取的直径。

cz78873559

这是我需要处理的图形。

zyhandw

不是吧，刚上传了的附件怎么就没了

夏生生

是否这样？
[pcode=lisp,true](defun ch_dxf (en num ch / old_num new_num ent)
  (if (setq ent            (entget en)
            new_num (cons num ch)
            old_num (assoc num ent)
      )
    (entmod (subst new_num old_num ent))
    (entmod (reverse (cons new_num (reverse ent))))
  )
)
(defun x_ssn (ss / n lst)
  (repeat (setq N (sslength ss))
    (setq LST (cons (ssname SS (setq N (1- N))) LST))
  )
)
(defun c:test1 (/ str r)
  (setq str (cdr (assoc 1 (entget (car (entsel "\n选择比例尺："))))))
  (setq r (distof (substr str (+ 2 (vl-string-search ":" str))) 1))
  (mapcar '(lambda (x) (ch_dxf x 40 (/ r 2000)))
          (x_ssn (ssget "x" '((0 . "circle") (8 . "jzp"))))
  )
(princ)
)[/pcode]

Lispboy

字符是处理TEXT还是MTEXT，楼主最好贴的图片前后对比的。

newer

楼主是像修改图的绘图比例吧，看你的要求，你是想提取：后面的三位，还是最后三位啊？ 1:1000这样的图怎么提取？

XDSoft

夏生生 发表于 2013-5-11 11:31

                               
登录/注册后可看大图

是否这样？
(defun ch_dxf (en num ch / old_num new_num ent)
  (if (setq ent            (entget en)
...

夏生生朋友，

[pcode=lisp,true]
(setq str (cdr (assoc 1 (entget (car (entsel "\n选择比例尺："))))))
[/pcode]

这行代码有可能会出现错误，如果用户没选到对象或者回车，建议加上判断语句让你的代码健壮。

cz78873559

谢谢楼上的。学习了不少。

xyp1964

[pcode=lisp,true];; 修改圆半径，需要e派工具箱(XCAD)的支持
(defun c:tt (/ ss s1)
  (CMDLA0)
  (setq bj (UREAL 7 "" "半径" bj))
  (if (setq ss (ssget '((0 . "CIRCLE") (8 . "JZP"))))
    (xyp-SubUpd ss 40 bj)
  )
  (CMDLA1)
)[/pcode]