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

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

院长的要好好学习。

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

院长的东西很全

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

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

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

给院长顶起

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

我想问一下怎么卸载呢？

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

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

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

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

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

本帖最后由 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)
)
)
;; 自定义函数下载: [url]http://bbs.mjtd.com/thread-95673-1-1.html[/url]
(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

看看比贱人工具箱好吗？

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

院长，怎么样获得授权码

账号		自动登录	找回密码
密码			注册

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

点评

点评

点评

本帖子中包含更多资源