修改连续偏移程序

fqqc

高手帮我看看这个程序,是个连续偏移程序,但是不能输入小数,还在只能连续偏移三次,希望高手帮我修改一下,让它能输入小数,而且能循环输入数据!

phoenixdjq

程序呢???

fqqc

(defun c:oo (/ dst)
(setq o1 (getint "\n指定偏移距离: "))
(setq c1 (entsel "选择要偏移的对象: : "))
(setq pt (getpoint "\n指定点以确定偏移所在一侧: "))
(command "offset" o1 c1 pt "")
(setq o1 (getint "\n指定偏移距离: "))
(setq c1 (entsel "选择要偏移的对象: : "))
(setq pt (getpoint "\n指定点以确定偏移所在一侧: "))
(command "offset" o1 c1 pt "")
(setq o1 (getint "\n指定偏移距离: "))
(setq c1 (entsel "选择要偏移的对象: : "))
(setq pt (getpoint "\n指定点以确定偏移所在一侧: "))
(command "offset" o1 c1 pt "")
)

不好意思,忘记上传了啦,现在传上来了,帮我看看

zjyangxyz

(setq o1 (getint "\n指定偏移距离: "))
改为

(setq o1 (getreal "\n指定偏移距离: "))
楼主看看我以前编的程序：

;*****************************************************************

 ;              fg1.LSP
;   BY zjyangxyz        
;   8 september 2004
;   This program  automatically offset distance(only out offset)
;;; **********************************************************************;

(defun clerr (s)
  (if (/= s "Function cancelled")     ; If an error (such as CTRL-C) occurs
    (princ (strcat "\nError: " s))    ; while this command is active...
  )
  (command "UCS" "P")                 ; Restore previous UCS
  (setvar "BLIPMODE" sblip)           ; Restore saved modes
  (setvar "GRIDMODE" sgrid)
  (setvar "HIGHLIGHT" shl)
  (setvar "UCSFOLLOW" sucsf)
  (command "LAYER" "S" clay "")
  (command "undo" "e")
  (setvar "CMDECHO" scmde)
  (setq *error* olderr)               ; Restore old *error* handler
  (princ)                            
)
;*****************************************************************
(defun c:fg (/ olderr scmde b1 s1 ss sblip )
   (setq olderr *error*
        *error* clerr)
   (setq sblip (getvar "BLIPMODE"))
   (setq scmde (getvar "CMDECHO"))
   (setvar "cmdecho" 0)
   (command "UNDO" "GROUP")
   (princ "\n此程序编制2004.9.08")
   (princ "\noffset distance:<") (princ x) (princ ">:")
   (setq b1 (getreal))
   (cond
           ((= nil (numberp b1)) (setq b1 x))
           ((= T (numberp b1)) (setq x b1))
   )
   (setq i 0)
   (setq ss (ssget))
   (if (null ss) (exit))
   (setq j (sslength ss))
   (repeat j
   (command "UNDO" "GROUP")
   (setq s1 (ssname ss i))
   (setq i (+ i 1))
   (command "offset" b1 s1 "0,0" "")(command "chprop" "l" "" "c" "1" "")
   (command "ERASE" s1 "")
   (command "UNDO" "END")
   )
   (command "UNDO" "END")
   (setvar "BLIPMODE" sblip)
   (setvar "CMDECHO" scmde)
   (setq *error* olderr) 
   (princ)
)
;****************end***********************

fqqc

兄弟,能否帮我那个程序加个循环程序,谢谢你哦

zjyangxyz

(defun c:fg (/ olderr scmde b1 s1 ss sblip)
   (setq olderr *error*  *error* clerr)
   (setq sblip (getvar "BLIPMODE"))
   (setq scmde (getvar "CMDECHO"))
   (setvar "cmdecho" 0)
   (command "-osnap" "off")
   (command "UNDO" "GROUP")
   (princ "\noffset distance:<") (princ x) (princ ">:")
   (setq b1 (getreal))
   (cond
           ((= nil (numberp b1)) (setq b1 x))
           ((= T (numberp b1)) (setq x b1))
   )
    (setq i 0)
   (setq ss (ssget))
   (if (null ss)( cond (COMMAND "-OSNAP" "End,Mid,Cen,Node,Quad,Int,Perp,Ext") (exit)))
   (setq j (sslength ss))
   (repeat j
   (command "UNDO" "GROUP")
   (setq s1 (ssname ss i))
   (setq i (+ i 1))
   (command "offset" b1 s1 pause "")
   (command "chprop" "l" "" "c" "1" "")
   (command "ERASE" s1 "")
   (command "UNDO" "END")
   )
   (command "UNDO" "END")
   (COMMAND "-OSNAP" "End,Mid,Cen,Node,Quad,Int,Perp,Ext")
   (setvar "BLIPMODE" sblip)
   (setvar "CMDECHO" scmde)
   (setq *error* olderr) 
   (princ)
)
;****************end***********************

这个就是和你的一样了，你用一下看看！

fqqc

呵呵,兄弟,还是达不到我的那种效果哦,要不你再改改!

KAIKENZHE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:wer( / h1 h2 wor)
(setvar "cmdecho" 0)
(setq h2 (entsel "\nTHE object:"))
(setq h3 (getpoint "\nThe point:"))
(setq h9 (getreal "\nThe number:"))
(command "offset" h9 h2 h3 "")
(setq m1 h9)
(while  (setq h1 (getreal "\nThe number:"))
(progn
(setq m1 (+ h1 m1))
(command "offset"  m1  h2 h3 "")
(princ m1)
)
);end while
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

这个是我的，请楼主试一下。就是没有错误返回机制了

carrot1983

如果是想达到3楼的效果，并循环的。

楼上的，没问题。。。