xzklk 发表于 2020-5-29 00:03:38

求大师帮我改下这个程序

;偏移原图素变灰色
程序想要达到的效果是循环、有记忆，偏移出来的变色。我一点程序基础都没有，东拼西凑研究了近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 pausepause "E")
   (command "change" "L" "" "p" "c" "8" "")
)

)
)
   (princ))


bssurvey 发表于 2020-5-29 08:45:00

(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 发表于 2020-5-29 11:05:21

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

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

xzklk 发表于 2020-5-29 14:48:56

我改了一下，现在偏移时有提示选择方向了:$
;偏移,新图素变灰色
(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)                              

原地踏步 发表于 2020-5-29 17:25:00

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

xzklk 发表于 2020-6-16 21:21:25

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

我也不懂，原版就是这样的，我只是抄袭人家的而已。感觉pt12只是个假想点，利用完了就删掉吧
页: [1]
查看完整版本: 求大师帮我改下这个程序