【e派】e派工具箱(XCAD)学习与提高

xyp1964

;; e派工具箱(XCAD)下载：http://xyp1964.ys168.com  QQ群: 24942984
;; 欢迎大家多多交流、拍砖、泼冷水……
;; 简单的编程申请也可以发进来，可视情况解决
【最新版本】：V2019.11.18

幻灯片库文件：



【V2012.11.18版本】

xyp1964

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTEyMzA3fDg5ZGEzMzJiZDM3Mzc2YjUzMjk5MzZiZmE0M2FkZWQ4fDE3MTQxMTc5Mzg%3D&request=yes&_f=.gif

wpidiguo

为什么每次出现错误呢？
显示：
“搜索路径内未找到幻灯片库文件：xyp1964.slb，无法正常显示对话框”
可到网址 [xyp1964.ys168.com] 下载

chlshw

这么好的工具，我咋就没发现呢？院长真来神人也，牛

xyp1964

最新功能：

zbwei120

院长的东西很好，我经常使用，谢谢

raobinhsh

能否提供工具箱里面每个命令的演示呀

露水2

支持一下，不错.

xyp1964

raobinhsh 发表于 2011-10-19 17:52
能否提供工具箱里面每个命令的演示呀

这个就得靠大家了……

GamIng

顶院长，支持院长。虽然不用院长工具箱。

whybry

功能很强大

xyp1964

2. 
   
3. ;; zxys(直线延伸)
   
