社区 › 编程申请 › 怎么去掉点选模式，输入距离，直接批量框选哪边就延长那边

纵横八方 发表于 2019-3-29 23:22:57

怎么去掉点选模式，输入距离，直接批量框选哪边就延长那边

(defun c:vv( / d)
(setq d (getdist "\n延伸长度:"))            
(if (and (setq ss (ssget '((0 . "LINE,ARC,ELLIPSE,*POLYLINE"))))
            (setq pt (getpoint "\n延伸方向:"))            
      )
    (progn
      (command "lengthen" "de" d)
      (repeat (setq n (sslength ss))
      (command (list (setq e (ssname ss (setq n (1- n)))) pt))         
      )
      (command "")
    )
)
(princ)
)

ssyfeng 发表于 2019-3-29 23:22:58

把if换成while就行了
(defun c:vv (/ D E N P0 P1 SS)
(setq d (getdist "\n延伸长度:"))
(while (and (setq p0 (getpoint "\n框选对象第一对角点(会以此点做为延伸方向):"))
         (setq p1 (getcorner p0 "\n框选对象另一对角点:"))
         (setq ss (ssget "c" p0 p1 '((0 . "LINE,ARC,ELLIPSE,*POLYLINE"))))
         )
    (progn
      (command "lengthen" "de" d)
      (repeat (setq n (sslength ss))
      (command (list (setq e (ssname ss (setq n (1- n)))) p0))
      )
      (command "")
    )
)
(princ)
)

琴剑江山_10184 发表于 2019-3-30 16:22:45

(defun c:vv (/ D E N P0 P1 SS)
(setq d (getdist "\n延伸长度:"))
(if
    (and (setq p0 (getpoint "\n框选对象第一对角点(会以此点做为延伸方向):"))
       (setq p1 (getcorner p0 "\n框选对象另一对角点:"))
       (setq ss (ssget "c" p0 p1 '((0 . "LINE,ARC,ELLIPSE,*POLYLINE"))))
    )
   (progn
       (command "lengthen" "de" d)
       (repeat (setq n (sslength ss))
       (command (list (setq e (ssname ss (setq n (1- n)))) p0))
       )
       (command "")
   )
)
(princ)
)

sdls 发表于 2019-3-30 21:45:38

琴剑江山_10184 发表于 2019-3-30 16:22


这个程序不错，如果加上记忆功能更完美！！

纵横八方 发表于 2019-3-31 10:35:16

琴剑江山_10184 发表于 2019-3-30 16:22


怎么 加个循环，可以连继续 框选 下去就完美了

纵横八方 发表于 2019-4-1 13:29:31

漂亮，要的就是这个效果

琴剑江山_10184 发表于 2019-4-1 19:05:35

伤心了啊，代码我写出来，别人在我上面改一句，别人的还成最佳答案了:'(

纵横八方 发表于 2019-4-3 17:42:36

琴剑江山_10184 发表于 2019-4-1 19:05
伤心了啊，代码我写出来，别人在我上面改一句，别人的还成最佳答案了

哥，我错了 ，你看一下代码还有地方要完善的没，我后面就顶你

1028695446 发表于 2019-4-6 13:57:15

本帖最后由 1028695446 于 2019-4-6 14:01 编辑

纵横八方 发表于 2019-4-3 17:42
哥，我错了 ，你看一下代码还有地方要完善的没，我后面就顶你;;我这个是在前面2个大师的基础上，优化的，因为上2位没有注意用户体验，比如选点的时候直接按了空格，没有选到点，程序依然会让用户继续选第二个点，然后选物体，之后报错，这种交互体验极差的:P
;;定距延长
(defun c:y1 (/ D E N P0 P1 SS)
(setq d (getdist "\n延伸长度:"))
(if(and
                        (if d (setq p0 (getpoint "\n框选对象第一对角点(会以此点做为延伸方向):")))
                        (if p0 (setq p1 (getcorner p0 "\n框选对象另一对角点:")))
                        (if (and p0 p1)(setq ss (ssget "c" p0 p1 '((0 . "LINE,ARC,ELLIPSE,*POLYLINE")))))
    )
                (progn
                        (command "lengthen" "de" d)
                        (repeat (setq n (sslength ss))
                              (command (list (setq e (ssname ss (setq n (1- n)))) p0))
                        )
                        (command "")
                )
)
(princ)
)
;;定距延长，继续框选
(defun c:y2 (/ D E N P0 P1 SS)
(setq d (getdist "\n延伸长度:"))
(while                (and
                                                      (if d (setq p0 (getpoint "\n框选对象第一对角点(会以此点做为延伸方向):")))
                                                      (if p0 (setq p1 (getcorner p0 "\n框选对象另一对角点:")))
                                                      (if (and p0 p1)(setq ss (ssget "c" p0 p1 '((0 . "LINE,ARC,ELLIPSE,*POLYLINE")))))
                                                )
                (progn
                        (command "lengthen" "de" d)
                        (repeat (setq n (sslength ss))
                              (command (list (setq e (ssname ss (setq n (1- n)))) p0))
                        )
                        (command "")
                )
                (setq p0 nil p1 nil ss nil)
)
(princ)
)

纵横八方 发表于 2019-4-6 16:55:43

漂亮！多谢大师们优化

查看完整版本: 怎么去掉点选模式，输入距离，直接批量框选哪边就延长那边