网上找到一个注解输出的lisp，请大家观赏一下

yang198910204 · 发表于 2011-8-22 22:49:02

本帖最后由 yang198910204 于 2011-9-3 13:23 编辑

顺便请高手帮忙看看
里面有个 "对不起!试用期巳过,请安装正版!"
是不是里面写了限制次数的源码在里面帮忙删一下啦
还有里面
请教一下大家比如：导柱孔，弹簧孔，，等等这些。我要怎么画才能让程序识别我的呢？？
(cond ((= "LSPM" (strcase str_no_list))
      (setq str_ent1 " 内六角螺丝牙孔(攻牙)"
      str_ent2 "-M"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPN" (strcase str_no_list))
      (setq str_ent1 " 塞打螺丝(MSB)"
      str_ent2 "-M"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPZ" (strcase str_no_list))
      (setq str_ent1 " 子母螺丝(MSW)"
      str_ent2 "-M"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPP" (strcase str_no_list))
      (setq str_ent1 " 导柱孔(线割，单边%%P0)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPF" (strcase str_no_list))
      (setq str_ent1 " 导套孔(线割，单边%%P0,%%c背面沉深3.5)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text (+ 5 MI_text)
      )
      )
      ((= "LSPD" (strcase str_no_list))
      (setq str_ent1 " 定位销孔(线割，单边+0.00)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPG" (strcase str_no_list))
      (setq str_ent1 " 浮升销孔(线割，单边+0.01)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPL" (strcase str_no_list))
      (setq str_ent1 " 顶料销孔(线割，单边+0.01)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPS" (strcase str_no_list))
      (setq str_ent1 " 弹簧孔(钻通)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPH" (strcase str_no_list))
      (setq str_ent1 " 导正销孔(线割，单边+0.005,%%C正面沉深＊)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPA" (strcase str_no_list))
      (setq str_ent1 " 冲子(TA)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text (+ 1.5 MI_text)
      )
      (if (> (atof str_ent3) 18)
(setq str_ent3 (strcat (substr nam_no_list 5 1)
   "."
   (substr nam_no_list 6)
   )
      MI_text (/ (atof str_ent3) 2)
      BIG_text (+ 1.5 MI_text)
)
      )
      )
      ((= "LSPC" (strcase str_no_list))
      (setq str_ent1 " 冲子(SH)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text (+ 1.5 MI_text)
      )
      (if (> (atof str_ent3) 18)
(setq str_ent3 (strcat (substr nam_no_list 5 1)
   "."
   (substr nam_no_list 6)
   )
      MI_text (/ (atof str_ent3) 2)
      BIG_text (+ 1.5 MI_text)
)
      )
      )
      ((= "LSPE" (strcase str_no_list))
      (setq str_ent1 " 抽牙冲子(TE)"
      str_ent2 "-%%C"
      str_ent3 (substr nam_no_list 5)
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text (+ 1.5 MI_text)
      )
      (if (> (atof str_ent3) 18)
(setq str_ent3 (strcat (substr nam_no_list 5 1)
   "."
   (substr nam_no_list 6)
   )
      MI_text (/ (atof str_ent3) 2)
      BIG_text (+ 1.5 MI_text)
)
      )
      )
      ((= "LSPW" (strcase str_no_list))
      (setq str_ent1 "的异形孔(线割，单边+0.00)"
      str_ent2 "-穿丝孔为%%C"
      str_ent3 (strcat (substr nam_no_list 5 1)
         "."
         (substr nam_no_list 6 1)
      )
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text MI_text
      )
      )
      ((= "LSPR" (strcase str_no_list))
      (setq str_ent3 (substr nam_no_list 5)
      str_ent1 (strcat " 螺丝沉头孔(正面沉头深度*) "
         insert_3
      )
      str_ent2 "-M"
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text (+ 2 MI_text)
      )
      )
      ((= "LSPB" (strcase str_no_list))
      (setq str_ent3 (substr nam_no_list 5)
      str_ent1 (strcat " 螺丝沉头孔(背面沉头深度*) "
         insert_3
      )
      str_ent2 "-M"
      MI_text  (/ (atof (substr nam_no_list 5)) 2)
      BIG_text (+ 2 MI_text)
      )
      )
      (t
      (setq str_ent1 nam_no_list
      str_ent2 "-"
      str_ent3 "(线割，单边+0.00)"
      MI_text  4
      BIG_text 6
      )
      )
  )
这些代码是啥意思
我要怎么画它才能认别
我是菜鸟哦

LYC688 · 发表于 2021-12-21 03:53:18

nxchenjk 发表于 2011-8-30 22:42
(> cdat 20000430)改为(> cdat 30000430) 可用到3000年4月30号

也不行，，，，，，，，

htlaser · 发表于 2021-12-21 08:41:49

(setq cdat (atoi (rtos (getvar "cdate"))))
(if (> cdat 0)

浴火鸟TYTYJ · 发表于 2017-9-12 14:14:22

这种杂乱的LSP画五金模具很痛苦的,去网上下了下TASIPRESSCAD,有系统的功能,购正版也几百块钱.

zhuangxu_521 · 发表于 2011-8-30 15:00:41

不错挺实用的

liu_kunlun · 发表于 2011-8-30 17:44:13

用途？用法？

nxchenjk · 发表于 2011-8-30 22:42:10

(> cdat 20000430)改为(> cdat 30000430) 可用到3000年4月30号

yang198910204 · 发表于 2011-9-3 13:20:46

我是想问一下大家的是：比如说导柱孔，弹簧孔等这些要怎么画程序才能识别呢？？

690994 · 发表于 2011-9-4 20:16:19

看你的这个是用块名判断的吧,统赢用的是扩展数据,我做这个模板标注也是用扩展数据

lenlenq · 发表于 2011-9-5 21:53:08

扩展数据-3

kwok · 发表于 2011-9-5 22:43:06

高深的lsp,...

忘情封 · 发表于 2011-10-10 15:11:12

不错的分享~~~！！！

lohas1118 · 发表于 2011-10-10 15:19:49

谢谢分享

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

网上找到一个注解输出的lisp，请大家观赏一下

本帖子中包含更多资源

点评