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

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-56-59：
[face118.gif]

清风明月10

清风明月(897902105)于2013-06-21 20-57-43：
那你把你的代码发上来看看

含泪的射手

含泪的射手(54374454)于2013-06-21 20-58-00：
就是楼上的

清风明月10

清风明月(897902105)于2013-06-21 20-58-15：
不可能，楼上的我试了，不行

含泪的射手

含泪的射手(54374454)于2013-06-21 20-58-28：
吧你的发来瞧瞧

CCarch

ZZXXQQ(1468225785)于2013-06-21 20-58-40：
(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))
     (cons 40 2000)
    ) (PROGN
     (cons 10 (list (+ PX 2) py pz))
     (cons 40 2.0)
    ))
    (cons 1
                   ; (strcat
                   ; "ZK禺"
                   ; (itoa i)
                   ; )
                   "ZK禺")
   '(50 . 0.0)
   )
  )
)
(princ)
)

清风明月10

清风明月(897902105)于2013-06-21 20-59-51：
还是无效

eachy

eachy(124471899)于2013-06-21 21-00-14：
什么版本cad

清风明月10

清风明月(897902105)于2013-06-21 21-00-31：
2005

含泪的射手

含泪的射手(54374454)于2013-06-21 21-01-29：
[qqimg]{D62DDCC8-A40C-83FA-1A31-B502D168723A}.jpg[/qqimg]这个if有问题

清风明月10

清风明月(897902105)于2013-06-21 21-02-29：
什么问题？

含泪的射手

含泪的射手(54374454)于2013-06-21 21-02-59：
你形成文字的组码里面没有点

清风明月10

清风明月(897902105)于2013-06-21 21-03-26：
是啊，我就是发现没有点啊

清风明月10

清风明月(897902105)于2013-06-21 21-03-36：
怎么能让它有点呢

eachy

eachy(124471899)于2013-06-21 21-03-38：
((0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (100 . "AcDbText") (40 . 2.0) (1 . "ZK禺") (50 . 0.0))