加载 xd-lisp-lib.vlx 是什么怎么加载

1309128734

论坛上找到的源码  使用的时候 出现  错误: no function definition: XD::BEGIN  不知道怎么回事  然后有个高人让我加载 xd-lisp-lib.vlx  我更笨不知道这是什么 也不知道怎么加载 也找不到这个东西  就蒙圈了  然后高人可能这几天比较忙 也没空回我留言 我就更蒙了 不知道怎么办 求高人帮忙解释 详细一点的 谢谢 如下为源码



(defun c:XDTB_Dimlines (/ ss e pts an dm)
  (defun mkrotate (p1 p2 p3 an / dm)
    (setq dm (xdrx_dimension_makerotate p1 p2 p3 an))
    (mapcar '(lambda (x) (xdrx_setpropertyvalue dm x t))
     '("Dimsd1" "Dimsd2" "Dimse1" "Dimse2")
    )
  )
  (if (setq ss (ssget '((0 . "*polyline,line"))))
    (progn
      (xd::begin)
      (xdrx_setsstodb ss 0)
      (while (setq e (xdrx_getentdata 0))
(if (= (xdrx_getpropertyvalue e "IsA") "AcDbLine")
   (progn (setq pts (xdrx_curve_getpoint e)
         an  (xdrx_getpropertyvalue e "Angle")
   )
   (mkrotate (car pts) (last pts) (cadr pts) an)
   )
   (progn
     (setq pts (xdrx_entity_getstretchpoint e))
     (mapcar
       '(lambda (p1 p2 / d pcen midp)
   (if (zerop (xdrx_polyline_getbulgeat
         e
         (fix (xdrx_curve_getparamatpoint e p1))
       )
       )
     (mkrotate p1 p2 (xdrx_line_midp p1 p2) (angle p1 p2))
     (progn
       (setq d (xdrx_curve_getdistatpoint e p1 p2)
      pcen (cadr
      (xdrx_polyline_getArcSegAt
        e
        (fix (xdrx_curve_getparamatpoint e p1))
      )
    )
      midp (xdrx_curve_getpointatparam
      e
      (/ (+ (xdrx_curve_getparamatpoint e p1)
     (xdrx_curve_getparamatpoint e p2)
         )
         2.
      )
    )
      dm (xdrx_dimension_make2lang
      pcen p1 pcen p2 midp)
       )
       (mapcar '(lambda (x) (setpropertyvalue dm x t))
        '("Dimsd1" "Dimsd2" "Dimse1" "Dimse2")
       )
       (xdrx_setpropertyvalue dm "Dimtext" (rtos d 2 2))
     )
   )
        )
       pts
       (cdr pts)
     )
   )
)
      )
      (xd::end)
    )
  )
  (princ)
)

st788796

置顶帖子
（12月8日更新）晓东开源通用LISP函数库

源码在“函数发布”

1309128734

谢谢你  嘻嘻

yinzhiw

下载这个xd-lisp-lib-1208.rar 怎么只有特定用户才能下载呢

yangpeng0718

是怎么弄好的啊

XDSoft

yinzhiw 发表于 2014-7-11 21:15
下载这个xd-lisp-lib-1208.rar 怎么只有特定用户才能下载呢

积分要到50

eversky

哦，终于明白为什么无法运行了！！！！！！

cg19740411

谢谢关注,我现在就需要这个

xdj86

逼着我下载啊，太好了

xdj86

我连库都下载不了

孝诚达爱

来看一看，学习一下，，，#在这里快速回复#

小子330

我来学习来了

南京张

烦烦烦烦烦福福福福福福福福福

LV_XR

eversky 发表于 2015-1-29 13:17
哦，终于明白为什么无法运行了！！！！！！

明白了，能分享出来，说明情况嘛？我也搞不懂啊

LV_XR

最后怎么解决啊？？？？