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

炫翔

炫翔(2363673534)于2013-05-18 18-17-52：
论坛地址：http://bbs.xdcad.net

CCarch

蓝蜻蜓(3282201)于2013-05-18 18-17-57：
哦，发错了

炫翔

炫翔(2363673534)于2013-05-18 18-18-12：
[qqimg]{84498467-E67B-98B4-79D2-B7AF2725EBC4}.gif[/qqimg]

CCarch

真爱一生(848758009)于2013-05-18 18-29-29：
(defun c:text_f        ()
  (setq obj (entsel "\n select text : "))
  (if (null obj)
    (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

真爱一生(848758009)于2013-05-18 18-29-49：
调试ok

CCarch

真爱一生(848758009)于2013-05-18 18-30-38：
(null obj) 这里有误

eachy

eachy(124471899)于2013-05-18 18-30-40：
[face99.gif]

eachy

eachy(124471899)于2013-05-18 18-31-58：
直接 (if (setq ....)

CCarch

真爱一生(848758009)于2013-05-18 18-32-02：
还有要把捕捉关掉

eachy

eachy(124471899)于2013-05-18 18-32-37：
变量要收集 释放

CCarch

真爱一生(848758009)于2013-05-18 18-33-31：
对要修改的地方很多现在只是能顺利执行

CCarch

简单(252113063)于2013-05-18 18-45-11：
谁能破解VLX 文件啊

CCarch

简单(252113063)于2013-05-18 18-45-54：
可以给点辛苦费用

炫翔

炫翔(2363673534)于2013-05-18 18-48-27：
为什么要破解?

CCarch

書生—SLQ(421944906)于2013-05-18 18-49-34：
能破解这个就不做这个了