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

清风明月10

清风明月(897902105)于2013-06-21 20-48-02：
写出文字来了没有？应该是没有

含泪的射手

含泪的射手(54374454)于2013-06-21 20-48-12：
你写文字的代码不全

含泪的射手

含泪的射手(54374454)于2013-06-21 20-48-19：
不是寻找点不对

清风明月10

清风明月(897902105)于2013-06-21 20-48-28：
全的，

清风明月10

清风明月(897902105)于2013-06-21 20-48-41：
形成文字的代码肯定是全的

清风明月10

清风明月(897902105)于2013-06-21 20-48-56：
就是点对无法形成

CCarch

ZZXXQQ(1468225785)于2013-06-21 20-51-13：
你先看看ACAD本身的10组码是什么样的

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-51-43：
[face20.gif]也是到处问

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-51-49：
Z版到处答

CCarch

ZZXXQQ(1468225785)于2013-06-21 20-53-14：
(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")
    (cons 1
                   ; (strcat
                   ; "ZK禺"
                   ; (itoa i)
                   ; )
                   "ZK禺")
    (IF (> RR 250) (PROGN ; 下面代码是规定文字高度
     (cons 40 2000)
     (cons 10 (list (+ PX 2000) py pz))
    ) (PROGN
     (cons 40 2.0)
     (cons 10 (list (+ PX 2) py pz))
    ))
   )
  )
)
(princ)
)

清风明月10

清风明月(897902105)于2013-06-21 20-54-52：
我的朋友，你发的要自己试是否正确啊？我试了可不行，跟我写的一样，写不出文字来

含泪的射手

含泪的射手(54374454)于2013-06-21 20-55-30：
不可能吧，加上字高了还不行？

清风明月10

清风明月(897902105)于2013-06-21 20-56-21：
试了才知道

含泪的射手

含泪的射手(54374454)于2013-06-21 20-56-36：
[qqimg]{80638239-4233-CEB4-E951-5B7628DE7F91}.jpg[/qqimg]

含泪的射手

含泪的射手(54374454)于2013-06-21 20-56-42：
加个字高搞定