2013-05-21 QQ群：晓东家园-CAD开发(240377723) 聊天记录：签到

炫翔

炫翔(2363673534)于2013-05-21 18-18-18：
那就加

炫翔

炫翔(2363673534)于2013-05-21 18-18-29：
(SETQ (+ 1 2 3))

炫翔

炫翔(2363673534)于2013-05-21 18-18-39：
(SETQ LEN (+ 1 2 3))

CCarch

271682673(271682673)于2013-05-21 18-18-55：
[face36.gif]

CCarch

271682673(271682673)于2013-05-21 18-19-07：
我编程么基础

炫翔

炫翔(2363673534)于2013-05-21 18-19-13：
(SETQ len(+ 线长1 线长2 线长3 .....))

拉契

沙不怕风吹(328302216)于2013-05-21 18-20-04：
(defun c:tjxc()
(princ "\n选取要计算的图元计算线长:")
(setq ss (ssget))
(setq n 0)
(setq yy 0)
(repeat (sslength ss)
(setq ssn (ssname ss n))
(command "lengthen" ssn "")
(setq dd (getvar "perimeter"))
(setq n (1+ n))
(setq yy(+ yy dd)))
(setq pt (getpoint "\n文字位置点: "))
(setq old_hh (getvar "textsize"))
(setq str_hh (strcat "\n高度 : "))
(setq hh (getdist pt str_hh))
(if (null hh) (setq hh old_hh))
(command "text" pt hh 0 (strcat "总长=" (rtos yy 2 2) "MM"))
(prin1)
)
;;直接把文件拖到CAD里面输入命令 tjxc 然后选择需要计算长度的线

拉契

沙不怕风吹(328302216)于2013-05-21 18-20-27：
又是借花献佛的[face13.gif]

CCarch

271682673(271682673)于2013-05-21 18-20-49：
这是放到VB里面还是lp？

炫翔

炫翔(2363673534)于2013-05-21 18-21-12：
都不是

CCarch

271682673(271682673)于2013-05-21 18-21-29：
[face36.gif]那。。。。

炫翔

炫翔(2363673534)于2013-05-21 18-21-36：
LISP

拉契

沙不怕风吹(328302216)于2013-05-21 18-21-43：
看来是一点基础都没得的……

CCarch

271682673(271682673)于2013-05-21 18-21-53：
[face6.gif]恩

炫翔

炫翔(2363673534)于2013-05-21 18-21-57：
论坛的 VLISP/LISP群
群号:143438137