请问该怎么办啊?

cxg121 发表于 2006-7-20 17:31:00

我做好的一幅图里，有很多这样的文字注记"S=12.6783" "S=135.3476"……
现在想将数字部分乘个0.0015，然后取三位小数，怎样能用lisp将他们全部改过来呢？
请各位帮帮忙！

ZZXXQQ 发表于 2006-7-20 22:27:00

(DEFUN C:TEST ()
(IF (SETQ SS (SSGET '((0 . "TEXT") (1 . "S=*")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
TXT (SUBSTR (CDR (ASSOC 1 ENT)) 3))
(IF (<= "0" (SUBSTR TXT 1 1) "9") (PROGN
(SETQ TMP (STRCAT "S=" (RTOS (* (ATOF TXT) 0.0015) 2 3))
ENT (SUBST (ASSOC 1 ENT) (CONS 1 TMP) ENT))
(ENTMODE ENT)
))
)
))
(PRINC)
)

cxg121 发表于 2006-7-21 11:08:00

还有点问题啊，大虾，帮人帮到底啊！帮我再看看，万分感谢！

cxg121 发表于 2006-7-21 12:02:00

搞定了，万分感谢！

rongyifei 发表于 2006-7-22 19:59:00

也可以这样写:
(defun c:test ()   (setq selectionsets (vla-get-selectionsets    (vla-get-activedocument (vlax-get-acad-object))         )  i       (vla-get-count selectionsets)   )   (while (> i 0)     (setq sset (vla-item selectionsets 0))     (vla-delete sset)     (setq i (- i 1))   )   (setq sset   (vla-add selectionsets "sset")  listcode  (vlax-make-safearray vlax-vbinteger '(0 . 1))  listvalue (vlax-make-safearray vlax-vbvariant '(0 . 1))   )   (vlax-safearray-put-element listcode 0 0)   (vlax-safearray-put-element listcode 1 1)   (vlax-safearray-put-element listvalue 0 "TEXT")   (vlax-safearray-put-element listvalue 1 "s=*")   (vla-select     sset acSelectionSetAll nil nil listcode listvalue)   (setq ssetcount (vla-get-count sset))   (while (> ssetcount 0)     (setq       value (vla-get-textstring (vla-item sset (- ssetcount 1)))       value (vl-string-left-trim "s=" value)       value (* (atof value) 0.0015)       value (strcat "s=" (rtos value 2 3))     )     (vla-put-textstring (vla-item sset (- ssetcount 1)) value)     (vla-update (vla-item sset (- ssetcount 1)))     (setq ssetcount (- ssetcount 1))   ) )

页: [1]

明经CAD社区's Archiver

请问该怎么办啊?