[讨论]：为什么不能拿出来自已用,

aliu22

这是探索者一个lisp文件的源码,我想问一下 为什么不能拿出来自已用啊,

(@lsp "myfan")
(setfunhelp "c:hsaxno" "tssd.hlp" "hsaxno")
(defun c:ZHHYX (/ ss si smx e el e70)
  (if (and (>= (&beg) 0)
           (princ "\n选取要隐藏/显示的轴号<退出>: ")
           (setq ss (ssget (list (cons 8 (&glay "轴标"))
                                 '(0 . "insert")
                                 '(2 . "ts_axno,ts_axno1,ts_axno2")
                           )
                    )
           )
      )
    (progn (setq si  0
                 smx (sslength ss)
           )
           (while (< si smx)
             (setq e   (ssname ss si)
                   el  (entget e)
                   si  (1+ si)
                   e   (entnext e)
                   e70 (&fld e 70)
             )
             (entmod (subst (cons 70
                                  (if (logand 1 e70)
                                    (boole 6 1 e70)
                                    (logior 1 e70)
                                  )
                            )
                            (cons 70 e70)
                            (entget e)
                     )
             )
             (entmod el)
           )
    )
  )
  (&end)
)
(setfunhelp "c:barno" "tssd.hlp" "barno")
(defun c:GJBH (/ a di dm e h l p0 p1 pa pb st)
  (if (and (>= (&beg) 0)
           (setq st (getstring "\n输入钢筋编号<退出>: "))
           (/= st "")
      )
    (progn
      (&glay "标注" t)
      (setq h (&tsty "标号"))
      (setvar "attreq" 1)
      (while
        (if (null $_bartype_$)
          (progn (initget "X")
                 (setq e (&gent        "\n选取要编号的钢筋 /X-选点方式<结束>: "
                                "钢筋"
                                '((0 . "lwpolyline"))
                         )
                 )
          )
          (progn
            (initget "X")
            (setq e (&gpts "\n点取钢筋号的插入点 /X-选筋方式<结束>: "))
          )
        )
         (cond ((= e "X") (setq $_bartype_$ (null $_bartype_$)))
               ((= (type (car e)) 'ENAME)
                (setq p0 (cadr e)
                      l         (@whpl (@pl2l (&fld 10) (&fld 70) (&fld 42)) p0)
                )
                (if (= (length l) 2)
                  (progn (setq a (angle (car l) (cadr l)))
                         (if (> a (* 0.75 pi))
                           (setq a (- a pi))
                         )
                  )
                  (setq a (- (angle (car l) p0) _pi2))
                )
                (setq p0 (polar p0 (+ a _pi2) h))
                (command ".insert"
                         "ts_reino"
                         p0
                         (* 3 &sp)
                         (* 3 &sp)
                         (angtos a 2 0)
                         st
                )
               )
               (T
                (command ".insert" "ts_reino" e (* 3 &sp) (* 3 &sp) 0 st)
               )
         )
      )
    )
  )
  (&end)
)
(setfunhelp "c:sfgjh" "tssd.hlp" "sfgjh")
(defun c:SFGJBH        (/ e ex p0 sc si ss sx)
  (if (and (>= (&beg) 0)
           (setq sc (getreal "\n输入新的钢筋编号直径<退出>: "))
           (princ "\n选择要调整的钢筋号<退出>: ")
           (setq ss (ssget '((0 . "insert") (2 . "ts_reino"))))
      )
    (progn (setq si 0
                 sc (* &sp sc)
                 e  (cdr (assoc -2 (tblsearch "block" "ts_reino")))
                 sx (* 2 (cdr (assoc 40 (entget (entnext e)))))
           )
           (while (setq e (ssname ss si))
             (setq si (1+ si)
                   p0 (&fld e 10)
                   ex (&fld 41)
             )
             (command ".scale" e "" p0 (/ sc (* sx ex)))
           )
    )
  )
  (&end)
)