Express 函数使用说明---压缩包里的是高飞鸟大神放出的英文版

XTdwynij

(defun c:Dr (/ ss basept newpt)
  (setq ss (ssget)
        basept (getpoint "\n指定基点: "))
  (if (vl-catch-all-error-p (vl-catch-all-apply '(lambda () (setq newpt (acet-ss-drag-move ss basept "新位置: " t 0))))) ; newpt返回用户点击的点
      (princ "\ncad版本过低或者没有安装Express导致失去拖动郊果")   
  )
  (alert "我还能执行")
  (princ)
);举个例子。使移动有拖动郊果。这些函数还是很强大的。包含Windows注册表，文件夹操作函数，错误函数处理，字符串排序，进度条等等等。有兴趣的大佬可以下载玩玩，小白就算了！
本来想要拉伸时也想要一个拖动郊果的。但是  办不到呀小菜。  

XTdwynij

本人借助了外部的英文翻译，没有全部使用过这些函数，有需要的朋友可以下载看一下目录，自己去研究。

不一样地设计

感谢楼主分享！