晓雨 发表于 2008-12-9 23:28:00

[求助]怎样提取标注中的文字作为实数型

<p>各位大侠，我想提取选中的标注中的文字，然后转为实数，然后+0.5，然后转为字符，然后给这个标注加上后缀，</p><p>比如说：我选中直径标注“￠6”，最后要成为是：“￠6深6.5”。</p><p>其中6.5是 6+0.5 而得到，</p><p>谢谢！</p>

ZZXXQQ 发表于 2008-12-10 19:44:00


;尺寸加指定后缀 明经ZZXXQQ 2008.12.10
(DEFUN C:TT ()
(PRINC "\nSelect a Dimtion 选择尺寸:")
(IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I)))))
   (IF (> (SUBSTR (GETVAR"ACADVER") 1 2) "14")
    (if (= (cdr(assoc 100 (reverse ent))) "AcDbDiametricDimension") (progn
   (setq L (rtos (+ (cdr (assoc 42 ent)) 0.5) 2 3)
      ent (subst (cons 1 (strcat "<>深" l)) (assoc 1 ent) ent))
   (entmod ent)
    ))
   )
)
))
(PRINC)
)

晓雨 发表于 2008-12-10 23:04:00

<p>我是这样写的：</p><p><br/>;;;选择一个标注<br/>&nbsp; (setq&nbsp;&nbsp;&nbsp; dimObj1 (car (entsel)))<br/>&nbsp; (setq&nbsp;&nbsp;&nbsp; dimObj (vlax-ename-&gt;vla-object dimObj1))</p><p>;;;提取字符串，<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq&nbsp;&nbsp;&nbsp; value&nbsp; (vla-get-Measurement dimObj ))<br/>&nbsp;&nbsp;&nbsp; (setq&nbsp;&nbsp;&nbsp; value1&nbsp; (+ value 0.5))<br/><font style="BACKGROUND-COLOR: #eeee11;">&nbsp;&nbsp;&nbsp;&nbsp; (setq&nbsp;&nbsp;&nbsp; dimvl1&nbsp; (itoa value1))</font></p><p><font style="BACKGROUND-COLOR: #eeee11;">(setq&nbsp; suffix (strcat "深" dimvl1 ))</font></p><p>这样老说数据错误，为什么？</p><p></p><p></p>

nonsmall 发表于 2008-12-11 08:55:00

itoa -&gt; rtos

ding9736 发表于 2008-12-11 14:47:00

<p>当图档存为R14版时，用vla-get-Measurement 获取不到尺寸值的,</p><p>vla-get-Measurement只能用于2000版以上的图档</p>
页: [1]
查看完整版本: [求助]怎样提取标注中的文字作为实数型