2013-08-07 QQ群：ALISP＆VLISP(143438137) 聊天记录：strlen

CCarch

我们168(460112400)于2013-08-07 13-49-44：
(textbox (entget (entsel)))

CCarch

我们168(460112400)于2013-08-07 13-49-52：
怎么不对

CCarch

-(34833360)于2013-08-07 13-50-28：
(textbox (entget (car (entsel))))

CCarch

我们168(460112400)于2013-08-07 13-50-40：
谢谢

CCarch

-(34833360)于2013-08-07 13-52-32：
[qqimg]{933F22EE-D2AD-0C9D-78AF-26BFC355B0EB}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-08-07 13-54-00：
[face76.gif]

CCarch

-(34833360)于2013-08-07 13-54-42：
[qqimg]{D530D302-63C4-55A1-29C8-A739674A07C7}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-08-07 13-55-03：
[qqimg]{427A8532-AB97-38C0-D835-026395279DCE}.gif[/qqimg]

磐石_Co;_Itd

磐石 Co; Itd(445098646)于2013-08-07 15-35-15：
师傅：给我点字体库。

CCarch

我们168(460112400)于2013-08-07 16-09-31：
(setq  bxh (getint (getstring  "\n请输入序号"))) ;序号数
怎么让在输入时出现一个默认值呢
谢谢

CCarch

我们168(460112400)于2013-08-07 16-38-52：
有人吗

CCarch

我们168(460112400)于2013-08-07 16-38-55：
(defun C:Bxh (/ pt1 pt2 pt3 radi txth xh)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq en (car (entsel "\n选取线: ")))
(setq pt10 (cdr (assoc 10 (entget en))))
(setq pt11 (cdr (assoc 11 (entget en))))
(setq ang (angle pt10 pt11))
(setq radi (* 2  alz-drawingScale)) ;圆圈半径
(setq txth (* 3  alz-drawingScale))
(setq ss (entlast))
(command "ucs" "e" ss)
(setq dimSidePoint (getpoint "\n请选择标注侧："))  ;☆☆☆☆☆标注侧☆☆☆☆☆
　　(setq pt1 (getpoint "\n请选择起点:")) ;
        (if (

CCarch

我们168(460112400)于2013-08-07 16-39-05：
帮我看看有什么问题

CCarch

我们168(460112400)于2013-08-07 16-39-11：
说参数太多

laibinwu

武影倾城(420932492)于2013-08-07 16-41-35：
凡超过10行以上的代码等（问题），请前往论坛发求助帖！

论坛地址：http://bbs.xdcad.net