offset到当前层程序一点问题

tony1435

代码如下，现在有个问题，offset能记住上一次的距离，但当上一次offset的距离小于1时，默认又变成1了，怎么把下面的代码改好呢？？谢谢！！
;;offset到当前层程序
(defun c:ff1(/ dst ent)
  (setvar "cmdecho" 1)
  (if (null(setq dst (getdist(strcat "\n输入偏移距离<目前为"
    (rtos(getvar "OFFSETDIST")2 0)">:"))))
    (setq dst (getvar "OFFSETDIST")))
  (setq ent (entsel))  
  (while (vl-cmdf "_.offset" dst ent pause "")     
    (vl-cmdf "_.change" (entlast) "" "p" "la" (getvar "clayer") "")
    (setq ent(entsel))(if (null ent)(exit))
  )(princ)
)

ljpnb

2. 
   
3. ;;offset到当前层程序
   
4. (defun c:ff1 (/ dst ent)
   
5.   (setvar "cmdecho" 1)
   
6.   (if (null
   
7.         (setq dst (getdist (strcat "\n输入偏移距离<目前为"
   
8.                                    (rtos (getvar "OFFSETDIST") 2 0)
   
9.                                    ">:"
   
10.                            )
    
11.                   )
    
12.         )
    
13.       )
    
14.     (setq dst (getvar "OFFSETDIST"))
    
15.     (setvar "OFFSETDIST" DST)
    
16.   )
    
17.   (setq ent (entsel) KEY t)
    
18.   (while KEY
    
19.     (vl-cmdf "_.offset" dst ent pause "")
    
20.     (vl-cmdf "_.change"
    
21.              (entlast)
    
22.              ""
    
23.              "p"
    
24.              "la"
    
25.              (getvar "clayer")
    
26.              ""
    
27.     )
    
28.     (setq ent (entsel))
    
29.     (if        (null ent)
    
30.       (setq key nil)
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    

<br /> ;;offset到当前层程序<br /> (defun c:ff1 (/ dst ent)<br />   (setvar "cmdecho" 1)<br />   (if (null<br />         (setq dst (getdist (strcat "\n输入偏移距离<目前为"<br />                                    (rtos (getvar "OFFSETDIST") 2 0)<br />                                    ">:"<br />                            )<br />                   )<br />         )<br />       )<br />     (setq dst (getvar "OFFSETDIST"))<br />     (setvar "OFFSETDIST" DST)<br />   )<br />   (setq ent (entsel) KEY t)<br />   (while KEY<br />     (vl-cmdf "_.offset" dst ent pause "")<br />     (vl-cmdf "_.change"<br />              (entlast)<br />              ""<br />              "p"<br />              "la"<br />              (getvar "clayer")<br />              ""<br />     )<br />     (setq ent (entsel))<br />     (if        (null ent)<br />       (setq key nil)<br />     )<br />   )<br />   (princ)<br /> )<br />

tony1435

非常感谢楼上的兄弟，

LLXXZZ

OFFSET
当前设置: 删除源=否  图层=源  OFFSETGAPTYPE=0
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  e
要在偏移后删除源对象吗？[是(Y)/否(N)] <否>:  n
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  L
输入偏移对象的图层选项 [当前(C)/源(S)] <源>:  S
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:

指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  l

输入偏移对象的图层选项 [当前(C)/源(S)] <源>:  c

指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:

选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:  *取消*

aeo000000

tony1435 发表于 2011-11-10 14:29
非常感谢楼上的兄弟，

难道解决了？

问题在(rtos (getvar "OFFSETDIST") 2 0)
0变3或更大

海盗曹

好程序，收藏了，谢谢~