此程序的文字高度只在循环中记的高度，而在退出时再运行就不行，帮下忙啦，谢谢

liminnet · 发表于 2008-7-29 09:28

提示: 作者被禁止或删除内容自动屏蔽

"觉得好，就打赏"

打赏

还没有人打赏，支持一下

liminnet · 发表于 2008-7-29 10:17

提示: 作者被禁止或删除内容自动屏蔽

caoyin · 发表于 2008-7-29 10:33

删掉 (setvar "textsize" 500)

liminnet · 发表于 2008-7-29 10:40

提示: 作者被禁止或删除内容自动屏蔽

caoyin · 发表于 2008-7-29 11:45

(defun c:tczw (/ ss ent str)
(setvar "textsize" 500)
(while (setq ss (entsel "\n点取对象: "))
    (setq ent (entget (car ss))
          str (cdr (assoc 8 ent))
          hi (getreal (strcat "\n请输入文字高度<" (rtos (if hi hi (getvar "textsize")) 2) ">:"))
    )
    (princ "***** 文字内容 = ") (princ str) (princ " *****")
    (if (= hi nil) (setq hi (getvar "textsize")) (setvar "textsize" hi))
    (IF (SETQ PT (GETPOINT "\n点取放置点: "))
        (command "-text" pt hi "" str)
    )
)
(princ)
)

liminnet · 发表于 2008-7-29 11:58

提示: 作者被禁止或删除内容自动屏蔽

caoyin · 发表于 2008-7-29 12:35

本帖最后由作者于 2008-7-29 13:48:53 编辑

(defun c:tczw (/ ss ent str e)
(setvar "textsize" 500)
(setvar "cmdecho" 0)
(while (setq ss (entsel "\n点取对象: "))
    (setq ent (entget (car ss))
          str (cdr (assoc 8 ent))
          hi (getreal (strcat "\n请输入文字高度<" (rtos (if hi hi (getvar "textsize")) 2) ">:"))
    )
    (princ "***** 文字内容 = ") (princ str) (princ " *****")
    (if (= hi nil) (setq hi (getvar "textsize")) (setvar "textsize" hi))
    (command "_.text" "_non" "0,0" hi "" str)
    (setq e (entlast))
    (command "_.cutclip" e "")
    (princ "\n点取放置点: ")
    (command "_.pasteclip" "\\")
)
(princ)
)

liminnet · 发表于 2008-7-29 14:49

提示: 作者被禁止或删除内容自动屏蔽

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

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-7-29 09:28 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽 "觉得好，就打赏" 打赏还没有人打赏，支持一下

	回复使用道具举报置顶卡变色卡显身卡

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-7-29 10:17 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-7-29 10:40 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-7-29 11:58 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-7-29 14:49 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