[日积月累]：画图中临时写的小程序

eachy

画图时临时写的程序，减少重复劳动，耗时极短，简单实用

2. 
   
3. ;;点选Pline然后拾取点，向内偏移并加粗
   
4. (defun c:ddf (/ e pt)
   
5.   (if (and (setq e (entsel "\nSelect Wall: "))
   
6.            (setq pt (getpoint "\nInside Point: "))
   
7.       )
   
8.     (progn
   
9.       (command ".offset" "400" e pt "")
   
10.       (command ".pedit"        "l" "w"        "800" "x" ".change" "l"        "" "p" "la"
    
11.                "jzc" "")
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    
16. ;;有时spline点很密，编辑加粗不方便，用pline代替
    
17. (defun c:stopl (/ ss ssl e el)
    
18.   (if (setq ss (ssget '((0 . "spline"))))
    
19.     (progn
    
20.       (setq ssl (sslength ss))
    
21.       (while (> ssl 0)
    
22.         (setq e         (ssname ss (setq ssl (1- ssl)))
    
23.               el (entget e)
    
24.         )
    
25.         (setq el
    
26.                (mapcar '(lambda        (x)
    
27.                           (list (car x) (cadr x) (caddr x))
    
28.                         )
    
29.                        (vl-remove-if '(lambda (x) (/= (car x) 10)) el)
    
30.                )
    
31.         )
    
32.         (entmake
    
33.           (append '((0 . "LWPOLYLINE")
    
34.                     (100 . "AcDbEntity")
    
35.                     (100 . "AcDbPolyline")
    
36.                    )
    
37.                   (list (cons 90 (length el)))
    
38.                   el
    
39.           )
    
40.         )
    
41.         (entdel e)
    
42.       )
    
43.     )
    
44.   )
    
45.   (princ)
    
46. )
    
47. ;;插入箭头，表示地面排水方向， ps 块要先作好
    
48. (defun c:dds (/ p)
    
49.   (while (setq p (getpoint "\nPoint: "))
    
50.     (vl-cmdf ".insert" "ps" p "1" "" pause)
    
51.   )
    
52.   (princ)
    
53. )

<br /> ;;点选Pline然后拾取点，向内偏移并加粗<br /> (defun c:ddf (/ e pt)<br />   (if (and (setq e (entsel "\nSelect Wall: "))<br />            (setq pt (getpoint "\nInside Point: "))<br />       )<br />     (progn<br />       (command ".offset" "400" e pt "")<br />       (command ".pedit"        "l" "w"        "800" "x" ".change" "l"        "" "p" "la"<br />                "jzc" "")<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;有时spline点很密，编辑加粗不方便，用pline代替<br /> (defun c:stopl (/ ss ssl e el)<br />   (if (setq ss (ssget '((0 . "spline"))))<br />     (progn<br />       (setq ssl (sslength ss))<br />       (while (> ssl 0)<br />         (setq e         (ssname ss (setq ssl (1- ssl)))<br />               el (entget e)<br />         )<br />         (setq el<br />                (mapcar '(lambda        (x)<br />                           (list (car x) (cadr x) (caddr x))<br />                         )<br />                        (vl-remove-if '(lambda (x) (/= (car x) 10)) el)<br />                )<br />         )<br />         (entmake<br />           (append '((0 . "LWPOLYLINE")<br />                     (100 . "AcDbEntity")<br />                     (100 . "AcDbPolyline")<br />                    )<br />                   (list (cons 90 (length el)))<br />                   el<br />           )<br />         )<br />         (entdel e)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;插入箭头，表示地面排水方向， ps 块要先作好<br /> (defun c:dds (/ p)<br />   (while (setq p (getpoint "\nPoint: "))<br />     (vl-cmdf ".insert" "ps" p "1" "" pause)<br />   )<br />   (princ)<br /> )

saltxf

请问一下".pedit" 与 "pedit"  有何区别？谢谢

li_seagull

还行，很方便