找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1869|回复: 14

[LISP函数]:奇怪的问题

[复制链接]

已领礼包: 8个

财富等级: 恭喜发财

发表于 2002-2-5 09:32:00 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
奇怪的问题
(if        (tblsearch "style" "hz")
      (SETVAR "TEXTSTYLE" "hz")
      (progn
        (command "-style" "hz" "txt,HZTXT" "" "0.7" "" "" "")
        (SETVAR "TEXTSTYLE" "hz")
      )
    )

上述片段在AutoCAD中可以通过,在AutoCAD2002中通过不了!
请教各位,有何高招?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2002-2-5 10:58:29 | 显示全部楼层
是否你的ACAD2002的FONTS支持目录里没有HZTXT.SHX ?


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-2-5 11:30:41 | 显示全部楼层
还有一种情况,不同的字体定义时的反应还不同,
使用时要区分。
(sty3 "S" "ROMANC.shx,S.shx" 1.0)
(sty2 "DXFS" "ROMANS.shx,DXFS.shx" 0.7)
(DEFUN sty2 (#sty #zt #w)
  (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "" "")
)
(DEFUN sty3 (#sty #zt #w)
  (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "")
)
当然acad中能用应该不是这个问题。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-2-5 11:31:33 | 显示全部楼层
(if (tblsearch "style" "hz")
(SETVAR "TEXTSTYLE" "hz")
(progn
;(command "-style" "hz" "txt,hztxt" "" "0.7" "" "" "") ;欠一个""
(command "-style" "hz" "txt,hztxt" "" "0.7" "" "" "" "")
(SETVAR "TEXTSTYLE" "hz")
)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2002-2-5 12:48:32 | 显示全部楼层
命令: _ddscw-qy;;lsp的命令
字体已保留用于显示多行文字对话框中的 SHX 字体。未知命令“DDSCW-QY”。按 F1
查看帮助。
未知命令“0.7”。按 F1 查看帮助。
未知命令“DDSCW-QY”。按 F1 查看帮助。
未知命令“DDSCW-QY”。按 F1 查看帮助。
未知命令“DDSCW-QY”。按 F1 查看帮助。
; 错误: AutoCAD 变量设置被拒绝: "TEXTSTYLE" "hz"

而在AutoCAD2002中没有问题的呀
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2002-2-5 12:51:21 | 显示全部楼层
;;ddscw-qy的一开始就运行下列判断,出错,取消它,运行就OK!
或着hz型设置好后,没有问题,
(if (tblsearch "style" "hz")
(SETVAR "TEXTSTYLE" "hz")
(progn
(command "-style" "hz" "txt,HZTXT" "" "0.7" "" "" "")
(SETVAR "TEXTSTYLE" "hz")
)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2002-2-5 13:25:01 | 显示全部楼层
在2002中的style比r14多一个回车,用下面的代码试试

  1. (if (tblsearch "style" "01")
  2.   (SETVAR "TEXTSTYLE" "01")
  3.   (command "-style" "01" "txt,HZTXT" "" "0.7" "" "" "" "")
  4. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2002-2-5 20:17:55 | 显示全部楼层
呵呵,试了一次,还是不行
在Vlisp编辑器中直接加载,命令行如下提示:

命令: 'VLIDE
字体已保留用于显示多行文字对话框中的 SHX 字体。未知命令“VLIDE”。按 F1
查看帮助。
未知命令“0.7”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-2-5 22:16:21 | 显示全部楼层
在R14中可以通过  但假如定义在acad中自动加载就出错了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-2-7 20:58:53 | 显示全部楼层
"-style" 换为"style" 看看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2002-2-8 13:30:01 | 显示全部楼层
还是不OK!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-2-8 16:05:29 | 显示全部楼层
不知你那儿为何调不通。下面是我用来配置字体的程序,用了两个方案,
第一个是shx字的(常用),第二个是shx+ttf字(用于方案等处),
你试一下。我怀疑还是我前头说的,style命令调用后,不同字体的选项
不同。



  1. (DEFUN c:sty1 (/ k)
  2.   (command "-style" "standard" "romans" "" 0.6 15 "" "" "")
  3.   (SETQ        K (acqs        "\n请选择字型配置方案: 1-DXFS+S; 2-DXFS+S+ST1+HT1 " "1"))
  4.   (COND
  5.     ((= "1" K)
  6.      (sty3 "S" "ROMANC.shx,S.shx" 1.0)
  7.      (sty2 "DXFS" "ROMANS.shx,DXFS.shx" 0.7)
  8.     )
  9.     ((= "2" K)
  10.      (sty3 "S" "ROMANC,S" 1.0)
  11.      (sty3 "ST1" "SIMSUN.TTF" 0.7)
  12.      (sty3 "HT1" "SIMHEI.TTF" 1)
  13.      (sty2 "DXFS" "ROMANS,DXFS" 0.7)
  14.     )
  15.     (T)
  16.   )(princ)
  17. )
  18. (DEFUN sty2 (#sty #zt #w)
  19.   (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "" "")
  20. )
  21. (DEFUN sty3 (#sty #zt #w)
  22.   (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "")
  23. )



这段程序我至今还用,尤其调用别人的图时,运行一下,就加入了自己的字体。
另外,standard还是斜字好,重线时不会被盖住,施工图里还是应该注意的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2002-2-8 19:14:35 | 显示全部楼层
菜兄:
    acqs是什么?没有贴全?呵呵
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2002-2-9 12:40:05 | 显示全部楼层
呵呵.cad的安装有问题
汉字型放在fonts目录下不行,放在别的可以搜索到的路径下就OK!
呵呵,奇怪的很
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6530个

财富等级: 富甲天下

发表于 2002-3-1 12:40:19 | 显示全部楼层
不知解决了没有,其实HZTXT.shx有两个版本,是关于竖排文字的,在命令“style”中可以看出。可以用(command "style" "sty1" "txt,hztxt" "" "0.7" "" "" "")(command)解决。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 21:24 , Processed in 0.456862 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表