求批量怎样改直接读,求大侠帮改下

啊业_48384

游客，本帖隐藏的内容需要发帖数高于 40 才可浏览，你当前发帖数只有 0

lifuq1979

(ssget )===>(ssget "X")

啊业_48384

批量又怎样改

zmzk

你来求帮助，还把门槛设置这么高？不理解

linheyuanpcb

运行不了，不知道对不对
(defun c:fff (/ hole str1 str2 wigh h1 h2 h3 h4 )   
    ;(princ "\n请选择物体:");怎样改直接读
    (command "style" "Standard" "SIMKAI.TTF" "0" "1.0" "0.0" "N" "N")
    (SETVAR "CMDECHO" 0 )
    (COMMAND "UNITS" "" "2" "" "" "" "N")
    (setq ly (getvar "clayer"))
    (setq hole  (ssget "x"(list'(cons 8 ly)));(ssget )
          len (sslength hole )
          num 0 arc 0 )
    (setq wok "A" )
    (command "layer" "on" "pn1" "" )
    (repeat len
      (setq name (cdr (assoc 0 (entget (ssname hole num ))))
            num (+ num 1 )
      )
      (if (= name "ARC")(setq arc (+ arc 1 )))
    )

   (cond
      ((= arc 0 )
        (setq h1 (listna hole 0 )
              h2 (listna hole 1 )
              h3 (listna hole 2 )
              h4 (listna hole 3 )
              leng (rtos (max h1 h2 h3 h4 ))
              wigh (min h1 h2 h3 h4 )
              syo  " = "
        )
      )
      ((> arc 0 )
        (setq num 0 )
        (while (= (setq cen (cdr (assoc 40 (entget (ssname hole num ))))) nil )
           (setq num (+ num 1 ))
        )
        (setq h1 (listna hole 0 )
              h2 (listna hole 1 )
              h3 (listna hole 2 )
              h4 (listna hole 3 )
              wigh (* cen 2)
        )

         (if (= arc 1 )
             (setq leng (rtos (+ leng cen ))  syo " =)" )  
         )
         (if (= arc 2 )
             (setq leng (rtos (+ leng wigh ))  syo "(=)" )   
         )
      )
   )
      (setq str1 (strcat  (rtos wigh)  "*"  leng )
            str2 (strcat  (rtos wigh) "*"  leng syo wok )
      )
    (setvar "clayer" "pn1" )
    (command "text" pt3 "3" "0" str1 )
    (setvar "clayer" "pn2" )
    (command "text" pt3 "3" "0" str2 )
    (command "layer" "off" "pn2" "y" "" )
    (setvar "clayer" ly )
)