[LISP程序]：简捷迅速的弧长标注小程序:

lsjjm · 发表于 2003-5-30 06:26:23

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

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

×

简捷迅速的弧长标注小程序:
(defun c:arclength ()
  (setq a (entsel "\nSelect Arc:"))
  (setq b (vlax-ename->vla-object (car a)))
  (setq c (rtos (vlax-get-property b 'arclength) 2 4))
  (vl-cmdf "_dimangular" a "t" c (getpoint (cadr a)) "")
)

qsh100 · 发表于 2003-5-30 13:07:40

怎么不能用啊

lsjjm · 发表于 2003-5-30 18:49:25

在程序开始加一行(vl-load-com)

xmchy · 发表于 2004-5-26 19:59:22

这个程序可以在r2004下使用，不能在r14下使用，但效果不理想

snsj · 发表于 2004-5-27 12:55:32

最初由 xmchy 发布
[B]这个程序可以在r2004下使用，不能在r14下使用，但效果不理想 [/B]

R14的
[php]
(defun c:ard (/ a)
(setvar "cmdecho" 1)
(setq a(entsel "\n选择弧:"))
(command "_dimangular" a "t" (rtos(cdr(assoc 40(entget(car a))))2 0)pause)
)
[/php]

maplesu · 发表于 2004-5-27 13:11:49

其实这个还是没有解决弧长标记的问题，还是不符合机械制图。
不知道有没有人解决这个问题呢？？
楼主这个弧长的标注的方法也是角度改的。和以前做的一样。
不过直接利用命令中的t来输入文字是我以前没有在意到的东西，一个很好的提示。

rungang2002 · 发表于 2004-10-17 16:18:52

数值上没有弧吧,不标准

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

[LISP程序]：简捷迅速的弧长标注小程序:

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

相关帖子

浏览过的版块