2013-06-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

含泪的射手

含泪的射手(54374454)于2013-06-21 21-09-52：
progn函数只会返回最后一个值

eachy

eachy(124471899)于2013-06-21 21-10-56：
[face76.gif]

清风明月10

清风明月(897902105)于2013-06-21 21-11-59：
都是不能经受检验的说法

含泪的射手

含泪的射手(54374454)于2013-06-21 21-12-38：
(defun c:TT (/ et i p0 rr ss)
  (setq        ss (ssget '((0 . "circle")))
        i  0
  )
  (repeat (sslength ss)
    (setq et (entget (ssname ss i))
          rr (cdr (assoc 40 et))
          p0 (cdr (assoc 10 et))
          i  (1+ i)
    )
    (SETQ PX (CAR P0))
    (SETQ PY (CAdR P0))
    (SETQ PZ (CAddR P0))
    (entmake
      (list
        '(0 . "TEXT")
        '(100 . "AcDbEntity")
        '(67 . 0)
        '(100 . "AcDbText")
        (IF (> RR 250)
          (PROGN                        ; 下面代码是规定文字高度
            (cons 10 (list (+ PX 2000) py pz))
          )
          (PROGN
            (cons 10 (list (+ PX 2) py pz))
          )
        )
        (IF (> RR 250)
          (PROGN                        ; 下面代码是规定文字高度
            (cons 40 2000)
          )
          (PROGN
            (cons 40 2.0)
          )
        )
        (cons 1
                                        ; (strcat
                                        ; "ZK禺"
                                        ; (itoa i)
                                        ; )
              "ZK禺"
        )
        '(50 . 0.0)
      )
    )
  )
  (princ)
)

含泪的射手

含泪的射手(54374454)于2013-06-21 21-12-42：
这样明白？

含泪的射手

含泪的射手(54374454)于2013-06-21 21-12-56：
不能用list，它会出现表

清风明月10

清风明月(897902105)于2013-06-21 21-15-20：
上面代码倒是经受住了检验。我看看，和我写的有什么不同

清风明月10

清风明月(897902105)于2013-06-21 21-17-19：
我的代码和你差不多啊，只不过你用了两个IF.怎么回事，我的怎么就不对，你的就对？

CCarch

ZZXXQQ(1468225785)于2013-06-21 21-17-57：
(defun c:TT ( / et i p0 rr ss)
(setq        ss (ssget '((0 . "circle")))
       i  0)
(repeat (sslength ss)
  (setq et (entget (ssname ss i))
        rr (cdr (assoc 40 et))
        p0 (cdr (assoc 10 et))
        i  (1+ i))
  (SETQ PX (CAR P0))
  (SETQ PY (CAdR P0))
  (SETQ PZ (CAddR P0))
  (entmake
   (list
    '(0 . "TEXT")
   '(100 . "AcDbEntity")
   '(67 . 0)
   '(100 . "AcDbText")
     ; 下面代码是规定文字高度
    (cons 10 (list (+ PX (IF (> RR 250) 2000 2)) py pz))
    (cons 40 (IF (> RR 250) 2000 2.0))
    (cons 1
                   ; (strcat
                   ; "ZK禺"
                   ; (itoa i)
                   ; )
                   "ZK禺")
   '(50 . 0.0)
   )
  )
)
(princ)
)

含泪的射手

含泪的射手(54374454)于2013-06-21 21-18-03：
progn函数只会返回最后一个值

清风明月10

清风明月(897902105)于2013-06-21 21-19-42：
不理解，那不progn函数缺陷很大

eachy

eachy(124471899)于2013-06-21 21-19-49：
Lisp 也是这样的

eachy

eachy(124471899)于2013-06-21 21-20-02：
逐句执行

eachy

eachy(124471899)于2013-06-21 21-20-52：
这不是缺陷,是规则

清风明月10

清风明月(897902105)于2013-06-21 21-21-00：
还是迷惑，只能慢慢查资料理解了