vitalgg 发表于 2021-3-4 10:04
http://atlisp.cn @lisp 基础函数库
已经安装基础函数库
但还是出现以上资讯~无法执行
本帖最后由 vitalgg 于 2021-3-4 21:19 编辑
wuwubaibai 发表于 2021-3-4 20:45
已经安装基础函数库
但还是出现以上资讯~无法执行
http://atlisp.cn/static/saveas-dxf.gif
有图有真相。
vitalgg 发表于 2021-3-4 21:17
有图有真相。
大大因我无法上传图片~但我能确定有载入~因为我打得出@@这个视窗~~不知道是不是我是繁体中文版的会有差别吗
本帖最后由 vitalgg 于 2021-3-5 20:46 编辑
wuwubaibai 发表于 2021-3-5 20:34
大大因我无法上传图片~但我能确定有载入~因为我打得出@@这个视窗~~不知道是不是我是繁体中文版的会有差别 ...
好吧，那个 @工程管理 对繁体支持不太好。但是应该能用。 不要用 @@ 面板，你那个@lisp 菜单 是乱码不？
直接输入命令 mj-req 就可以了执行你的要求了。
vitalgg 发表于 2021-3-5 20:41
好吧，那个 @工程管理 对繁体支持不太好。但是应该能用。 不要用 @@ 面板，你那个@lisp 菜单 是乱码不？...
视窗是乱码没错~输入指令显示找不到指令
wuwubaibai 发表于 2021-3-6 13:59
视窗是乱码没错~输入指令显示找不到指令
@U
@iat-pm
在CAD中输入以上命令
把函数整合了。你试下。
(defun string:from-lst (lst Separator)
"列表转成字符串"
(if (cdr lst)
(strcat (car lst) Separator (string:from-lst (cdr lst) Separator))
(car lst)
)
)
(defun string:to-lst (str Separator / pos)
"字符串转成列表"
(if (setq pos (vl-string-search Separator str))
(cons (substr str 1 pos)
(string:to-lst (substr str (+ pos 1 (strlen Separator))) Separator)
)
(list str)
)
)
(defun at-pm:saveas-dxf (file-name file-path ss)
"save selected entity to dxf"
(if (and (= 'str (type file-name))
(/= "" file-name)
(vl-file-directory-p file-path)
(> (sslength ss) 0))
(progn
;;(push-var)
(setq file-name
(string:from-lst
(reverse (cdr (reverse (string:to-lst file-name "."))))
"."))
(setvar "cmdecho" 0)
(setvar "filedia" 0)
(vl-cmdf "_.dxfout" (strcat file-path "\\" file-name)"O" ss "" "16" )
;;(pop-var)
T)
nil
)
(setvar "filedia" 1)
)
(defun c:mj-req ()
(at-pm:saveas-dxf
(getvar "DWGNAME")
"C:\\2dTO3d"
(ssget '((-4 . "<NOT") (8 . "DIM,TEMP")(-4 . "NOT>")))))
vitalgg 发表于 2021-3-6 19:16
把函数整合了。你试下。
大大~测试成功~非常感谢~程式真的是博大精深
vitalgg 发表于 2021-3-6 19:16
把函数整合了。你试下。
(getvar "DWGNAME") 这里，如何改成手动命名；有时候自定义名称可能灵活些
lengxiaxi 发表于 2024-3-13 14:23
(getvar "DWGNAME") 这里，如何改成手动命名；有时候自定义名称可能灵活些
(getstring "请输入文件名称:")