社区 › AutoCAD工具插件 › 【e派】e派工具箱(XCAD)学习与提高

hhh454 发表于 2011-10-19 19:53:43

院长的东西，都是刚刚的

tianyi1230 发表于 2011-10-19 19:58:31

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

仲文玉 发表于 2011-10-19 19:59:47

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

display18 发表于 2011-10-19 20:20:46

一直在用，强大ing

xxywxtk 发表于 2011-10-19 20:21:50

好东东啊！
支持院长!

xiaxiang 发表于 2011-10-19 21:30:04

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

zhengchuan 发表于 2011-10-19 22:36:35

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

xyp1964 发表于 2011-10-20 07:19:16

;; ykhz(腰孔绘制)
(defun c:ykhz (/ ilst l1 l2)
(cmdla0)
(defun main-pro (/ p1 p2 p3 p4)
    (while (setq p0 (getpoint "\n基点<退出>: "))
      (setq p1 (xyp-get-Pt2XY p0 (* leng -0.5) (* wide -0.5))
   p2 (xyp-get-Pt2XY p0 (* leng 0.5) (* wide -0.5))
   p3 (xyp-get-Pt2XY p0 (* leng 0.5) (* wide 0.5))
   p4 (xyp-get-Pt2XY p0 (* leng -0.5) (* wide 0.5))
      )
      (command "pline" p1 p2 "a" P3 "l" p4 "a" p1 "cl")
      (if (/= ang 0)
(xyp-rotate (entlast) P0 ang)
      )
    )
)
(setq l1 '(leng wide ang)
l2 '(1000. 500. 0.)
)
(defun ajbcs () (xyp-Multiple-Settile l1 l2))
(xyp-initSet l1 l2)
(setq ilst '(("k0" "" "imagebutton" "-2" "24" "xyp1964(yaokong)" "(c:iny)")
      "spacer;"
      ("leng" "腰孔长度" "real" "8")
      ("wide" "腰孔宽度" "real" "8")
      ("ang" "旋转角度" "real" "8")
      "spacer;"
      ("jbcs" "缺省参数" "button1" "(ajbcs)")
      "spacer;"
      "ioc"
       )
)
(if (= (xyp-Dcl-Init Ilst "【腰孔绘制】" t) 1)
    (main-pro)
)
(cmdla1)
)

xyp1964 发表于 2011-10-20 07:23:20

;; 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)
)

xyp1964 发表于 2011-10-20 08:47:33

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

查看完整版本: 【e派】e派工具箱(XCAD)学习与提高