制造一个块,并且生成Lisp代码

鱼与熊掌

GUXL版主做过类似的工作,不用他的工具已经不能使用了.
73哥写过个类似的...
那天兴起自己写了个.比较有自己风格的函数.

具体如何使用 你们慢慢领悟.

;<<2015-06-12
;此功能已经集成到Lisp小助手中.Lisp小助手的下载地址

http://pan.baidu.com/s/1nt21xzF

另外共享中还有一些Lisp教学视频


希望对大家有所帮助

1. .;如果想使用该文件
   
2. ;关于cx-Ss2list cx-Etype 感谢XYP揭秘的通用函数
   
3. ;基点.选择集 块名 转换为属性文字的对象. 隐藏的属性文字对象70 1
   
4. ;(cx-write (cx-mak-sxb (getpoint) (ssget) "jjjj" (ssget) nil)"c:\\tt.lsp" nil)

复制代码

ucuc2003

记得G版是有这么一个程序，源码顶起来！

429014673

支持动态块吗

伪书虫86

支持一个，

鱼与熊掌

429014673 发表于 2015-5-25 07:02
支持动态块吗

肯定 是  没办法支持的....

hao3ren

文件是伪源码？

鱼与熊掌

hao3ren 发表于 2015-5-25 11:26
文件是伪源码？

好像是源码   缺什么函数?

hao3ren

cx-write好像木有

鱼与熊掌

hao3ren 发表于 2015-5-25 16:10
cx-write好像木有

...这个......自己写
关于Cx-catch 在论坛中有  ...

2. ;写入文件;str="123"或者'("11" "22");txt_str="c:\\cx-config.txt";fg=t nil;
   
3. (defun cx-write        (str txt_str fg / i TMPTXT)
   
4.   (if (= 'str (type str))
   
5.     (setq str (list str))
   
6.   )
   
7.   (SETQ TMPTXT
   
8.                 (cx-catch 'open (list txt_str (if fg "a" "w"))
   
9.                         '(progn
   
10.                                 (prompt "检测到错误.请检查账户权限.\n")
    
11.                                 (prompt "控制面板->用户帐户->更高用户帐户控制设置.进行调节..\n")
    
12.                                 (exit)
    
13.                         )
    
14.                 )
    
15.         )
    
16.   (setq i 0)
    
17.   (while (< i (length str))
    
18.     (write-line (nth i str) tmptxt)
    
19.     (setq i (1+ i))
    
20.   )
    
21.   (CLOSE TMPTXT)
    
22. )

;写入文件;str="123"或者'("11" "22");txt_str="c:\\cx-config.txt";fg=t nil;<br /> (defun cx-write        (str txt_str fg / i TMPTXT)<br />   (if (= 'str (type str))<br />     (setq str (list str))<br />   )<br />   (SETQ TMPTXT <br />                 (cx-catch 'open (list txt_str (if fg "a" "w"))<br />                         '(progn<br />                                 (prompt "检测到错误.请检查账户权限.\n")<br />                                 (prompt "控制面板->用户帐户->更高用户帐户控制设置.进行调节..\n")<br />                                 (exit)<br />                         )<br />                 )<br />         )<br />   (setq i 0)<br />   (while (< i (length str))<br />     (write-line (nth i str) tmptxt)<br />     (setq i (1+ i))<br />   )<br />   (CLOSE TMPTXT)<br /> )

hao3ren

很奇怪，其他的人都找到这个函数了？我是搜不到