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

hhh454

院长的东西，都是刚刚的

tianyi1230

院长的工具是很强大，但是菜鸟还是摸不透啊

仲文玉

e派工具箱，实在、强劲；
带个U盘走天下，嗨，管用

display18

一直在用，强大ing

xxywxtk

好东东啊！
支持院长!

xiaxiang

永硕网盘居然在一个小时之内就下载超限？

zhengchuan

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

xyp1964

2. 
   
3. ;; ykhz(腰孔绘制)
   
4. (defun c:ykhz (/ ilst l1 l2)
   
5.   (cmdla0)
   
6.   (defun main-pro (/ p1 p2 p3 p4)
   
7.     (while (setq p0 (getpoint "\n基点<退出>: "))
   
8.       (setq p1 (xyp-get-Pt2XY p0 (* leng -0.5) (* wide -0.5))
   
9.      p2 (xyp-get-Pt2XY p0 (* leng 0.5) (* wide -0.5))
   
10.      p3 (xyp-get-Pt2XY p0 (* leng 0.5) (* wide 0.5))
    
11.      p4 (xyp-get-Pt2XY p0 (* leng -0.5) (* wide 0.5))
    
12.       )
    
13.       (command "pline" p1 p2 "a" P3 "l" p4 "a" p1 "cl")
    
14.       (if (/= ang 0)
    
15. (xyp-rotate (entlast) P0 ang)
    
16.       )
    
17.     )
    
18.   )
    
19.   (setq l1 '(leng wide ang)
    
20. l2 '(1000. 500. 0.)
    
21.   )
    
22.   (defun ajbcs () (xyp-Multiple-Settile l1 l2))
    
23.   (xyp-initSet l1 l2)
    
24.   (setq ilst '(("k0" "" "imagebutton" "-2" "24" "xyp1964(yaokong)" "(c:iny)")
    
25.         "spacer;"
    
26.         ("leng" "腰孔长度" "real" "8")
    
27.         ("wide" "腰孔宽度" "real" "8")
    
28.         ("ang" "旋转角度" "real" "8")
    
29.         "spacer;"
    
30.         ("jbcs" "缺省参数" "button1" "(ajbcs)")
    
31.         "spacer;"
    
32.         "ioc"
    
33.        )
    
34.   )
    
35.   (if (= (xyp-Dcl-Init Ilst "【腰孔绘制】" t) 1)
    
36.     (main-pro)
    
37.   )
    
38.   (cmdla1)
    
39. )
    

