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

清风明月10

清风明月(897902105)于2013-06-21 20-43-09：
怎么写运行出错

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-43-17：
[face97.gif]

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-43-45：
[qqimg]{5B6964BA-65CA-B6CD-3E37-5DA3A8887B3B}.jpg[/qqimg]

清风明月10

清风明月(897902105)于2013-06-21 20-44-23：
你根本没有形成点对，你的图像中都看不到点

清风明月10

清风明月(897902105)于2013-06-21 20-44-27：
(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 '((+ PX 2000) py pz) )



                   );PROGN结束
                  
                   (PROGN
                   (cons 40 2.0)
                   (cons 10 '((+ PX 2) py pz) )



                   );PROGN结束
                  
                   )
                  
             )
    )
  )
  (princ)
)

清风明月10

清风明月(897902105)于2013-06-21 20-44-48：
这是代码，你去运行修改，运行正确才是对的

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-45-10：
[qqimg]{49867748-7B65-BF84-EF10-CD2B150F9C9F}.jpg[/qqimg]

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-45-16：
把这个点换成LISP

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-45-21：
LIST

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-45-48：
(list 10 (list (+ px 2) py pz))

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-46-27：
(list 10  (+ px 2) py pz)

清风明月10

清风明月(897902105)于2013-06-21 20-46-32：
你试嘛，试对了再说是正确的

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-46-32：
[face13.gif]\

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-21 20-46-40：
菜鸟要多改改

含泪的射手

含泪的射手(54374454)于2013-06-21 20-47-16：
[qqimg]{B6EA0950-EF60-8C6D-E11C-33589A940FE2}.jpg[/qqimg]