[求助]：如何标注一条样条曲线的线长

fxdfy · 发表于 2005-6-21 22:39:56

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

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

×

问大家如何测量和标注一条样条曲线的线长？

fxdfy · 发表于 2005-6-21 23:48:54

怎样知道长度呢？

xyp1964 · 发表于 2005-6-22 00:40:23

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
;;;曲线线长标注
(defun c:test ()
(CMDLA0)
(jzhz)
(setvar "dimasz" (* sc 300))
(if (and (setq e (entsel "\n选择曲线:"))
(wcmatch (dxf 0 (entget (car e)))
"*LINE,ARC,CIRCLE,ELLIPSE"
)
)
(progn
(setq p (cadr e)
e (car e)
leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
v1 (vlax-curve-getfirstderiv
e
(vlax-curve-getparamatpoint
e
(setq p (vlax-curve-getclosestpointto e p))
)
)
p1 (mapcar '+ p v1) ;切线
)
(command "leader"
p
(polar p (+ (angle p p1) (* pi 0.5)) (* sc 2000))
""
(rtos leng 2 3)
""
)
)
)
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib") 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 
1.在acad.lsp中增加(load"xyp_lib") 
2.在每个程序内增加(load"xyp_lib") 
3.在command下，输入(load"xyp_lib") 
4.在菜单.mnl中增加(load"xyp_lib") 
5.将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|; 
 
;;;曲线线长标注 
(defun c:test () 
  (CMDLA0) 
  (jzhz) 
  (setvar "dimasz" (* sc 300)) 
  (if (and (setq e (entsel "\n选择曲线:")) 
           (wcmatch (dxf 0 (entget (car e))) 
                    "*LINE,ARC,CIRCLE,ELLIPSE" 
           ) 
      ) 
    (progn 
      (setq p         (cadr e) 
            e         (car e) 
            leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) 
            v1         (vlax-curve-getfirstderiv 
                   e 
                   (vlax-curve-getparamatpoint 
                     e 
                     (setq p (vlax-curve-getclosestpointto e p)) 
                   ) 
                 ) 
            p1         (mapcar '+ p v1)        ;切线 
      ) 
      (command "leader" 
               p 
               (polar p (+ (angle p p1) (* pi 0.5)) (* sc 2000)) 
               "" 
               (rtos leng 2 3) 
               "" 
      ) 
    ) 
  ) 
  (CMDLA1) 
)[/FONT]

天之乐 · 发表于 2005-6-22 01:34:54

楼上的方法太好了，我收下了！

czad · 发表于 2005-6-22 11:25:41

点那曲线，面板里不就有了么。

fxdfy · 发表于 2005-6-22 20:26:19

谢谢斑竹指教!

zhangxl_0326 · 发表于 2005-7-15 23:46:27

xyp1964斑竹你好：
请问我把代码保存到记事本，另存为标注一条样条曲线的线长.lsp，先加载通用函数 xyp_lib.vlx ，再加载标注一条样条曲线的线长.lsp后提示错误（CAD2004)是怎么回事？如图：
再有我不太懂程序，请问是什么命令？
谢谢！

jids · 发表于 2005-7-16 07:55:49

用list命令就可以知道其长度

xyp1964 · 发表于 2005-7-16 08:11:43

最初由 zhangxl_0326 发布
[B]xyp1964斑竹你好：
请问我把代码保存到记事本，另存为标注一条样条曲线的线长.lsp，先加载通用函数 xyp_lib.vlx ，再加载标注一条样条曲线的线长.lsp后提示错误（CAD2004)是怎么回事？如图：
再有我不太懂程序，请... [/B]

[php]
(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：http://www.xdcad.net/forum/attachme...&postid=1606661|;

;;;曲线线长标注
(defun c:test149 ()
  (CMDLA0)
  (jzhz)
  (setvar "dimasz" (* sc 300))
  (if (and (setq e (entsel "\n选择曲线:"))
   (wcmatch (dxf 0 (entget (car e)))
      "*LINE,ARC,CIRCLE,ELLIPSE"
   )
   )
(progn
   (setq p    (cadr e)
      e    (car e)
      leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
      v1    (vlax-curve-getfirstderiv e
   (vlax-curve-getparamatpoint e
      (setq p (vlax-curve-getclosestpointto e p))
   )
   )
      p1    (mapcar '+ p v1);切线
   )
   (command "leader"    p
         (polar p (+ (angle p p1) (* pi 0.5)) (* sc 2000)) ""
         (rtos leng 2 3) ""
   )
)
  )
  (CMDLA1)
)[/php]

编译程序，加载后命令：qxcd

zhangxl_0326 · 发表于 2005-7-16 16:18:21

对不起，再打扰您一下，这次加载后到没有提示语法错误，但输入命令回车后没有反应
您再看看，是不是我的操作由问题：

xyp1964 · 发表于 2005-7-16 16:54:48

最初由 zhangxl_0326 发布
[B]对不起，再打扰您一下，这次加载后到没有提示语法错误，但输入命令回车后没有反应
您再看看，是不是我的操作由问题： [/B]

试试9楼编译好的程序，直接加载，命令qxcd。

zhangxl_0326 · 发表于 2005-7-16 21:55:24

谢谢xyp1964斑竹的帮助
已经可以使用了，效果很好，帮了我一个大忙
谢谢！

xyp1964 · 发表于 2005-7-16 23:27:38

最初由 zhangxl_0326 发布
[B]谢谢xyp1964斑竹的帮助
已经可以使用了，效果很好，帮了我一个大忙
谢谢！ [/B]

估计你的加载方法多少还是有点问题！
不过能用就好。

zhangxl_0326 · 发表于 2005-7-17 00:51:46

最初由 xyp1964 发布
[B]
估计你的加载方法多少还是有点问题！
不过能用就好。 [/B]

谢谢斑竹的指点，通用函数 xyp_lib.vlx 和标注程序我都是在删除/加载应用程序里加载的，刚才我按您说明的方法将xyp_lib.vlx文件直接拽到cad屏幕，然后加载标注程序，前几个不能使用的程序都可以使用了，看样子真的是我加载的问题，不过我不明白为什么在删除/加载应用程序里加载会出问题呢，请您讲一下好吗？

xyp1964 · 发表于 2005-7-17 09:06:48

偶从来不在“删除/加载应用程序里”加载程序，这点不太清楚。
在说明里的5种加载方法，第1种最好，一劳永逸；第5种适于临时应用某程序。

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

[求助]：如何标注一条样条曲线的线长

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

相关帖子