沿上次继续改进，线段和圆弧批量伸长或缩短

ps122hb · 发表于 2012-6-19 08:22:56

路过，学习了，不过一般情况不会有这种批量操作吧

缘份呐 · 发表于 2012-6-19 09:13:08

ps122hb 发表于 2012-6-19 08:22
路过，学习了，不过一般情况不会有这种批量操作吧

谢谢发表，或许专业不同吧。

石井鱼 · 发表于 2012-6-19 10:28:33

感谢楼主，试用了下，只能用于双边延伸，有没有单侧批量延伸的呢，柱编号引线的时候经常用到这个功能

缘份呐 · 发表于 2012-6-20 16:13:14

石井鱼发表于 2012-6-19 10:28
感谢楼主，试用了下，只能用于双边延伸，有没有单侧批量延伸的呢，柱编号引线的时候经常用到这个功能

单侧批量延伸这个我有考虑，可方向不好定。
也希望有高手给个思路。谢谢

yjr111 · 发表于 2012-6-20 21:59:16

本帖最后由 yjr111 于 2012-6-20 22:10 编辑

可选择边延伸

(defun c:doublextend (/ ss e n p1 p2 extendpoint )
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(if *dist*
(setq dist (getdist (strcat "\n请输入每边变化值:< " (rtos *dist* 2 0) ">")))
(setq dist (getdist "\n请输入每边变化值: "))
)
(if (not dist) (setq dist *dist*) (setq *dist* dist))
(princ "\n请选择延伸对象：")
(while(setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))
(setq extendpoint(getpoint"\n选择要延伸的一边<右键双边延伸>"))
(while (and ss (>(setq n(sslength ss))0))
(setq e(ssname ss (setq n(1- n)))

hhhlike · 发表于 2012-6-21 07:01:04

还是不能选择方向
错误: 参数类型错误: 二维/三维点: nil

yjr111 · 发表于 2012-6-21 09:13:23

hhhlike 发表于 2012-6-21 07:01
还是不能选择方向
错误: 参数类型错误: 二维/三维点: nil

(defun c:doublextend (/ ss e n p1 p2 extendpoint)
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(if *dist*
(setq dist (getdist (strcat "\n请输入每边变化值:< " (rtos *dist* 2 0) ">")))
(setq dist (getdist "\n请输入每边变化值: "))
)
(if (not dist) (setq dist *dist*) (setq *dist* dist))
(princ "\n请选择延伸对象：")
(while(setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))
(setq extendpoint(getpoint"\n选择要延伸的一边<右键双边延伸>"))
(while (and ss (>(setq n(sslength ss))0))
(setq e(ssname ss (setq n(1- n)))
p1 (vlax-curve-getstartpoint e )
p2 (vlax-curve-getendpoint e )
)
(cond((not extendpoint)
(command "lengthen" "de" (/ dist 2) (list e p1)"" )
(command "lengthen" "de" (/ dist 2) (list e p2)"" )
)
((=(type extendpoint)'list)
(if (<(distance p1(vlax-curve-getClosestPointTo e extendpoint))
(distance p2(vlax-curve-getClosestPointTo e extendpoint))
)
(command "lengthen" "de" (/ dist 2) (list e p1)"" )
(command "lengthen" "de" (/ dist 2) (list e p2)"" )
)
)
)
(ssdel e ss)
)
)
(setvar "osmode" oldosmode)
(princ)
)
(princ"\n 批量双边延长缩短，BY YJR111 2012-6-19.命令：doublextend")

(defun c:doublextend (/  ss e n p1 p2 extendpoint) 
 (setq oldosmode (getvar "osmode")) 
 (setvar "osmode" 0) 
 (setvar "cmdecho" 0) 
 (if *dist* 
  (setq dist (getdist (strcat "\n请输入每边变化值:< " (rtos *dist* 2 0) ">"))) 
  (setq dist (getdist "\n请输入每边变化值: ")) 
 ) 
 (if (not dist)  (setq dist *dist*)  (setq *dist* dist)) 
 (princ "\n请选择延伸对象：") 
 (while(setq ss  (ssget '((0 . "LINE,ARC,LWPOLYLINE")))) 
 (setq extendpoint(getpoint"\n选择要延伸的一边<右键双边延伸>")) 
 (while  (and ss (>(setq n(sslength ss))0)) 
  (setq e(ssname ss (setq n(1- n))) 
       p1 (vlax-curve-getstartpoint e ) 
       p2 (vlax-curve-getendpoint e ) 
       ) 
  (cond((not extendpoint) 
        (command "lengthen"  "de"  (/ dist 2) (list e p1)"" ) 
        (command "lengthen"  "de"  (/ dist 2) (list e p2)"" ) 
        ) 
       ((=(type extendpoint)'list) 
        (if (<(distance p1(vlax-curve-getClosestPointTo e extendpoint)) 
                           (distance p2(vlax-curve-getClosestPointTo e extendpoint)) 
                           ) 
        (command "lengthen"  "de"  (/ dist 2) (list e p1)"" ) 
        (command "lengthen"  "de"  (/ dist 2) (list e p2)"" ) 
        ) 
        ) 
        ) 
  (ssdel e ss) 
 ) 
  ) 
 (setvar "osmode" oldosmode) 
 (princ) 
 ) 
(princ"\n 批量双边延长缩短，BY YJR111 2012-6-19.命令：doublextend")

flytoday · 发表于 2012-6-21 10:17:04

有图为证~~

flytoday · 发表于 2012-6-21 13:23:15

本帖最后由 flytoday 于 2012-6-21 13:24 编辑

flytoday 发表于 2012-6-21 10:17
有图为证~~

6#楼有哦~

。。严哥还有其它的线也是只单边延伸

缘份呐 · 发表于 2012-6-21 13:32:57

yjr111 发表于 2012-6-21 09:13

好象不支持R14呀！上班只用R14。

账号		自动登录	找回密码
密码			注册

沿上次继续改进，线段和圆弧批量伸长或缩短

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评

浏览过的版块