(command ".line" 和entmake (list '(0 . "line") ...

77077

关于 (command ".line" p1 p2 "") 和(entmake (list '(0 . "line") (cons 10 p1) (cons...
本来也不想说，但是又不得不说的事情。
今天有陌生人发过来一串lisp，请我帮忙看看。于是我认真拜读了一下代码

2. ;;;加载线型
   
3.   (SETQ exsitly (TBLSEARCH "LTYPE" "CENTER"))
   
4.   (IF (= exsitly nil)
   
5.     (COMMAND ".Linetype" "l" "CENTER2" "acadiso.lin" "")
   
6.     (PRINC)
   
7.   )
   
8. ;;draw slot hole  
   
9. (defun C:HH (/ op di ip p1 p2 p3 p4 pt1 pt2 pt3 pt4 ent1 ent2 ent3 ent4 rot)  
   
10.    (setq slot nil)
    
11.   (setvar "CMDECHO" 0)  
    
12.    (initget 1)  
    
13.    (setq ip (getpoint "\nSpecify base point指定基点:"))  
    
14.    (initget 1)  
    
15.    (setq op (getdist "\nSpecify slot hole diameter指定槽孔直径: "))  
    
16.    (initget 1)  
    
17.    (setq di (getdist "\nSpecify slot hole length指定槽孔长度度: "))  
    
18.    (initget 128 "Vertical垂直 Horizontal水平")  
    
19.    (setq rot (getkword "\nSpecify the slot direction指定槽方向 [Vertical垂直/Horizontal水平] : "))  
    
20. 
    
21.   (if (= rot "Vertical垂直")  
    
22.     (progn  
    
23.       (setq pt1 (list (- (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  
    
24.             pt2 (list (- (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  
    
25.             pt3 (list (+ (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  
    
26.             pt4 (list (+ (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  
    
27.         p1 (polar ip 0 op)  
    
28.         p2 (polar ip (* pi 0.5) (+ (* 0.5 op) (* 0.5 di)))  
    
29.         p3 (polar ip pi op)  
    
30.         p4 (polar ip (* pi 1.5) (+ (* 0.5 op) (* 0.5 di))))  
    
31.          
    
32.     )  
    
33. )  
    
34. (if (= rot "Horizontal水平")  
    
35.     (progn  
    
36.       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
37.             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
38.             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
39.             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
40.         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  
    
41.         p2 (polar ip (* pi 0.5) op)  
    
42.         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  
    
43.         p4 (polar ip (* pi 1.5) op))  
    
44.     )  
    
45. )  
    
46.   (if (= rot nil)  
    
47.     (progn  
    
48.       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
49.             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
50.             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
51.             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
52.         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  
    
53.         p2 (polar ip (* pi 0.5) op)  
    
54.         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  
    
55.         p4 (polar ip (* pi 1.5) op))  
    
56.     )  
    
57. )  
    
58.    
    
59.    (setvar "osmode" 0)  
    
60.    (setvar "cecolor" "bylayer")  
    
61.    (setvar "celtype" "bylayer")  
    
62.    (command ".line" pt1 pt2 "")  
    
63.    (setq ent1 (entlast))  
    
64.    (command ".line" pt3 pt4 "")  
    
65.    (setq ent2 (entlast))  
    
66.    (command ".fillet" pt1 pt3)  
    
67.    (setq ent3 (entlast))  
    
68.    (command ".fillet" pt2 pt4)  
    
69.    (setq ent4 (entlast))  
    
70.    (command ".pedit" ent1 "" "join" ent2 ent3 ent4 "" "")
    
71.    (setvar "celtype" "CENTER2")  
    
72.    (command ".line" p1 p3 "")  
    
73.    (setq ent5 (entlast))  
    
74.    (command ".line" p2 p4 "")  
    
75.    (setvar "cecolor" "bylayer")  
    
76.    (setvar "celtype" "bylayer")  
    
77.    (setvar "osmode" 679)  
    
78.   (setvar "filletrad" 0)  
    
79. 
    
80. (prin1)  
    
81.   )
    
82. 大师看看哪里的问题啊

;;;加载线型<br />   (SETQ exsitly (TBLSEARCH "LTYPE" "CENTER"))<br />   (IF (= exsitly nil)<br />     (COMMAND ".Linetype" "l" "CENTER2" "acadiso.lin" "")<br />     (PRINC)<br />   )<br /> ;;draw slot hole  <br /> (defun C:HH (/ op di ip p1 p2 p3 p4 pt1 pt2 pt3 pt4 ent1 ent2 ent3 ent4 rot)  <br />    (setq slot nil)<br />   (setvar "CMDECHO" 0)  <br />    (initget 1)  <br />    (setq ip (getpoint "\nSpecify base point指定基点:"))  <br />    (initget 1)  <br />    (setq op (getdist "\nSpecify slot hole diameter指定槽孔直径: "))  <br />    (initget 1)  <br />    (setq di (getdist "\nSpecify slot hole length指定槽孔长度度: "))  <br />    (initget 128 "Vertical垂直 Horizontal水平")  <br />    (setq rot (getkword "\nSpecify the slot direction指定槽方向 [Vertical垂直/Horizontal水平] : "))  <br /> <br />   (if (= rot "Vertical垂直")  <br />     (progn  <br />       (setq pt1 (list (- (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  <br />             pt2 (list (- (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  <br />             pt3 (list (+ (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  <br />             pt4 (list (+ (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  <br />         p1 (polar ip 0 op)  <br />         p2 (polar ip (* pi 0.5) (+ (* 0.5 op) (* 0.5 di)))  <br />         p3 (polar ip pi op)  <br />         p4 (polar ip (* pi 1.5) (+ (* 0.5 op) (* 0.5 di))))  <br />           <br />     )  <br /> )  <br /> (if (= rot "Horizontal水平")  <br />     (progn  <br />       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  <br />         p2 (polar ip (* pi 0.5) op)  <br />         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  <br />         p4 (polar ip (* pi 1.5) op))  <br />     )  <br /> )  <br />   (if (= rot nil)  <br />     (progn  <br />       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  <br />         p2 (polar ip (* pi 0.5) op)  <br />         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  <br />         p4 (polar ip (* pi 1.5) op))  <br />     )  <br /> )  <br />    <br />    (setvar "osmode" 0)  <br />    (setvar "cecolor" "bylayer")  <br />    (setvar "celtype" "bylayer")  <br />    (command ".line" pt1 pt2 "")  <br />    (setq ent1 (entlast))  <br />    (command ".line" pt3 pt4 "")  <br />    (setq ent2 (entlast))  <br />    (command ".fillet" pt1 pt3)  <br />    (setq ent3 (entlast))  <br />    (command ".fillet" pt2 pt4)  <br />    (setq ent4 (entlast))  <br />    (command ".pedit" ent1 "" "join" ent2 ent3 ent4 "" "")<br />    (setvar "celtype" "CENTER2")  <br />    (command ".line" p1 p3 "")  <br />    (setq ent5 (entlast))  <br />    (command ".line" p2 p4 "")  <br />    (setvar "cecolor" "bylayer")  <br />    (setvar "celtype" "bylayer")  <br />    (setvar "osmode" 679)  <br />   (setvar "filletrad" 0)  <br /> <br /> (prin1)  <br />   ) <br /> 大师看看哪里的问题啊

本人真的不是大师，也就是个lisp学徒。本着学习交流的态度，我回复如下：

2. 一大堆的
   
3.    (setvar "osmode" 0)  
   
4.    (setvar "cecolor" "bylayer")  
   
5.    (setvar "celtype" "bylayer")  
   
6.    (command ".line" pt1 pt2 "")  
   
7.    (setq ent1 (entlast))  
   
8.    (command ".line" pt3 pt4 "")  
   
9.    (setq ent2 (entlast))  
   
10.    (command ".fillet" pt1 pt3)  
    
11.    (setq ent3 (entlast))  
    
12.    (command ".fillet" pt2 pt4)  
    
13.    (setq ent4 (entlast))  
    
14.    (command ".pedit" ent1 "" "join" ent2 ent3 ent4 "" "")
    
15.    (setvar "celtype" "CENTER2")  
    
16.    (command ".line" p1 p3 "")  
    
17.    (setq ent5 (entlast))  
    
18.    (command ".line" p2 p4 "")  
    
19.    (setvar "cecolor" "bylayer")  
    
20.    (setvar "celtype" "bylayer")  
    
21.    (setvar "osmode" 679)  
    
22.   (setvar "filletrad" 0)  
    
23. 看着就头疼，你可以修改成这个试试
    
24.    (entmake
    
25. (list
    
26.    '(0 . "LWPOLYLINE")
    
27.    '(100 . "AcDbEntity")
    
28.    '(100 . "AcDbPolyline")
    
29.    '(90 . 4)
    
30.    '(70 . 1)
    
31.    (cons 10 pt1) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0)
    
32.    (cons 10 pt2) '(40 . 0.0) '(41 . 0.0) '(42 . -1.0)
    
33.    (cons 10 pt4) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0)
    
34.    (cons 10 pt3) '(40 . 0.0) '(41 . 0.0) '(42 . -1.0)
    
35. ))
    
36. (entmake (list '(0 . "line") (cons 10 p1) (cons 11 p3)))
    
37. (entmake (list '(0 . "line") (cons 10 p2) (cons 11 p4)))
    

一大堆的<br />    (setvar "osmode" 0)  <br />    (setvar "cecolor" "bylayer")  <br />    (setvar "celtype" "bylayer")  <br />    (command ".line" pt1 pt2 "")  <br />    (setq ent1 (entlast))  <br />    (command ".line" pt3 pt4 "")  <br />    (setq ent2 (entlast))  <br />    (command ".fillet" pt1 pt3)  <br />    (setq ent3 (entlast))  <br />    (command ".fillet" pt2 pt4)  <br />    (setq ent4 (entlast))  <br />    (command ".pedit" ent1 "" "join" ent2 ent3 ent4 "" "")<br />    (setvar "celtype" "CENTER2")  <br />    (command ".line" p1 p3 "")  <br />    (setq ent5 (entlast))  <br />    (command ".line" p2 p4 "")  <br />    (setvar "cecolor" "bylayer")  <br />    (setvar "celtype" "bylayer")  <br />    (setvar "osmode" 679)  <br />   (setvar "filletrad" 0)  <br /> 看着就头疼，你可以修改成这个试试<br />    (entmake<br /> (list<br />    '(0 . "LWPOLYLINE")<br />    '(100 . "AcDbEntity")<br />    '(100 . "AcDbPolyline")<br />    '(90 . 4)<br />    '(70 . 1)<br />    (cons 10 pt1) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0)<br />    (cons 10 pt2) '(40 . 0.0) '(41 . 0.0) '(42 . -1.0)<br />    (cons 10 pt4) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0)<br />    (cons 10 pt3) '(40 . 0.0) '(41 . 0.0) '(42 . -1.0)<br /> ))<br /> (entmake (list '(0 . "line") (cons 10 p1) (cons 11 p3)))<br /> (entmake (list '(0 . "line") (cons 10 p2) (cons 11 p4)))<br />

2. 这一大串，看着也头疼，你可以用cond来试试
   
3. (if (= rot "Vertical垂直")  
   
4.     (progn  
   
5.       (setq pt1 (list (- (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  
   
6.             pt2 (list (- (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  
   
7.             pt3 (list (+ (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  
   
8.             pt4 (list (+ (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  
   
9.         p1 (polar ip 0 op)  
   
10.         p2 (polar ip (* pi 0.5) (+ (* 0.5 op) (* 0.5 di)))  
    
11.         p3 (polar ip pi op)  
    
12.         p4 (polar ip (* pi 1.5) (+ (* 0.5 op) (* 0.5 di))))  
    
13.          
    
14.     )  
    
15. )  
    
16. (if (= rot "Horizontal水平")  
    
17.     (progn  
    
18.       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
19.             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
20.             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
21.             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
22.         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  
    
23.         p2 (polar ip (* pi 0.5) op)  
    
24.         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  
    
25.         p4 (polar ip (* pi 1.5) op))  
    
26.     )  
    
27. )  
    
28.   (if (= rot nil)  
    
29.     (progn  
    
30.       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
31.             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
    
32.             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
33.             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
    
34.         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  
    
35.         p2 (polar ip (* pi 0.5) op)  
    
36.         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  
    
37.         p4 (polar ip (* pi 1.5) op))  
    
38.     )  
    
39. )  

这一大串，看着也头疼，你可以用cond来试试<br /> (if (= rot "Vertical垂直")  <br />     (progn  <br />       (setq pt1 (list (- (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  <br />             pt2 (list (- (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  <br />             pt3 (list (+ (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  <br />             pt4 (list (+ (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  <br />         p1 (polar ip 0 op)  <br />         p2 (polar ip (* pi 0.5) (+ (* 0.5 op) (* 0.5 di)))  <br />         p3 (polar ip pi op)  <br />         p4 (polar ip (* pi 1.5) (+ (* 0.5 op) (* 0.5 di))))  <br />           <br />     )  <br /> )  <br /> (if (= rot "Horizontal水平")  <br />     (progn  <br />       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  <br />         p2 (polar ip (* pi 0.5) op)  <br />         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  <br />         p4 (polar ip (* pi 1.5) op))  <br />     )  <br /> )  <br />   (if (= rot nil)  <br />     (progn  <br />       (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  <br />             pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />             pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  <br />         p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  <br />         p2 (polar ip (* pi 0.5) op)  <br />         p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  <br />         p4 (polar ip (* pi 1.5) op))  <br />     )  <br /> )  

我问了一下这位高人一句：“你自己写的代码？”
得到一句答复“难不成  是你写的？”
首先，我不是这专业不会写这串代码，也没写过这个代码，其次，这样的态度，你叫别人怎么帮你？


在这里，我要说的是，在学习工作中，如果想得到自己的目的，说话做事要讲究方式方法，要会拿捏分寸。
(command ".line" p1 p2 "") 和(entmake (list '(0 . "line")都能实现绘制一条线，但是什么时候用什么方式，要看情况。

434939575

坐个沙发，或许他忘了吃药。一笑而过吧[em0]

xyp1964

lucas_3333

xyp1964 发表于 2015-7-1 20:07

我晕, 楼主发这个贴子是讲command与entmake 的比较, 这也拿出来秀 ,难道槽孔必须要水平或垂直吗?

前生

天热，息熄火。程序语言是死的，人是活的。

fl202

标题与内容不符，吐槽贴。。。

叮咚

语文是体育老师教的？！来自: Android客户端

sibelle_hu

entmake 的效率确实高很多

【KAIXIN】

对于小程序 (command ) 与 (entmake ) 那个顺手用那个,不用太刻意追求

etoxp

瞬间让你觉得自己好贱吧，呵呵，杀伤力太大，也是醉了。