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

xtdwynij · 发表于 2013-5-18 19:50:45

蜡笔小新爱喝五粮液(644169894)于2013-05-18 19-50-45：
没事做了又想优化一下我的代码.

xtdwynij · 发表于 2013-5-18 19:50:51

蜡笔小新爱喝五粮液(644169894)于2013-05-18 19-50-51：
感觉太杂了

xtdwynij · 发表于 2013-5-18 19:51:02

蜡笔小新爱喝五粮液(644169894)于2013-05-18 19-51-02：
[face13.gif]从重写过

CCarch · 发表于 2013-5-18 19:51:41

小蜜蜂(9034598)于2013-05-18 19-51-41：
嗯，以前我用 textbox 是把文字写出来在 entdel

CCarch · 发表于 2013-5-18 19:51:52

小蜜蜂(9034598)于2013-05-18 19-51-52：
后来发现啰嗦了，直接可以求

xtdwynij · 发表于 2013-5-18 19:52:26

蜡笔小新爱喝五粮液(644169894)于2013-05-18 19-52-26：
我试一下.

xtdwynij · 发表于 2013-5-18 19:52:28

蜡笔小新爱喝五粮液(644169894)于2013-05-18 19-52-28：
不懂再上来.

CCarch · 发表于 2013-5-18 20:21:27

仲文玉(411952877)于2013-05-18 20-21-27：
签到

守仁格竹GM · 发表于 2013-5-18 20:21:47

守仁格竹?????GM(23214352)于2013-05-18 20-21-47：
签到

守仁格竹GM · 发表于 2013-5-18 20:22:00

守仁格竹?????GM(23214352)于2013-05-18 20-22-00：
[face13.gif]

xtdwynij · 发表于 2013-5-18 20:34:04

蜡笔小新爱喝五粮液(644169894)于2013-05-18 20-34-04：
(defun c:wz ( / )
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "-style" "stangard" "gbcbig.shx" 7 1 0 "n" "n" "n" )
(setq pt1 (getpoint "\n请指定文字的起点:"))
(setq str (getstring "\n请输入字符串:"))
(setq str1 (strcat "2013 " str))
(command "text" "m" pt1 0 str1 "" "")
(setq ent (entget (entlast)))
(setq aa (textbox ent))
(setq pt10 (car aa)) (setq pt11 (cadr aa))
(command "rectang" pt10 pt11)
(setvar "osmode" 3)
(setvar "cmdecho" 1)
)

xtdwynij · 发表于 2013-5-18 20:34:28

蜡笔小新爱喝五粮液(644169894)于2013-05-18 20-34-28：
怎么得到的二个包围点不大对啊

CCarch · 发表于 2013-5-18 20:37:24

ZZXXQQ(1468225785)于2013-05-18 20-37-24：
要根据文字的插入点进行计算才行

xtdwynij · 发表于 2013-5-18 20:38:22

蜡笔小新爱喝五粮液(644169894)于2013-05-18 20-38-22：
好吧!我再看看

守仁格竹GM · 发表于 2013-5-18 20:38:30

守仁格竹?????GM(23214352)于2013-05-18 20-38-30：
(textbox '((1 . "Hello world.")))

账号		自动登录	找回密码
密码			立即注册