[LISP程序]：标注零件小程序

fj0813luo · 发表于 2004-11-27 19:17:39

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

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

×

标注零件号的小程序，欢迎大家多提宝贵意见。
加载后，点击“ce”即可，然后按提示操作。

zk_hisen · 发表于 2004-11-28 20:55:29

初步使用后，感觉有一定的实用价值，不过程序中的变量需要注为局部，否则容易出错，这是编程习惯问题了。

ljs026 · 发表于 2004-12-10 11:08:33

大大厲害唷

vesa · 发表于 2005-5-23 15:12:37

命令: _appload 已成功加载 272885_piece mark.lsp。
命令:
错误: 输入的列表有缺陷

我用不了，
敬请大侠支招。

zxcvbnm-cad · 发表于 2005-5-23 16:49:22

楼主不能用请看看
命令: (LOAD "C:/Documents and Settings/dongfang/桌面/piece mark.lsp")
错误: 输入的列表有缺陷
2000和2005都不能用

PFD8667 · 发表于 2005-7-23 19:44:17

下载了,用不了啊?

001_boy · 发表于 2005-10-14 19:45:09

我是繁體版,沒法用

瀛丹 · 发表于 2005-10-16 12:40:46

下载后好象用不了。。。

glyxmj · 发表于 2005-10-25 14:16:03

1楼楼主的程序多了一个括号
正确的如下：
(defun c:ce ()
  (command "layer" "n" "文字标注" "c" "6" "文字标注" "")
  (command "layer" "s" "文字标注" "")
  (setq p1 (getpoint "\n请选择插入点:"))
  (setq p2 (getpoint p1 "\n请选择文字插入的位置:"))
  (setq st1 (getstring "\n请输入编号:"))
  (setq sc (getvar "dimscale"))
  (command "style" "text" "宋体" (* 3 sc) 0.8 "0" "n" "n")
  (setq radiu (* sc 3))
  (setq dd (distance p1 p2))
  (setq p3 (polar p1 (angle p1 p2) (- dd radiu)))
  (setvar "osmode" 0)
  (command "line" p1 p3 "")
  (command "circle" p2 radiu)
  (setq st1 st1)
  (command "text" "s" "text" "j" "mc" p2 "0" st1 "" "")
  (setvar "osmode" osmodetemp)
  (command "layer" "s" "尺寸标注" "")
)
保正100%能用

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

[LISP程序]：标注零件小程序

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

相关帖子