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

wjl1014 发表于 2013-3-1 13:35:24

院长的要好好学习。

有123 发表于 2013-3-3 14:47:22

院长的东西很全

ylzhaosjz 发表于 2013-3-3 21:19:24

院长的工具箱还有次数限制啊，我还不知道呢。

Silence.雨泽 发表于 2013-3-12 00:23:32

给院长顶起

lxjcad2008 发表于 2013-3-13 16:43:23

我想问一下怎么卸载呢？

清风明月名字 发表于 2013-3-16 08:02:24

原来没有次数限制的啊？什么时候有次数限制了

xyp1964 发表于 2013-3-23 08:12:03

;; stsc(实体删除)
(defun c:stsc (/ ilst ll1 ll2 lst-e)
(cmdla0)
(defun main-pro (/ lst et ss)
    (setq lst (xyp-Get-Str2Lst li1)
          lst (mapcar '(lambda (x) (nth (atoi x) lst-e)) lst)
          et(xyp-strcat lst ",")
    )
    (if        (= k1 "1")
      (progn
        (princ "\n选择删除范围: ")
        (setq ss (ssget (list (cons 0 et))))
      )
      (setq ss (ssget "X" (list (cons 0 et))))
    )
    (if        ss
      (progn
        (alert
          (strcat "\n删除类型 "
                  et
                  " 的实体共 "
                  (itoa (sslength ss))
                  " 个"
          )
        )
        (xyp-erase ss)
      )
    )
)
(defun ak01 (/ s1 et)
    (if        (setq s1 (car (entsel "\n实体类型<退出>: ")))
      (setq et        (xyp-dxf 0 s1)
          li1        (vl-position et lst-e)
      )
    )
    (sub)
)
(defun sub ()
    (setq ll1 '(li1 k1 k2)
          ll2 '("0" "1" "0")
    )
    (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
    (xyp-initSet ll1 ll2)
    (setq lst-e        (xyp-List "obj")
          ilst        '(("li1" "实体类型" "list" "lst-e" "8" "10")
                  ("" "" ":boxed_row{")
                  ("txyp" "图选实体类型>>" "textpart" "6")
                  ("k01" "图选"        "i6" "-15" "3" "xyp1964(shizixian01)" "(ak01)")
                  "}"
                  ("" "方式" ":boxed_radio_row{")
                  ("k1" "框选" "radio")
                  ("k2" "全图" "radio")
                  "}"
                  "spacer;"
                  ("jbcs" "缺省参数" "button1" "(ajbcs)")
                  "spacer;"
               )
    )
    (if        (= (xyp-Dcl-Init Ilst "【实体删除】V2013.3.23" t) 1)
      (main-pro)
    )
)
(sub)
(cmdla1)
)

xyp1964 发表于 2013-3-23 08:13:20

本帖最后由 xyp1964 于 2013-3-23 08:16 编辑


;; xyp-DimDiv 标注等分 (xyp-DimDiv s1 int)
(defun xyp-DimDiv (s1 int / p13 p14 lst p10 p12 rad dd p00)
(setq        p13 (xyp-DXF 13 s1)
        p14 (xyp-DXF 14 s1)
        lst (xyp-Dim-RadLst s1)
        p10 (cadr lst)
        p12 (caddr lst)
        rad (angle p10 p12)
        dd(/ (distance p10 p12) int)
        p13 (polar p14 rad dd)
        p00 p14
)
(xyp-SubUpd s1 13 p13)
(repeat (- int 1)
    (setq p13 (polar p14 rad dd))
    (xyp-copymove s1 p00 p13)
    (setq p14 p13)
)
)

;; 自定义函数下载: http://bbs.mjtd.com/thread-95673-1-1.html
(defun c:tt (/ i ss s1 pt)
(CMDLA0)
(setq int (Uint 7 "" "等分数量" int))
(while (and (setq s1 (car (entsel "\n选择尺寸标注: ")))
              (xyp-etype s1 "dim*")
       )
    (xyp-DimDiv s1 int)
)
(CMDLA1)
)

ascentia 发表于 2013-4-3 05:44:54

看看比贱人工具箱好吗？

phoevana 发表于 2013-4-13 12:32:21

院长，怎么样获得授权码

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