【e派工具箱函数库(XYPLIB)的再开发利用】

xyp1964

利用xcad.vlx内置函数库实现新的功能……
欢迎交流！

图块遮蔽

eachy

很给力啊！没有什么伪源码，就是编译过的，思路最重要！

欢迎 XYP 正式回归，每个程序中对一些函数的用法最好给个说明，参数是什么也好让大家能更好更快的自己DIY

xyp1964

[pcode=lisp,true];; dcl文本浏览 2013-06-01
(defun c:test1290 ()
  (defun apo1 ()
    (xyp-Dcl-Gettile '("path" "po1"))
    (setq lst1 (vl-directory-files path "*.txt" 1)
   lst1 (vl-sort lst1 '<)
   a    (nth (atoi po1) lst1)
   lst2 (xyp-Txt2List (strcat path "\\" a))
   tx   (apply 'strcat lst2)
    )
    (set_tile "ptx" tx)
  )
  (defun apath ()
    (xyp-Dcl-Gettile '("path"))
    (setq lst1 (vl-directory-files path "*.txt" 1)
   lst1 (vl-sort lst1 '<)
    )
    (xyp-Show-List po1 lst1)
  )
  (xyp-initSet '(path po1 li1) '("d:\\block\\txt" "0" "0"))
  (setq lst1 (if lst1
        lst1
        '()
      )
ilst '(("path" "路径" "str" "50" "(apath)")
        ("po1" "文件" "poplist" "lst1" "49" "(apo1)")
        ("ptx" "内容" "ptext" "str1" "50" "20")
        "spacer;"
        "ioc"
       )
  )
  (xyp-Dcl-Init Ilst "【文本浏览】" t)
  (princ)
)[/pcode]

eachy

xyp1964 发表于 2013-6-4 08:23
;; dcl文本浏览 2013-06-01
(defun c:test1290 ()
  (defun apo1 ()

介绍一下 DCL 函数的具体用法吧，不然猜起来就费时间了，有机会也用用院长这个库写写程序

XDSoft

欢迎XYP正式成为编程申请论坛版主。确实如EACHY所说，没什么伪源码，看要做什么。希望XYP以后能多多的给大家写程序，XYP不怕麻烦，大家踊跃向他提出申请吧。

dwg001

XYP是lisp界的常青树了，保持多年的兴趣不减，难能可贵。

XDSoft

你说你的是伪源码，让我的XDRX_API情何以堪啊，以后你的API正式起名叫 XYP-LIB吧。必要时候讲讲每个函数的用法，对有能力再开发的用户是帮助。

炫翔

{:soso_e179:}
支持！

Lispboy

过来精神上支持下，肉体也支持下。{:soso_e120:}

kwok

时间上也支持一下，问题总要人提出，才有解答.

我的我啊我

lz这个怎么实现的啊

xyp1964

[pcode=lisp,true];; jdzb(交点遮蔽)
(defun c:jdzb (/ ss i ptn pt)
  (CMDLA0)
  (xyp-initSet '(dist) '(1000.))
  (setq dist (Udist 1 "" "圆点半径<输入或鼠标直接量取>" dist nil))
  (defun aaa (pt d)
    (command "_polygon" 36 pt "i" (polar pt 0 d))
    (command "wipeout" "p" (entlast) "y")
  )
  (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ptn (xyp-Get-CurveIntersLeng s1 1)
   ptn (cdr (reverse (cdr ptn)))
    )
    (foreach pt ptn (aaa pt dist))
    (command "draworder" s1 "" "f")
  )
  (command "wipeout" "f" "off")
  (CMDLA1)
)[/pcode]

Lispboy

xyp1964 发表于 2013-6-5 19:01
;; jdzb(交点遮蔽)
(defun c:jdzb (/ ss i ptn pt)
  (CMDLA0)

提个建议啊，把线和WIPEOUT做成组，这样可以一定程度防止线移动位置后，WIPEOUT丢失的情况。

xyp1964

Lispboy 发表于 2013-6-5 19:32
提个建议啊，把线和WIPEOUT做成组，这样可以一定程度防止线移动位置后，WIPEOUT丢失的情况。

确实是个好建议

haoryh007

路过支持一下！