【e派】工具箱函数再揭秘及应用实例

杜阳

对院长你这样的高手来说   我索要这两个函数的确没啥用  但是 对我这样的初学者  那是很重要的啊

恕放之生命

路过学习。

yhly555

求院长几个源码，谢谢！
xyp-MkLaCo
xyp-PlineCCW-Check
xyp-circle
xyp-get-Pt2XY
xyp-Text

clinber

学会组装源代码 是当务之急 非常感谢院长

hrbustmqc

神一样的源码

xyp1964

yhly555 发表于 2015-2-28 15:53
求院长几个源码，谢谢！
xyp-MkLaCo
xyp-PlineCCW-Check

1. (defun xyp-mkLaCo (la co)
   
2.   (if (= (tblsearch "layer" la) nil)
   
3.     (if        (= (type co) 'INT)
   
4.       (command "-layer" "m" la "c" co "" "")
   
5.       (command "-layer" "m" la "c" "t" co "" "")
   
6.     )
   
7.     (command "-layer" "t" la "")
   
8.   )
   
9.   (setvar 'clayer la)
   
10.   (setvar 'cecolor "BYLAYER")
    
11.   (setvar 'celtype "ByLayer")
    
12.   (setvar 'celweight -1)
    
13.   (princ)
    
14. )

(defun xyp-mkLaCo (la co)<br />   (if (= (tblsearch "layer" la) nil)<br />     (if        (= (type co) 'INT)<br />       (command "-layer" "m" la "c" co "" "")<br />       (command "-layer" "m" la "c" "t" co "" "")<br />     )<br />     (command "-layer" "t" la "")<br />   )<br />   (setvar 'clayer la)<br />   (setvar 'cecolor "BYLAYER")<br />   (setvar 'celtype "ByLayer")<br />   (setvar 'celweight -1)<br />   (princ)<br /> )

xyp1964

1. (defun xyp-Pt2XY (pt dx dy)  (mapcar '+ (xyp-2D3D pt) (list dx dy 0)))

(defun xyp-Pt2XY (pt dx dy)  (mapcar '+ (xyp-2D3D pt) (list dx dy 0)))

TPG辉

求院长几个源码，谢谢！！！
xyp-circleCR
xyp-ss2list
xyp-SSelEntnext

xyp1964

TPG辉 发表于 2015-7-12 01:31
求院长几个源码，谢谢！！！
xyp-circleCR
xyp-ss2list

1. (defun xyp-SselEntnext (s0 / ss)
   
2.   (setq ss (ssadd))
   
3.   (while (setq s0 (entnext s0))
   
4.     (setq ss (ssadd s0 ss))
   
5.   )
   
6.   (if (/= (sslength ss) 0)
   
7.     ss
   
8.   )
   
9. )

(defun xyp-SselEntnext (s0 / ss)<br />   (setq ss (ssadd))<br />   (while (setq s0 (entnext s0))<br />     (setq ss (ssadd s0 ss))<br />   )<br />   (if (/= (sslength ss) 0)<br />     ss<br />   )<br /> )

xyp1964

TPG辉 发表于 2015-7-12 01:31
求院长几个源码，谢谢！！！
xyp-circleCR
xyp-ss2list

1. (defun xyp-CircleCR (pt rr)
   
2.   (command "circle" "non" pt rr)
   
3.   (entlast)
   
4. )

(defun xyp-CircleCR (pt rr)<br />   (command "circle" "non" pt rr)<br />   (entlast)<br /> )