网上找到一个注解输出的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_text4
   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

谢谢分享

页: [1] 2

明经CAD社区's Archiver

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