求大师帮我改下这个程序

xzklk

;偏移原图素变灰色
程序想要达到的效果是循环、有记忆，偏移出来的变色。我一点程序基础都没有，东拼西凑研究了近4个小时始终玩不来
(defun c:OUU(/ va2 en1 pt12)
    (vl-load-com)
  (while
(progn
(if (not pianyizhiall_ever) (progn (setq pianyizhiall_ever 0.5)) (setq va2 pianyizhiall_ever))
(setq va2 (getdist (strcat "\n输入偏移距离<" (rtos pianyizhiall_ever) ">:")))
                 (if (not va2) (setq va2 pianyizhiall_ever) (setq pianyizhiall_ever va2)
             )

(progn
     
   (command "offset"  va2 pause  pause "E")
   (command "change" "L" "" "p" "c" "8" "")
)

)
)
   (princ))

bssurvey

(defun c:OUU(/ va2 en1 pt12)                                                         
  (vl-load-com)                                                                     
  (if (not pianyizhiall_ever)                                                        
    (setq pianyizhiall_ever 0.5)                                                     
    (setq va2 pianyizhiall_ever)                                                     
  )                                                                                 
  (while (setq off1 (entsel "选择要偏移的线："))                                    
    (setq va2 (getdist (strcat "\n输入偏移距离<" (rtos pianyizhiall_ever) ">:")))   
    (if (not va2)                                                                    
      (setq va2 pianyizhiall_ever)                                                   
      (setq pianyizhiall_ever va2)                                                   
    )                                                                                
                                                                                    
    (command "offset"  va2 off1 pause "")                                            
    (command "change" "L" "" "p" "c" "8" "")                                         
  )                                                                                 
  (princ)                                                                           
)                                                                                    

xzklk

bssurvey 发表于 2020-5-29 08:45
(defun c:OUU(/ va2 en1 pt12)                                                         
  (vl-load-co ...

实在是太感谢你了！我自己再来试着让变颜色也能自己定义还带记忆，不能总是求别人，求了别人学到东西总得自己努力变成自己的东西

xzklk

我改了一下，现在偏移时有提示选择方向了
;偏移,新图素变灰色
(defun c:OUU(/ va2 en1 pt12)                                                         
  (vl-load-com)                                                                     
    (if (not pianyizhiall_ever)                                                        
      (setq pianyizhiall_ever 0.05)                                                     
        (setq va2 pianyizhiall_ever)                                                     
                           )                                                                                 
          (while (setq en1 (entsel "选择要偏移的线："))                                    
            (setq va2 (getdist (strcat "\n输入偏移距离<" (rtos pianyizhiall_ever) ">:")))   
              (if (not va2)                                                                    
                   (setq va2 pianyizhiall_ever)                                                   
      (setq pianyizhiall_ever va2)                                                   
    )                                                                                
          (setq pt12 (getpoint "\n指定要偏移的那一侧上的点"))                                                                        

       (command "offset"  va2 en1 pt12 "")                                                                                            

     (command "change" "L" "" "p" "c"  "8" "")
  (command "erase" pt12 "")                                       
                                   )
                                      )                                                                              
                        (princ)                              

原地踏步

最后加上erase干嘛？你确定不会出错？

xzklk

原地踏步 发表于 2020-5-29 17:25
最后加上erase干嘛？你确定不会出错？

我也不懂，原版就是这样的，我只是抄袭人家的而已。感觉pt12只是个假想点，利用完了就删掉吧