[LISP程序]：坐标标注LISP

monkeyzxp · 发表于 2005-6-3 22:16:01

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

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

×

请问哪位大虾有坐标标注的LISP程序（用在模具设计中，比如以一个点为坐标原点，然后以坐标的方式标出其它圆的中心坐标。）

jsrlb · 发表于 2005-6-4 02:41:38

常青藤工具里面就有坐标标注的命令。
http://www.xdcad.net/forum/showthread.php?s=&threadid=322975

free-wangjin · 发表于 2005-6-4 13:37:13

;col.lsp
;坐标旁注线（Co-ordinate leader）
;标注旁注线箭头尖点的x，y坐标值。

(defun c:col()
(setq BLAYER "08")
(command "layer" "m" BLAYER "")
(setq pt (getpoint "\n旁注线从...点： "))
(setq x(rtos(car pt)))
(setq y(rtos(cadr pt)))
(setq pt1 (getpoint pt "\n到...点： "))
(command "leader" pt pt1 "" x y "" )
(princ)
)

iam0411 · 发表于 2005-7-24 20:18:56

3楼的也非常好用。谢谢。

lyl6414300 · 发表于 2006-3-28 15:04:18

楼主的坐标还好用能不能修改一下保证可以缩放呀！我标注后字体全乱了。

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

[LISP程序]：坐标标注LISP

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

相关帖子

浏览过的版块