明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 王咣生

简约而不简单

    [复制链接]
 楼主| 发表于 2004-5-19 18:03 | 显示全部楼层

回复

好程序
发表于 2004-5-22 14:33 | 显示全部楼层
无痕很厉害啊


程序都很精简和经典
发表于 2004-5-25 14:23 | 显示全部楼层
来了好几趟,还是这儿好。


支持多发程序。


我虽然不会发程序,但会给你们摇旗呐喊的!
发表于 2004-5-26 23:40 | 显示全部楼层
久不久投放一颗深水炸弹:)
  1. ;|(xl_div lst nom)表分段. -> 返回 分段的表.     ------by 无痕.2004.1
  2. ; lst = 表,nom = 分段的子表元素个数(从1开始计).
  3. ; 测试: (xl_div '(1 2 3 4 5 6 7 8 9) 3) -> ((1 2 3) (4 5 6) (7 8 9))
  4.                (xl_div '(1 2 3 4 5 6 7 8 9 10 11) 3) -> ((1 2 3) (4 5 6) (7 8 9) (10 11))  
  5.                (xl_div '(17086.8 5666.8 0.0 16093.0 8693.12 0.0 16093.0 7827.36 0.0 16093.0 6639.13 0.0) 3)
  6.                -> ((17086.8 5666.8 0.0) (16093.0 8693.12 0.0) (16093.0 7827.36 0.0) (16093.0 6639.13 0.0))
  7.                (xl_div nil 2) -> nil
  8. |;;方法7. ok!**************************************************
  9. (defun xl-div (lst x / lst2)
  10.    (foreach n lst
  11.        (if (and   lst2 (/= x (length (car lst2))))     
  12.   (setq lst2 (cons (append (car lst2)(list n))(cdr lst2)))
  13.   (setq lst2 (cons (list n) lst2))
  14.        )
  15.    )(reverse lst2)
  16. )  
发表于 2004-6-8 18:10 | 显示全部楼层
经典,顶
发表于 2004-6-11 21:26 | 显示全部楼层
太好了!但我一时好像用不上.
 楼主| 发表于 2004-6-21 09:59 | 显示全部楼层

回复

期待您的好贴,与我们共享哦
发表于 2004-6-21 11:08 | 显示全部楼层
取对象的10号组码. 谁可以用简易的方法去每个点表的10呀? (setq ent (nentsel "\nSelect a Polyline or spline: "))
(vl-remove-if-not '(lambda(x) (= 10 (car x))) (entget(car ent)))
发表于 2004-6-28 12:17 | 显示全部楼层
别光说不练,现在就发。。。 Public Function 提取多行文字(文字串 As String)
Dim 多行文字1 As String
Dim 多行文字 As String
Dim 多行文字2 As String
Dim 数据(0 To 1)

Dim i As Integer

i = 0: 数据(0) = "": 多行文字1 = 文字串
处理:
Do Until Len(多行文字1) = 0
多行文字 = Left(多行文字1, 1)
If 多行文字 = "\" Then
多行文字2 = Mid(多行文字1, 2, 1)
Select Case 多行文字2
Case "\"
数据(0) = 数据(0) + "\"
Case "{"
数据(0) = 数据(0) + "{"
Case "}"
数据(0) = 数据(0) + "}"
Case "~" '插入不间断空格
数据(0) = 数据(0) + " "
Case "P" '结束段落
数据(0) = 数据(0) + vbCr
End Select
多行文字1 = Mid(多行文字1, 3): GoTo 处理
End If
If 多行文字 = "{" Then
数据(1) = Mid(多行文字1, 3, InStr(多行文字1, ";") - 3)
多行文字1 = Mid(多行文字1, InStr(多行文字1, ";") + 1): GoTo 处理
End If
If 多行文字 = "}" Then 多行文字1 = Mid(多行文字1, 2): GoTo 处理
数据(0) = 数据(0) + 多行文字: 多行文字1 = Mid(多行文字1, 2)
Loop
提取多行文字 = 数据
End Function
发表于 2004-6-28 12:21 | 显示全部楼层
我喜欢用vb/vba...
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 20:10 , Processed in 0.184869 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表