请帮忙调整一下程序输入

Ccccccc

;;;程序针对wpjc1.dwg
;;;以下删除无用字符串
;;;(command "erase" (ssget '((0 . "TEXT")  (1 . "~[A P]s*"))) "")
(defun c:test (/ ss)
   ;;如果只处理主筋改成(1 . "*%)")，只处理箍筋改成(1 . "*%")
  (IF (setq ss (ssget '((0 . "*TEXT") (8 . "7") (1 . "*%*"))))
    (progn
      (GL-SSMAP
        '(lambda (e / str str_)
           (setq e    (vlax-ename->vla-object e)
                 str  (vla-get-textstring e)
                 str_ (vl-string-search "." str)
                 str  (atof (substr str str_ 4))
           )
           ;;自己修改0.50为需要数值
           (if (<= 0.50 str)
             (vla-put-color e 1)
           ) ;_ 结束if
         ) ;_ 结束lambda
        ss
      ) ;_ 结束mapcar
    ) ;_ 结束progn
  ) ;_ 结束IF
  ) ;_ 结束princ
  (princ)
) ;_ 结束defun

(defun GL-SSMAP        (func ss / n)
  (if (eq 'pickset (type ss))
    (repeat (setq n (fix (sslength ss)))
      (apply func (list (ssname ss (setq n (1- n)))))
    ) ;_ 结束repeat
  ) ;_ 结束if
) ;_ 结束defun

希望调整一下输入，将红色的字体中需要手动修改的，改为在程序中输入，比如输入选项1为只处理主筋，输入选项2为只处理箍筋；0.5的值改为程序中可以输入任何值，自己水平有限，希望哪位能帮忙，谢谢了，奉献仅有的两个币。

langjs

啥叫主筋，啥叫箍筋，问题提不清楚，不是同专业的帮不了你

Ccccccc

langjs 发表于 2012-3-25 20:34
啥叫主筋，啥叫箍筋，问题提不清楚，不是同专业的帮不了你

程序执行时，如果输入选项1，这一句按如下执行
(IF (setq ss (ssget '((0 . "*TEXT") (8 . "7")(1 . "*%)") )))

如果输入选项2，这一句按如下执行
(IF (setq ss (ssget '((0 . "*TEXT") (8 . "7") (1 . "*%*"))))

ZZXXQQ

(defun c:test (/ ss)
(initget "1 2 ")
(setq gg (getkword "\n选项1=主筋，2=箍筋 :"))
(if (setq ss (ssget (list '(0 . "*TEXT") '(8 . "7")
                      (cons 1 (if (= gg "1") "*%)" "*%*"))))) (progn
...
(setq sstr (getdist "\n判断值<0.5> :"))
(setq sstr (if sstr sstr 0.5))
(if (<= sstr str)
...

Ccccccc

ZZXXQQ 发表于 2012-3-25 22:30
(defun c:test (/ ss)
(initget "1 2 ")
(setq gg (getkword "\n选项1=主筋，2=箍筋 :"))

谢谢版主帮忙，现在可以了

lovekiko520

过来学习下的...