lisp捕捉垂足_晓东CAD家园-论坛-A/VLISP-[求助]：怎么样用lisp程序能透明调用另一个lisp程序？-;透明调用捕捉到垂足点(defun c:[() (princ "") (com...

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

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

x

;透明调用捕捉到垂足点

(defun c:[()

(princ "")

(command "per")

(princ)

)

(defun c:d()

(princ "\n*** 查询真实三维距离→打开正交&对象捕捉&对象追踪 ***")

(setq cm (getvar "cmdecho"))

(setq os (getvar "osmode"))

(setq ot (getvar "orthomode"))

(setq au (getvar "autosnap"))

(setq *error* hv_err)

(setvar "cmdecho" 1)

(setvar "osmode" 4151)

(setvar "orthomode" 1)

(setvar "autosnap" 55)

(setvar "dimassoc" 2)

(command "dist")

(while (/= 0 (getvar "cmdactive"))(command pause))   (setvar "cmdecho" cm)

(setvar "osmode" os)

(setvar "orthomode" ot)

(setvar "autosnap" au)

(princ)

)

怎么用下面的lisp程序能透明的调用上面的个lisp程序呀？

谢谢！

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册