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

CCarch

真爱一生(848758009)于2013-05-18 16-22-42：
可以

CCarch

武影倾城(420932492)于2013-05-18 16-25-19：
[qqimg]{8665342C-740F-061E-E835-74777CCAB945}.jpg[/qqimg]
(defun c:text_f        ()
  (setq obj (entsel "\n select text : "))
  (if (= obj nil)
    (princ "\n none object select")
    (progn
      (setq ent (entget (car obj)))
      (if (/= (cdr (assoc 0 ent)) "text")
        (princ "\n object type error")
        (progn
          (setq        temp        (cadr (textbox (list (assoc 1 ent))))
                temp_w        (car temp)
                temp_h        (cadr temp)
                pt_base        (cdr (assoc 10 ent))
          )
          (command "pline"
                   pt_base
                   (setq pt_temp (polar pt_base 0 temp_w))
                   (setq pt_temp (polar pt_temp (/ pi 2) temp_h))
                   (setq pt_temp (polar pt_temp pi temp_w))
                   "c"
          )
        )
      )
    )
  )
  (princ)
)

CCarch

武影倾城(420932492)于2013-05-18 16-25-55：
为什么选中单行文本显示object type error

CCarch

武影倾城(420932492)于2013-05-18 16-26-07：
帮忙看看哪里不对

炫翔

炫翔(2363673534)于2013-05-18 16-29-06：
去论坛发帖

CCarch

小蜜蜂(9034598)于2013-05-18 17-27-45：
ascii 函数返回的最大值是多少

CCarch

︶ㄣ栤楓!(511123594)于2013-05-18 17-38-07：
签到

CCarch

武影倾城(420932492)于2013-05-18 17-38-42：
签到

CCarch

小蜜蜂(9034598)于2013-05-18 17-40-48：
签到

eachy

eachy(124471899)于2013-05-18 17-42-17：
签到

CCarch

獨嬡“柒”√(349908591)于2013-05-18 17-46-07：
签到

CCarch

蓝蜻蜓(3282201)于2013-05-18 18-10-11：
大家好！好心人，帮忙改个CAD插件程序不

炫翔

炫翔(2363673534)于2013-05-18 18-13-43：
[qqimg]{1D7EC5AE-0AFA-57DD-8929-00B65DFA7FC7}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-18 18-17-40：
是论坛

炫翔

炫翔(2363673534)于2013-05-18 18-17-45：
不是群共享