新手 第一次写

ejingsong

作为一个新手     第一次写    终于发了一个对于我自己来说的“技术贴”
以前都是回复大侠们的帖子  发的最多好像就是 “支持xxxxx”      呵呵   鼓捣一晚上弄个大杂烩   很多都是坛子的源码  给自己留点念想  “处女作”啊
自己瞎写着玩的    主要想法就是    画几个图形    然后把这几个图形顺便做成块    还很菜   高手们有空看的话指教指教  
(defun C:tt()
; 获取在图元 en 之后产生的图元的选择集;
    (defun last_ent (en / ss)
    (if en
     (progn
       (setq ss (ssadd))
       (while (setq en (entnext en))
         (if (not (member (cdr (assoc 0 (entget en)))
                          '("ATTRIB" "VERTEX" "SEQEND")
                  )
             )
           (ssadd en ss)
         );if
       );while
       (if (zerop (sslength ss)) (setq ss nil))
       ss
     );progn
     (ssget "_x")
   );if
)
(setq zz (getpoint "\n 请输入第一桩芯点:"))
(setq rr (getreal "\n 请输入桩径<200>:"))
(if (null rr) (setq rr 200))
    (setq pt1 (polar zz pi (+ (* rr 0.5) rr)))
    (setq pt2 (polar zz 0 (+ (* rr 0.5) rr)))
    (setq pt3 (polar zz (* 0.5 pi) (+ (* rr 0.5) rr)))
    (setq pt4 (polar zz (* 1.5 pi) (+ (* rr 0.5) rr)))
     (if (not (tblsearch "LAYER" "Cen"))
     (command "layer" "m" "Cen" "c" 2 "" "l" "center2" "" "lw"
        0.18 "" "")
    )
    (command "layer" "s" "cen" "")
    (entmake (list '(0 . "POINT") (cons 10 zz)))
    (setq ss-end (entlast))
    (entmake (list '(0 . "CIRCLE") (cons 10 zz) (cons 40 rr)))
    (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
    (entmake (list '(0 . "LINE") (cons 10 pt3) (cons 11 pt4)))
    (setq ss-end (last_ent ss-end))
  ;;造快表开始标志实体.
  (and
  (entmake (list'(0 . "BLOCK")'(2 . "*U")'(70 . 1)(cons 10 zz)))  
  (setq i 0)
  (repeat (sslength ss-end)
    (setq ent (ssname ss-end i))
   (setq ENDBLK (entmake (entget ent)))
    (entdel ent)
    (setq i (1+ i))
  )
  ) ;;造块表结束标志实体.
  (setq blk (entmake '((0 . "ENDBLK"))));;返回以上块定义.
  (if blk  ;如果造块成功.插入一个实例.
    (entmake (list (cons 0 "INSERT")  ;生成块实体(和块定义是不同的).
     (cons 2 blk)       ;组码2引用块定义.
     (cons 10 zz)       ;块插入点,按定义点.
      )
    )
  )
  (princ)
)
   
   
   




该贴已经同步到 ejingsong的微博

ejingsong

command   和entmake混乱用了   图层用entmake怎么建立  没整明白    呵呵   

vlisp2012

鼓励一下。

xyp1964

来个伪源码的

2. (defun c:tt ()
   
3.   (if (= (tblsearch "block" "ZZ00") nil)
   
4.     (progn
   
5.       (setq s0 (entlast))
   
6.       (xyp-MkLaCo "TEST2" 2)
   
7.       (xyp-circle '(0 0) 0.5)
   
8.       (xyp-MkLaColt "Cen" 1 "center2")
   
9.       (xyp-line '(-0.6 0) '(0.6 0))
   
10.       (xyp-line '(0 -0.6) '(0 0.6))
    
11.       (command "block" "ZZ00" '(0 0) (xyp-SSelEntnext s0) "")
    
12.     )
    
13.   )
    
14.   (setq rr (Udist 7 "" "桩径<输入或鼠标直接量取>" rr nil))
    
15.   (while (setq p0 (getpoint "\n第一桩芯点: "))
    
16.     (command "insert" "ZZ00" p0 rr rr 0)
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt ()<br />   (if (= (tblsearch "block" "ZZ00") nil)<br />     (progn<br />       (setq s0 (entlast))<br />       (xyp-MkLaCo "TEST2" 2)<br />       (xyp-circle '(0 0) 0.5)<br />       (xyp-MkLaColt "Cen" 1 "center2")<br />       (xyp-line '(-0.6 0) '(0.6 0))<br />       (xyp-line '(0 -0.6) '(0 0.6))<br />       (command "block" "ZZ00" '(0 0) (xyp-SSelEntnext s0) "")<br />     )<br />   )<br />   (setq rr (Udist 7 "" "桩径<输入或鼠标直接量取>" rr nil))<br />   (while (setq p0 (getpoint "\n第一桩芯点: "))<br />     (command "insert" "ZZ00" p0 rr rr 0)<br />   )<br />   (princ)<br /> )

gao051525

我也是菜鸟，支持楼主，希望我有一天也能真正自己也一个程序

gao051525

没看懂，我再研究研究

skg123

xyp1964 发表于 2012-6-3 15:26
来个伪源码的

运行出现错误

skg123

参考一下学习制作块，一般桩基绘制的数量较多，建议楼主 增加连续绘制桩基。

skg123

经过修改，可以连续绘制

2. (defun C:zhuangji()
   
3. ; 获取在图元 en 之后产生的图元的选择集;
   
4.     (defun last_ent (en / ss)
   
5.     (if en
   
6.      (progn
   
7.        (setq ss (ssadd))
   
8.        (while (setq en (entnext en))
   
9.          (if (not (member (cdr (assoc 0 (entget en)))
   
10.                           '("ATTRIB" "VERTEX" "SEQEND")
    
11.                   )
    
12.              )
    
13.            (ssadd en ss)
    
14.          );if
    
15.        );while
    
16.        (if (zerop (sslength ss)) (setq ss nil))
    
17.        ss
    
18.      );progn
    
19.      (ssget "_x")
    
20.    );if
    
21. )
    
22. (setq rr (getreal "\n 请输入桩基半径<0.5m>:"))
    
23. 
    
24. (setq zz (getpoint "\n 请指定桩中心:"))
    
25. (while zz
    
26. 
    
27. (if (null rr) (setq rr 0.5))
    
28.     (setq pt1 (polar zz pi (+ (* rr 0.5) rr)))
    
29.     (setq pt2 (polar zz 0 (+ (* rr 0.5) rr)))
    
30.     (setq pt3 (polar zz (* 0.5 pi) (+ (* rr 0.5) rr)))
    
31.     (setq pt4 (polar zz (* 1.5 pi) (+ (* rr 0.5) rr)))
    
32.      (if (not (tblsearch "LAYER" "Cen"))
    
33.      (command "layer" "m" "Cen" "c" 2 "" "l" "center2" "" "lw"
    
34.         0.18 "" "")
    
35.     )
    
36.     (command "layer" "s" "cen" "")
    
37.    ; (entmake (list '(0 . "POINT") (cons 10 zz)));去分号制作中心点，
    
38.     (setq ss-end (entlast))
    
39.     (entmake (list '(0 . "CIRCLE") (cons 10 zz) (cons 40 rr)))
    
40.     (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
    
41.     (entmake (list '(0 . "LINE") (cons 10 pt3) (cons 11 pt4)))
    
42.     (setq ss-end (last_ent ss-end))
    
43.   ;;造快表开始标志实体.
    
44.   (and
    
45.   (entmake (list'(0 . "BLOCK")'(2 . "*U")'(70 . 1)(cons 10 zz)))  
    
46.   (setq i 0)
    
47.   (repeat (sslength ss-end)
    
48.     (setq ent (ssname ss-end i))
    
49.    (setq ENDBLK (entmake (entget ent)))
    
50.     (entdel ent)
    
51.     (setq i (1+ i))
    
52.   )
    
53.   ) ;;造块表结束标志实体.
    
54.   (setq blk (entmake '((0 . "ENDBLK"))));;返回以上块定义.
    
55.   (if blk  ;如果造块成功.插入一个实例.
    
56.     (entmake (list (cons 0 "INSERT")  ;生成块实体(和块定义是不同的).
    
57.      (cons 2 blk)       ;组码2引用块定义.
    
58.      (cons 10 zz)       ;块插入点,按定义点.
    
59.       )
    
60.     )
    
61.   )
    
62. (setq zz (getpoint "\n 请指定桩中心:"))
    
63. )
    
64.   (princ)
    
65. )
    
66. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
67. (defun c:tt()
    
68.   (if (= (tblsearch "block" "ZZ00") nil)
    
69.     (progn
    
70.       (setq s0 (entlast))
    
71.       (xyp-MkLaCo "TEST2" 2)
    
72.       (xyp-circle '(0 0) 0.5)
    
73.       (xyp-MkLaColt "Cen" 1 "center2")
    
74.       (xyp-line '(-0.6 0) '(0.6 0))
    
75.       (xyp-line '(0 -0.6) '(0 0.6))
    
76.       (command "block" "ZZ00" '(0 0) (xyp-SSelEntnext s0) "")
    
77.     )
    
78.   )
    
79.   (setq rr (Udist 7 "" "桩径<输入或鼠标直接量取>" rr nil))
    
80.   (while (setq p0 (getpoint "\n第一桩芯点: "))
    
81.     (command "insert" "ZZ00" p0 rr rr 0)
    
82.   )
    
83.   (princ)
    
84. )

(defun C:zhuangji()<br /> ; 获取在图元 en 之后产生的图元的选择集;<br />     (defun last_ent (en / ss)<br />     (if en<br />      (progn<br />        (setq ss (ssadd))<br />        (while (setq en (entnext en))<br />          (if (not (member (cdr (assoc 0 (entget en)))<br />                           '("ATTRIB" "VERTEX" "SEQEND")<br />                   )<br />              )<br />            (ssadd en ss)<br />          );if<br />        );while<br />        (if (zerop (sslength ss)) (setq ss nil))<br />        ss<br />      );progn<br />      (ssget "_x")<br />    );if<br /> )<br /> (setq rr (getreal "\n 请输入桩基半径<0.5m>:"))<br /> <br /> (setq zz (getpoint "\n 请指定桩中心:"))<br /> (while zz <br /> <br /> (if (null rr) (setq rr 0.5))<br />     (setq pt1 (polar zz pi (+ (* rr 0.5) rr)))<br />     (setq pt2 (polar zz 0 (+ (* rr 0.5) rr)))<br />     (setq pt3 (polar zz (* 0.5 pi) (+ (* rr 0.5) rr)))<br />     (setq pt4 (polar zz (* 1.5 pi) (+ (* rr 0.5) rr)))<br />      (if (not (tblsearch "LAYER" "Cen"))<br />      (command "layer" "m" "Cen" "c" 2 "" "l" "center2" "" "lw"<br />         0.18 "" "")<br />     )<br />     (command "layer" "s" "cen" "")<br />    ; (entmake (list '(0 . "POINT") (cons 10 zz)));去分号制作中心点，<br />     (setq ss-end (entlast))<br />     (entmake (list '(0 . "CIRCLE") (cons 10 zz) (cons 40 rr)))<br />     (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))<br />     (entmake (list '(0 . "LINE") (cons 10 pt3) (cons 11 pt4)))<br />     (setq ss-end (last_ent ss-end))<br />   ;;造快表开始标志实体.<br />   (and<br />   (entmake (list'(0 . "BLOCK")'(2 . "*U")'(70 . 1)(cons 10 zz)))  <br />   (setq i 0)<br />   (repeat (sslength ss-end)<br />     (setq ent (ssname ss-end i))<br />    (setq ENDBLK (entmake (entget ent)))<br />     (entdel ent)<br />     (setq i (1+ i))<br />   )<br />   ) ;;造块表结束标志实体.<br />   (setq blk (entmake '((0 . "ENDBLK"))));;返回以上块定义.<br />   (if blk  ;如果造块成功.插入一个实例.<br />     (entmake (list (cons 0 "INSERT")  ;生成块实体(和块定义是不同的).<br />      (cons 2 blk)       ;组码2引用块定义.<br />      (cons 10 zz)       ;块插入点,按定义点.<br />       )<br />     )<br />   )<br /> (setq zz (getpoint "\n 请指定桩中心:"))<br /> )<br />   (princ) <br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun c:tt()<br />   (if (= (tblsearch "block" "ZZ00") nil)<br />     (progn<br />       (setq s0 (entlast))<br />       (xyp-MkLaCo "TEST2" 2)<br />       (xyp-circle '(0 0) 0.5)<br />       (xyp-MkLaColt "Cen" 1 "center2")<br />       (xyp-line '(-0.6 0) '(0.6 0))<br />       (xyp-line '(0 -0.6) '(0 0.6))<br />       (command "block" "ZZ00" '(0 0) (xyp-SSelEntnext s0) "")<br />     )<br />   )<br />   (setq rr (Udist 7 "" "桩径<输入或鼠标直接量取>" rr nil))<br />   (while (setq p0 (getpoint "\n第一桩芯点: "))<br />     (command "insert" "ZZ00" p0 rr rr 0)<br />   )<br />   (princ)<br /> )