求大神在这基础上加个批量

edm520

(DEFUN C:OC() (vl-cmdf "_.undo" "_group")                (mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))                (setq di (getstring "\输入偏移距离:"))                (setq o (ssget))                (setq po (getpoint "\nSide to offset"))                (setq LAY (getvar "CLAYER"))                (if (/= di nil)                (COMMAND "OFFSET" di o po "")                (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))                (if (= di nil)                (COMMAND "OFFSET" "" o po "")                (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))                (vl-cmdf "_.undo" "_end")(princ))

sharetow

1. (DEFUN C:OC()
   
2.   (vl-cmdf "_.undo" "_group")
   
3.   (mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))
   
4.   (setq di (getstring "\输入偏移距离:"))
   
5.   (setq o (ssget) i 0)
   
6.   (repeat (sslength o)
   
7.     (setq po (getpoint "\nSide to offset"))
   
8.     (setq LAY (getvar "CLAYER"))
   
9.     (if (/= di nil)
   
10.       (COMMAND "OFFSET" di (ssname O i) po "")
    
11.       (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" "")
    
12.     )
    
13.     (if (= di nil)
    
14.       (COMMAND "OFFSET" "" (ssname O i) po "")
    
15.       (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" "")
    
16.     )
    
17.     (setq i (1+ i))
    
18.   )
    
19.   (vl-cmdf "_.undo" "_end")
    
20.   (princ)
    
21.   
    
22. )

(DEFUN C:OC() <br />   (vl-cmdf "_.undo" "_group")<br />   (mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))<br />   (setq di (getstring "\输入偏移距离:"))<br />   (setq o (ssget) i 0)<br />   (repeat (sslength o)<br />     (setq po (getpoint "\nSide to offset")) <br />     (setq LAY (getvar "CLAYER"))<br />     (if (/= di nil)<br />       (COMMAND "OFFSET" di (ssname O i) po "")<br />       (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" "")<br />     )<br />     (if (= di nil)<br />       (COMMAND "OFFSET" "" (ssname O i) po "")<br />       (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" "")<br />     )<br />     (setq i (1+ i))<br />   )<br />   (vl-cmdf "_.undo" "_end")<br />   (princ)<br />   <br /> )

start4444

http://bbs.mjtd.com/forum.php?mo ... A%C1%BF%C6%AB%D2%C6
论坛那么多批量偏移还问啥啊

edm520

论坛的偏移都有BUG