[LISP函数]：画结构图标注板厚的LISP

ruppychen · 发表于 2004-6-29 22:41:29

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

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

×

画结构图标注板厚的LISP
defun c:BH(/ pt1 pt11 dis1 bh_text a)
   (setq oldos (getvar "osmode"))
   (setvar "osmode" 0)
   (setq pt1 (getpoint "\n板厚标注位置:"))
   (setq pt11 (polar pt1 0 550))
   (setq dis1 300)

   (setq bh_text (getstring "\n板厚<120>:"))
      (if (= bh_text "") (setq bh_text "120"))
      (setq a (tblsearch "style" "gjw2"))
      (if (not a)
      (command "style" "gjw2" "romans.shx,hztxt.shx" "" "0.75" "" "" "" "" "" ))

      (command "_ellipse" "_c" pt1 pt11 dis1 )
      (command "text" "s" "gjw2" "j" "mc" pt1  "250" "0"  (strcat "h=" bh_text))

      (setvar "osmode" oldos)
  )

lhg · 发表于 2004-6-30 12:56:32

好！谢谢！分享！

xjlmlxbq · 发表于 2004-6-30 13:22:05

少了个左括号

pxt2001 · 发表于 2004-9-23 00:13:32

请楼主再接再励，多贴一些结构专业的lisp程序。
先谢谢了。

saltxf · 发表于 2004-9-29 16:12:49

最好把你的字体romans.shx,hztxt.shx也共享出来。

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

[LISP函数]：画结构图标注板厚的LISP

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

相关帖子

浏览过的版块