4. (defun c:zxys (/ ilst ll1 ll2)
   
5.   (cmdla0)
   
6.   ;; __________________________________________________________________
   
7.   (defun main-pro (/ ss i s1)
   
8.     (if (setq s0 (car (entsel "\n选择边界线<退出>: ")))
   
9.       (progn
   
10. (redraw s0 3)
    
11. (princ "\n选择区域直线: ")
    
12. (setq ss (if (= bo4 "1")
    
13.      (ssget (list '(0 . "line") (cons 8 (nth (atoi po1) lst1))))
    
14.      (ssget '((0 . "line")))
    
15.    )
    
16. )
    
17. (if ss
    
18.    (progn
    
19.      (setq ptn '() i -1)
    
20.      (if (ssmemb s0 ss)
    
21.        (ssdel s0 ss)
    
22.      )
    
23.      (while (setq s1 (ssname ss (setq i (1+ i))))
    
24.        (if (not (xyp-get-Inters s0 s1 0))
    
25.   (setq pt  (car (xyp-get-Inters s1 s0 3))
    
26.         ptn (cons pt ptn)
    
27.         s1  (xyp-LinePtSub s1 pt)
    
28.   )
    
29.   (if (and (= bo2 "1")
    
30.     (setq ptn1 (xyp-get-Inters s0 s1 0))
    
31.     (= (length ptn1) 1)
    
32.       )
    
33.     (setq s1 (xyp-LinePtSub s1 (car ptn1)))
    
34.   )
    
35.        )
    
36.      )
    
37.      (if (and ptn (= bo1 "1") (xyp-etype s0 "LINE"))
    
38.        (setq ptn (cdr (xyp-Max-Pt2pt ptn))
    
39.       s0 (xyp-SubUpd s0 10 (car ptn))
    
40.       s0 (xyp-SubUpd s0 11 (cadr ptn))
    
41.        )
    
42.      )
    
43.    )
    
44. )
    
45. (redraw s0 4)
    
46.       )
    
47.     )
    
48.   )
    
49.   ;; __________________________________________________________________
    
50.   (defun abo4 ()
    
51.     (xyp-Dcl-Gettile '("bo4"))
    
52.     (cond ((= bo4 "1") (mode_tile "po1" 0) (mode_tile "k01" 0))
    
53.    ((= bo4 "0") (mode_tile "po1" 1) (mode_tile "k01" 1))
    
54.     )
    
55.   )
    
56.   (defun ak01 ()
    
57.     (if (setq s1 (car (entsel "\n选择<退出>: ")))
    
58.       (setq la (xyp-get-dxf 8 s1)
    
59.      po1 (itoa (- (length lst1) (length (member la lst1))))
    
60.       )
    
61.     )
    
62.     (sub)
    
63.   )
    
64.   ;; __________________________________________________________________
    
65.   (setq ll1 '(bo1 po1 bo4 bo2)
    
66. ll2 '("1" "0" "1" "1")
    
67.   )
    
68.   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
    
69.   (xyp-initSet ll1 ll2)
    
70.   (setq lst1 (xyp-get-layers)
    
71. ilst '(("bo1" "边界延伸" "bool")
    
72.         ("bo2" "短边消除" "bool")
    
73.         ":row{"
    
74.         ("bo4" "图层过滤" "bool" "(abo4)")
    
75.         ("po1" "" "poplist" "lst1" "8")
    
76.         ("k01" "" "i6" "-15" "2" "xyp1964(szx)" "(ak01)")
    
77.         "}"
    
78.         "spacer;"
    
79.         ("" "" "user""(abo4)")
    
80.         ("jbcs" "缺省参数" "button1" "(ajbcs)")
    
81.         "spacer;"
    
82.         "ioc"
    
83.        )
    
84.   )
    
85.   (if (= (xyp-Dcl-Init Ilst "【直线延伸】" t) 1)
    
86.     (main-pro)
    
87.   )
    
88.   (cmdla1)
    
89. )
    

<br /> ;; zxys(直线延伸)<br /> (defun c:zxys (/ ilst ll1 ll2)<br />   (cmdla0)<br />   ;; __________________________________________________________________<br />   (defun main-pro (/ ss i s1)<br />     (if (setq s0 (car (entsel "\n选择边界线<退出>: ")))<br />       (progn<br /> (redraw s0 3)<br /> (princ "\n选择区域直线: ")<br /> (setq ss (if (= bo4 "1")<br />      (ssget (list '(0 . "line") (cons 8 (nth (atoi po1) lst1))))<br />      (ssget '((0 . "line")))<br />    )<br /> )<br /> (if ss<br />    (progn<br />      (setq ptn '() i -1)<br />      (if (ssmemb s0 ss)<br />        (ssdel s0 ss)<br />      )<br />      (while (setq s1 (ssname ss (setq i (1+ i))))<br />        (if (not (xyp-get-Inters s0 s1 0))<br />   (setq pt  (car (xyp-get-Inters s1 s0 3))<br />         ptn (cons pt ptn)<br />         s1  (xyp-LinePtSub s1 pt)<br />   )<br />   (if (and (= bo2 "1")<br />     (setq ptn1 (xyp-get-Inters s0 s1 0))<br />     (= (length ptn1) 1)<br />       )<br />     (setq s1 (xyp-LinePtSub s1 (car ptn1)))<br />   )<br />        )<br />      )<br />      (if (and ptn (= bo1 "1") (xyp-etype s0 "LINE"))<br />        (setq ptn (cdr (xyp-Max-Pt2pt ptn))<br />       s0 (xyp-SubUpd s0 10 (car ptn))<br />       s0 (xyp-SubUpd s0 11 (cadr ptn))<br />        )<br />      )<br />    )<br /> )<br /> (redraw s0 4)<br />       )<br />     )<br />   )<br />   ;; __________________________________________________________________<br />   (defun abo4 ()<br />     (xyp-Dcl-Gettile '("bo4"))<br />     (cond ((= bo4 "1") (mode_tile "po1" 0) (mode_tile "k01" 0))<br />    ((= bo4 "0") (mode_tile "po1" 1) (mode_tile "k01" 1))<br />     )<br />   )<br />   (defun ak01 ()<br />     (if (setq s1 (car (entsel "\n选择<退出>: ")))<br />       (setq la (xyp-get-dxf 8 s1)<br />      po1 (itoa (- (length lst1) (length (member la lst1))))<br />       )<br />     )<br />     (sub)<br />   )<br />   ;; __________________________________________________________________<br />   (setq ll1 '(bo1 po1 bo4 bo2)<br /> ll2 '("1" "0" "1" "1")<br />   )<br />   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))<br />   (xyp-initSet ll1 ll2)<br />   (setq lst1 (xyp-get-layers)<br /> ilst '(("bo1" "边界延伸" "bool")<br />         ("bo2" "短边消除" "bool")<br />         ":row{"<br />         ("bo4" "图层过滤" "bool" "(abo4)")<br />         ("po1" "" "poplist" "lst1" "8")<br />         ("k01" "" "i6" "-15" "2" "xyp1964(szx)" "(ak01)")<br />         "}"<br />         "spacer;"<br />         ("" "" "user""(abo4)")<br />         ("jbcs" "缺省参数" "button1" "(ajbcs)")<br />         "spacer;"<br />         "ioc"<br />        )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【直线延伸】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )<br />

inhoo0

院长工具箱 赞一个