启动VLISP编辑器后，系统新增加的一些函数和变量

marting · 发表于 2018-9-13 15:27:36

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

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

×

命令: !dd
("VLISP-FIND-PROJECT" "VLISP-PROJECT-FAS-LIST" "VLISP-COMPILE" "VLISP-READ-FILE-XDV-LIST" "VLISP-MAKE-FILE-FAS" "VLISP-MAKE-PROJECT-LOAD-FILE" "VLISP-COMPILE-LIST" "VLISP-LOAD-PROJECT" "VLISP-READ-PROJECT-XDV-LIST" "VLISP-LIST-LOADED-PROJECTS" "VLISP-DROP-PROJECT" ":AUTOLISP" "VLISP-MAKE-PROJECT-FAS")

获得的方法是：

启动CAD后，在启动VLIDE前执行下下面命令

(defun c:get-vl-func (/ a b c )
(setq a (atoms-family 1))
(setq b (mapcar '(lambda (x)
(if (xdrx_string_regexps "^vl(.*)-" x)
(strcase x t)
)
)
a
)
)
(setq c (vl-remove nil b))
(setq d (vl-sort c '(lambda (x y) (< x y))))
)

然后启动VLIDE，再执行下面，就得到了

(defun c:tt (/ a b c)
(setq a (atoms-family 1))
(setq b (mapcar '(lambda (x)
(if (xdrx_string_regexps "^vl(.*)-" x)
(strcase x t)
)
)
a
)
)
(setq c (vl-remove nil b))
(setq dd (vl-sort c '(lambda (x y) (< x y))))
(setq dd nil)
(mapcar '(lambda (x)
(if (not (member x d))
(setq dd (cons x dd))
)
)
dd
)
)

huangpc27 · 发表于 2018-9-13 17:16:46

不明白是什么

xiyang27 · 发表于 2022-10-22 17:26:29

先执行(setq a1(atoms-family 1))
在启动vlide
在执行(vl-remove-if '(lambda(x)(vl-position x a1))(atoms-family 1))
也能有相同的效果

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

[研讨] 启动VLISP编辑器后，系统新增加的一些函数和变量

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