找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 606|回复: 0

[求助]:谁能帮帮我,help

[复制链接]
发表于 2006-12-15 21:10:30 | 显示全部楼层 |阅读模式

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

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

×
由于我要用别人的lsp程序,在acad2007.lsp内加入了下面所示一部分内容
  (setvar "modemacro" (strcat
;    "$(getvar,clayer)"
;    " Ti_$(substr,$(rtos,$(getvar,cdate),2,6),10,2):"
;    "$(substr,$(rtos,$(getvar,cdate),2,6),12)"
    " BL_$(rtos,$(getvar,userr1),2,0)"
    " $(getvar,textstyle)_$(getvar,textsize)"
    " Fi_$(getvar,filletrad)"
    " Pl_$(getvar,plinewid)"
    " Df_$(getvar,dimlfac)"
    "$(if,$(>,$(getvar,osmode),0), Os_$(getvar,osmode))"))
;    "$(if,$(>,$(getvar,orthomode),0), Ot)"))
;    "$(if,$(>,$(getvar,snapmode),0), Sn)"
;    " $(substr,$(getvar,dwgname),4)")
;    " $(getvar,cmdnames)"))
  (setq fh78 0 fh65 0 fh72 0 fh85 0 fh70 370)
  (setq bl (getvar "USERR1"))
  (if (= bl 0.0) (setq bl 1.0))
  (setq blx (/ bl 100.0))
  (setq d0 (* bl 10) d1 (* bl 15) d2 (* bl 43) d3 (* bl 47))
  (setq d4 (* bl 15) d5 (* bl 25) d6 (* bl 35) d7 (* bl 51) d8 (* bl 37))
  (setvar "textsize" (* bl 2.5))
  (setvar "DIMgap" (* bl 0.8))
;  (setvar "DIMtsty" "RMS")
  (setvar "DIMdec" 0)
  (setvar "DIMtdec" 0)
  (setvar "DIMfit" 5)
(defun *error* (msg)
  (princ (strcat "\nerror: " msg "\n"))
  (princ)
)
然后加载上的lsp就可以正常运行了,不过cad的最下面出现了如下图所示的东西 就是坐标前多了一排东西,不知道是什么意思,怎么能去掉还能不影响cad及lsp功能的正常使用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-9-21 19:09 , Processed in 0.313678 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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