<br /> ;; ykhz(腰孔绘制)<br /> (defun c:ykhz (/ ilst l1 l2)<br />   (cmdla0)<br />   (defun main-pro (/ p1 p2 p3 p4)<br />     (while (setq p0 (getpoint "\n基点<退出>: "))<br />       (setq p1 (xyp-get-Pt2XY p0 (* leng -0.5) (* wide -0.5))<br />      p2 (xyp-get-Pt2XY p0 (* leng 0.5) (* wide -0.5))<br />      p3 (xyp-get-Pt2XY p0 (* leng 0.5) (* wide 0.5))<br />      p4 (xyp-get-Pt2XY p0 (* leng -0.5) (* wide 0.5))<br />       )<br />       (command "pline" p1 p2 "a" P3 "l" p4 "a" p1 "cl")<br />       (if (/= ang 0)<br /> (xyp-rotate (entlast) P0 ang)<br />       )<br />     )<br />   )<br />   (setq l1 '(leng wide ang)<br /> l2 '(1000. 500. 0.)<br />   )<br />   (defun ajbcs () (xyp-Multiple-Settile l1 l2))<br />   (xyp-initSet l1 l2)<br />   (setq ilst '(("k0" "" "imagebutton" "-2" "24" "xyp1964(yaokong)" "(c:iny)")<br />         "spacer;"<br />         ("leng" "腰孔长度" "real" "8")<br />         ("wide" "腰孔宽度" "real" "8")<br />         ("ang" "旋转角度" "real" "8")<br />         "spacer;"<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 />

xyp1964

2. ;; jdzb(交点遮蔽)
   
3. (defun c:jdzb (/ ss i ptn pt)
   
4.   (CMDLA0)
   
5.   (xyp-initSet '(dist) '(1000.))
   
6.   (setq dist (Udist 1 "" "圆点半径<输入或鼠标直接量取>" dist nil))
   
7.   (defun aaa (pt d)
   
8.     (command "_polygon" 36 pt "i" (polar pt 0 d))
   
9.     (command "wipeout" "p" (entlast) "y")
   
10.   )
    
11.   (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
    
12. i  -1
    
13.   )
    
14.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
15.     (setq ptn (xyp-Get-CurveIntersLeng s1 1)
    
16.    ptn (cdr (reverse (cdr ptn)))
    
17.     )
    
18.     (foreach pt ptn
    
19.       (aaa pt dist)
    
20.     )
    
21.     (command "draworder" s1 "" "f")
    
22.   )
    
23.   (command "wipeout" "f" "off")
    
24.   (CMDLA1)
    
25. )

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

xyp1964

2. 
   
3. ;; 原点批量插图块(指定目录下的全部dwg文件)
   
4. (defun c:tt (/ pf path lst)
   
5.   (defun sub (path lst mode / a name)
   
6.     (foreach a lst
   
7.       (setq name (strcat path a)
   
8.             name (if (= mode 0)
   
9.                    name
   
10.                    (strcat "*" name)
    
11.                  )
    
12.       )
    
13.       (command "insert" name "0,0" "1" "1" "")
    
14.     )
    
15.   )
    
16.   (setq        dwg  (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8)
    
17.         path (strcat (vl-filename-directory dwg) "\")
    
18.         lst  (vl-directory-files path "*.dwg" 1)
    
19.         ukw  (UKWORD 1 "1 2" "1-按块插入/2-解块插入" ukw)
    
20.   )
    
21.   (prompt "\n程序正在插入图幅，请等待...")
    
22.   (cond        ((= ukw "1") (sub path lst 0))
    
23.         ((= ukw "2") (sub path lst t))
    
24.   )
    
25.   (princ)
    
26. )
    
27. (defun ukword (bit kwd msg def / inp)
    
28.   (if (and def (/= def ""))
    
29.     (setq msg (strcat "\n" msg "<" def ">: ")
    
30.           bit (* 2 (fix (/ bit 2)))
    
31.     )
    
32.     (setq msg (strcat "\n" msg ": "))
    
33.   )
    
34.   (initget bit kwd)
    
35.   (setq inp (getkword msg))
    
36.   (if inp
    
37.     inp
    
38.     def
    
39.   )
    
40. )

<br /> ;; 原点批量插图块(指定目录下的全部dwg文件)<br /> (defun c:tt (/ pf path lst)<br />   (defun sub (path lst mode / a name)<br />     (foreach a lst<br />       (setq name (strcat path a)<br />             name (if (= mode 0)<br />                    name<br />                    (strcat "*" name)<br />                  )<br />       )<br />       (command "insert" name "0,0" "1" "1" "")<br />     )<br />   )<br />   (setq        dwg  (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8)<br />         path (strcat (vl-filename-directory dwg) "\")<br />         lst  (vl-directory-files path "*.dwg" 1)<br />         ukw  (UKWORD 1 "1 2" "1-按块插入/2-解块插入" ukw)<br />   )<br />   (prompt "\n程序正在插入图幅，请等待...")<br />   (cond        ((= ukw "1") (sub path lst 0))<br />         ((= ukw "2") (sub path lst t))<br />   )<br />   (princ)<br /> )<br /> (defun ukword (bit kwd msg def / inp)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getkword msg))<br />   (if inp<br />     inp<br />     def<br />   )<br /> )