[求助]：在安装了VLISP14的R14上如何调用vl打头的函数？

maxbug · 发表于 2003-5-18 17:44:20

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

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

×

谢谢！

ll_j · 发表于 2003-5-18 19:17:55

只有在编辑器中可以调用，如果出来使用，可以编译成.arx文件加载。

aeo · 发表于 2003-5-18 20:59:44

装有vlisp的r14 先(vl-load-com). 编译成.arx .fas .vlx 更好

eachy · 发表于 2003-5-18 23:56:16

最初由 aeo 发布
[B]装有vlisp的r14 先(vl-load-com). 编译成.arx .fas .vlx 更好 [/B]

(vl-load-com)是2000+以上用的。
在R14下有两个文件Vlarts.arx Vlrts.arx对应VL中不同的类，用ARX命令加载后先要进行初始化。
R14下只能用ARX，2000+以上才支持 .fas .vlx
如果在R14下用VL建议下载Vlisp For R14 编辑器，下载中心、明经通道都有下载。
http://www.xdcad.net/down/show.php?id=84
http://www.mjtd.com/mcdown/list.asp?id=70

Command: (vlrts-init)
VL-EVAL-STR C:VL-EVAL defined
VL-LOAD, C:VL-LOAD defined
T
Command: (vlarts-init)
VL-EVAL-STR C:VL-EVAL defined
VL-LOAD, C:VL-LOAD defined
T

复制代码

maxbug · 发表于 2003-5-19 22:35:25

Command: _appload
Loading E:\Program Files\AutoCAD R14\VLISP\Vlarts.arx ...
File E:\Program Files\AutoCAD R14\VLISP\Vlarts.arx loaded.

Command: (vlarts-init)
VL-EVAL-STR C:VL-EVAL defined
VL-LOAD, C:VL-LOAD defined
T

Command: xamca_az2

内部点:
错误信息: no function definition: vlax-ename->vla-object; *** ERROR inside
*ERROR*: no function definition: MY_REV
Backtrace:
:ERROR-BREAK.6 nil
:ERROR-BREAK.3 nil

