明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1099|回复: 6

这个提示什么意思,该怎样改?

[复制链接]
发表于 2011-6-9 15:06:54 | 显示全部楼层 |阅读模式
本帖最后由 tianyuan 于 2011-6-10 08:52 编辑

我下载了关于沿曲线标注桩号的程序,但在运行时提示“; 错误: no function definition: VLAX-CURVE-GETPOINTATDIST”不知什么意思,该怎样改写呢?先谢了。程序如下:
(defun c:ezhbz ()
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq str_2 (strcat "\n给定文字高度<" (rtos (getvar "textsize") 2) ">:"))
   (setq th (getreal str_2))
   (if (= th nil) (setq th (getvar "textsize")))
   (if (setq en (car (entsel "\n选择路径曲线:")))
   (redraw en 3)
   (*error* "\n没有选到曲线!")
   )
   (if (= nil (setq dist (getreal "\n给定间距<50m>:"))) (setq dist 50.0))
   (setq nn 1)
   (while
   (setq pt1 (vlax-curve-getPointAtDist en (* nn dist)))
   (setq zhz (* nn dist))
   (if (< zhz 1000.0) (setq str_1 (strcat "K0+" (rtos zhz 2 3) "m")))
      (progn
   (setq nn1 (fix (/ zhz 1000.0)))
   (setq nn2 (- zhz (* 1000.0 nn1)))
   (setq str_1 (strcat "K" (rtos nn1 2) "+" (rtos nn2 2 3) "m"))
   (if (= nn2 0.0) (setq str_1 (strcat "K" (rtos nn1 2) "+000m")))
   )
   )
   (setq ang (a-get-Angle en pt1))
   (setq pt2 (polar pt1 (+ (/ pi 2) ang) (* th 8)))
   (command "line" pt1 pt2 "")
   (setq ang2 (r2d (angle pt2 pt1)))
   (command "text" "bl" pt2 th ang2 str_1 )
  
   (setq nn (1+ nn))
   )
   (redraw en 4)
   (setvar "osmode" os)
   (princ)
  )
  
  ;切线角度pt-ang
  (defun a-get-Angle (ename point / p1 v1 pt-ang)
   (setq v1 (vlax-curve-getfirstderiv
      (vlax-curve-getparamatpoint ename point)
   )
   p1 (mapcar '+ point v1)
   pt-ang (angle point p1)
   )
   pt-ang
  )
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2011-6-9 15:46:19 | 显示全部楼层
(defun c:ezhbz ()
  (vl-load-com)        ; add this line
....
发表于 2011-6-9 15:47:29 | 显示全部楼层
意思是没有“VLAX-CURVE-GETPOINTATDIST”函数定义。
开头加上
(vl-load-com)

 楼主| 发表于 2011-6-9 15:52:01 | 显示全部楼层
还是不行,命令: EZHBZ
给定文字高度<0.2000>:6
选择路径曲线:
给定间距<50m>:10
; 错误: no function definition: R2D
发表于 2011-6-9 16:41:16 | 显示全部楼层
本帖最后由 zhynt 于 2011-6-9 16:42 编辑

你的这个程序不全,缺少函数定义,有可能是作者在其他的地方定义的。
试试在最后附上:
(defun r2d (ang)
  (* (/ ang PI) 180)
)
发表于 2011-6-9 17:25:22 | 显示全部楼层
感谢分享程序!
 楼主| 发表于 2011-6-9 17:41:47 | 显示全部楼层
Ok,在大家的帮助下这个程序终于可以用了,谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-7-26 08:54 , Processed in 0.144334 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表