求DXF输出路径 LISP

wuwubaibai

vitalgg 发表于 2021-3-4 10:04
http://atlisp.cn   @lisp 基础函数库

已经安装基础函数库
但还是出现以上资讯~无法执行

vitalgg

wuwubaibai 发表于 2021-3-4 20:45
已经安装基础函数库
但还是出现以上资讯~无法执行

有图有真相。

wuwubaibai

vitalgg 发表于 2021-3-4 21:17
有图有真相。

大大因我无法上传图片~但我能确定有载入~因为我打得出@@这个视窗~~不知道是不是我是繁体中文版的会有差别吗

vitalgg

wuwubaibai 发表于 2021-3-5 20:34
大大因我无法上传图片~但我能确定有载入~因为我打得出@@这个视窗~~不知道是不是我是繁体中文版的会有差别 ...

好吧，那个 @工程管理 对繁体支持不太好。但是应该能用。 不要用 @@ 面板，你那个@lisp 菜单 是乱码不？

直接输入命令 mj-req 就可以了执行你的要求了。

wuwubaibai

vitalgg 发表于 2021-3-5 20:41
好吧，那个 @工程管理 对繁体支持不太好。但是应该能用。 不要用 @@ 面板，你那个@lisp 菜单 是乱码不？  ...

视窗是乱码没错~输入指令显示找不到指令

vitalgg

wuwubaibai 发表于 2021-3-6 13:59
视窗是乱码没错~输入指令显示找不到指令

@U
@i  at-pm
在CAD中输入以上命令

vitalgg

把函数整合了。你试下。

1. (defun string:from-lst        (lst Separator)
   
2.   "列表转成字符串"
   
3.   (if        (cdr lst)
   
4.         (strcat (car lst) Separator (string:from-lst (cdr lst) Separator))
   
5.         (car lst)
   
6.         )
   
7.   )
   
8. 
   
9. (defun string:to-lst        (str Separator / pos)
   
10.   "字符串转成列表"
    
11.   (if        (setq pos (vl-string-search Separator str))
    
12.         (cons (substr str 1 pos)
    
13.               (string:to-lst (substr str (+ pos 1 (strlen Separator))) Separator)
    
14.               )
    
15.         (list str)
    
16.         )
    
17.   )
    
18. 
    
19. (defun at-pm:saveas-dxf (file-name file-path ss)
    
20.   "save selected entity to dxf"
    
21.   (if (and (= 'str (type file-name))
    
22.            (/= "" file-name)
    
23.            (vl-file-directory-p file-path)
    
24.            (> (sslength ss) 0))
    
25.       (progn
    
26.         ;;(push-var)
    
27.         (setq file-name
    
28.               (string:from-lst
    
29.                (reverse (cdr (reverse (string:to-lst file-name "."))))
    
30.                "."))
    
31.         (setvar "cmdecho" 0)
    
32.         (setvar "filedia" 0)
    
33.         (vl-cmdf "_.dxfout" (strcat file-path "\\" file-name)  "O" ss "" "16" )
    
34.         ;;(pop-var)
    
35.         T)
    
36.       nil
    
37.       )
    
38.   (setvar "filedia" 1)
    
39.   )
    
40. 
    
41. (defun c:mj-req ()
    
42.   (at-pm:saveas-dxf
    
43.    (getvar "DWGNAME")
    
44.    "C:\\2dTO3d"
    
45.    (ssget '((-4 . "<NOT") (8 . "DIM,TEMP")(-4 . "NOT>")))))
    
46. 
    

(defun string:from-lst        (lst Separator)<br />   "列表转成字符串"<br />   (if        (cdr lst)<br />         (strcat (car lst) Separator (string:from-lst (cdr lst) Separator))<br />         (car lst)<br />         )<br />   )<br /> <br /> (defun string:to-lst        (str Separator / pos)<br />   "字符串转成列表"<br />   (if        (setq pos (vl-string-search Separator str))<br />         (cons (substr str 1 pos)<br />               (string:to-lst (substr str (+ pos 1 (strlen Separator))) Separator)<br />               )<br />         (list str)<br />         )<br />   )<br /> <br /> (defun at-pm:saveas-dxf (file-name file-path ss)<br />   "save selected entity to dxf"<br />   (if (and (= 'str (type file-name))<br />            (/= "" file-name)<br />            (vl-file-directory-p file-path)<br />            (> (sslength ss) 0))<br />       (progn<br />         ;;(push-var)<br />         (setq file-name<br />               (string:from-lst<br />                (reverse (cdr (reverse (string:to-lst file-name "."))))<br />                "."))<br />         (setvar "cmdecho" 0)<br />         (setvar "filedia" 0)<br />         (vl-cmdf "_.dxfout" (strcat file-path "\\" file-name)  "O" ss "" "16" )<br />         ;;(pop-var)<br />         T)<br />       nil<br />       )<br />   (setvar "filedia" 1)<br />   )<br /> <br /> (defun c:mj-req ()<br />   (at-pm:saveas-dxf<br />    (getvar "DWGNAME")<br />    "C:\\2dTO3d"<br />    (ssget '((-4 . "<NOT") (8 . "DIM,TEMP")(-4 . "NOT>")))))<br /> <br />

wuwubaibai

vitalgg 发表于 2021-3-6 19:16
把函数整合了。你试下。

大大~测试成功~非常感谢~程式真的是博大精深

lengxiaxi

vitalgg 发表于 2021-3-6 19:16
把函数整合了。你试下。

(getvar "DWGNAME")   这里，如何改成手动命名；有时候自定义名称可能灵活些

vitalgg

lengxiaxi 发表于 2024-3-13 14:23
(getvar "DWGNAME")   这里，如何改成手动命名；有时候自定义名称可能灵活些

(getstring "请输入文件名称:")