贴上lisp代码

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;命令名称：XamCa_Az2
;;基本功能：计算暗柱面积和配筋率,将结果写在TEXT图层上。
;;外部函数：XamLib_Init,XamLib_Entsel,XamLib_Rev,XamLib_Drtxt
;;外部变量：XamVa_Sca
;;修改过程：
;; 2002.7.25
;; 2003.3.23
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:XamCa_Az2
(/ ename vlaobject az_area pj_str pj_as ent_lst pt1 pt2)
(defun fun_getas (pj_str / n_pj d_pj)
(if (wcmatch pj_str "*%%*")
(progn
(setq n_pj (atoi pj_str)
d_pj (atoi (substr pj_str (+ 6 (strlen (itoa n_pj)))))
)
(* n_pj d_pj d_pj 0.25 pi)
)
(eval 0)
)
)
;;主程序。
(XamLib_Init)
(if (not XamVa_Sca)
(setq XamVa_Sca (getdist "\n放大倍数:"))
)
(vl-load-com)
(if (bpoly (getpoint "\n内部点: "))
(progn
(setq ename (entlast)
vlaobject (vlax-ename->vla-object ename)
az_area (* XamVa_Sca
XamVa_Sca
(vlax-curve-getarea vlaobject)
)
)
(entdel ename)
(princ "\n暗柱面积为: ")
(princ az_area)
(princ "mm2")
(if (setq tmp_sel (XamLib_Entsel "\n纵筋字符串" '((0 . "TEXT"))))
(progn
(setq ent_lst (entget (car tmp_sel))
pj_as (fun_getas (cdr (assoc 1 ent_lst)))
)
(if (and (setq pt1 (getpoint "\n面积插入点: "))
(setq pt2 (getpoint "\n配筋率插入点: "))
)
(progn
(XamLib_Drtxt
(list "TEXT"
pt1
(cdr (assoc 40 ent_lst))
(rtos az_area 2 0)
(cdr (assoc 7 ent_lst))
0
)
)
(XamLib_Drtxt
(list "TEXT"
pt2
(cdr (assoc 40 ent_lst))
(rtos (/ pj_as 0.01 az_area) 2 3)
(cdr (assoc 7 ent_lst))
0
)
)
)
(progn
(princ "\n暗柱配筋率为: ")
(princ (/ pj_as 0.01 az_area))
)
)
)
)
)
)
(XamLib_Rev)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;命令名称：XamCa_Az2 
;;基本功能：计算暗柱面积和配筋率,将结果写在TEXT图层上。 
;;外部函数：XamLib_Init,XamLib_Entsel,XamLib_Rev,XamLib_Drtxt 
;;外部变量：XamVa_Sca 
;;修改过程：   
;;         2002.7.25 
;;         2003.3.23 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(defun c:XamCa_Az2 
       (/ ename vlaobject az_area pj_str pj_as ent_lst pt1 pt2) 
 
  (defun fun_getas (pj_str / n_pj d_pj) 
    (if        (wcmatch pj_str "*%%*") 
      (progn 
        (setq n_pj (atoi pj_str) 
              d_pj (atoi (substr pj_str (+ 6 (strlen (itoa n_pj))))) 
        ) 
        (* n_pj d_pj d_pj 0.25 pi) 
      ) 
      (eval 0) 
    ) 
  ) 
  ;;主程序。 
  (XamLib_Init) 
  (if (not XamVa_Sca) 
    (setq XamVa_Sca (getdist "\n放大倍数:")) 
  ) 
  (vl-load-com) 
  (if (bpoly (getpoint "\n内部点: ")) 
    (progn       
      (setq ename     (entlast) 
            vlaobject (vlax-ename->vla-object ename) 
            az_area   (* XamVa_Sca 
                         XamVa_Sca 
                         (vlax-curve-getarea vlaobject) 
                      ) 
      ) 
      (entdel ename) 
      (princ "\n暗柱面积为: ") 
      (princ az_area) 
      (princ "mm2") 
      (if (setq tmp_sel (XamLib_Entsel "\n纵筋字符串" '((0 . "TEXT")))) 
        (progn 
          (setq        ent_lst        (entget (car tmp_sel)) 
                pj_as        (fun_getas (cdr (assoc 1 ent_lst))) 
          ) 
          (if (and (setq pt1 (getpoint "\n面积插入点: ")) 
                   (setq pt2 (getpoint "\n配筋率插入点: ")) 
              ) 
            (progn 
              (XamLib_Drtxt 
                (list "TEXT" 
                      pt1 
                      (cdr (assoc 40 ent_lst)) 
                      (rtos az_area 2 0) 
                      (cdr (assoc 7 ent_lst)) 
                      0 
                ) 
              ) 
              (XamLib_Drtxt 
                (list "TEXT" 
                      pt2 
                      (cdr (assoc 40 ent_lst)) 
                      (rtos (/ pj_as 0.01 az_area) 2 3) 
                      (cdr (assoc 7 ent_lst)) 
                      0 
                ) 
              ) 
            ) 
            (progn 
              (princ "\n暗柱配筋率为: ") 
              (princ (/ pj_as 0.01 az_area)) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (XamLib_Rev) 
)

eachy · 发表于 2003-5-19 22:58:21

R14下注释掉 (vl-load-com)

maxbug · 发表于 2003-5-20 21:11:10

我在程序中去掉(vl-load-com)还是不行,
看来只有放弃R14,改用2002了：）
程序在2002内没问题。

ll_j · 发表于 2003-5-20 21:25:49

R14与R2000的VL函数并不相同，R14比R2000少些，也有些R14的函数在R2000中被取消了。

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

[求助] [求助]：在安装了VLISP14的R14上如何调用vl打头的函数？

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

相关帖子