聚合线两端缩短的问题?

bud

请各位大侠指点一下，有没有办法在输入一个数值后，能够将未闭合的聚合线缩短，且两端同时缩短?

龙龙仔

3. ;;no error check
4. (defun C:TT (/ DIST ENDPT ENT OBJ STARTPT NAME)
5.   (setq ENT (car (entsel)))
6.   (setq STARTPT
7.   (vlax-curve-getstartpoint
8.     (setq OBJ (vlax-ename->vla-object ENT))
9.   )
10.   )
11.   (setq ENDPT (vlax-curve-getendpoint OBJ))
12.   (setq NAME (vla-get-objectname OBJ))
13.   (setq DIST (* -1 (getdist "\n縮短距離: ")))
14.   (command "_.lengthen"
15.     "de"
16.     DIST
17.     (list ENT STARTPT)
18.     (if (= "AcDb2dPolyline" NAME)
19.       (list (entlast) ENDPT)
20.       (list ENT ENDPT)
21.     )
22.     ""
23.   )
24.   (princ)
25. )

;;no error check (defun C:TT (/ DIST ENDPT ENT OBJ STARTPT NAME)   (setq ENT (car (entsel)))   (setq STARTPT   (vlax-curve-getstartpoint     (setq OBJ (vlax-ename->vla-object ENT))   )   )   (setq ENDPT (vlax-curve-getendpoint OBJ))   (setq NAME (vla-get-objectname OBJ))   (setq DIST (* -1 (getdist "\n縮短距離: ")))   (command "_.lengthen"     "de"     DIST     (list ENT STARTPT)     (if (= "AcDb2dPolyline" NAME)       (list (entlast) ENDPT)       (list ENT ENDPT)     )     ""   )   (princ) )

无痕

1. 以前写的

复制代码

2. ;; dlen = 双向伸缩曲线长度v1.1---lxx2005.3.25!.
3. (defun c:tt ( / d ss i e lst1 lst2 l1 l2 %k)
4.   ;(setq lst1 nil lst2 nil)
5.   (vl-cmdf ".undo" "be")
6.   (initget 128)
7.   (setq d (getdist "\n 输入双向伸缩长度(加%为百分比，支持正负数):")
8. i -1)
9.   (if (and (= 'STR (type d))(wcmatch d "*%")(> 50 (setq dd (distof(substr d 1 (1-(strlen d)))))))
10.     (setq %k T)
11.   )
12.   (setq ss (ssget '((0 . "LINE,ARC,ELLIPSE,*POLYLINE,SPLINE"))))
13.   (while (setq e (ssname ss (setq i (1+ i))))
14.     (setq lst1 (list e (vlax-curve-getstartpoint e))
15.    lst2 (list e (vlax-curve-getendpoint e)))
16.     (if %k
17.       (setq l1 (vlax-curve-getdistatparam e (vlax-curve-getstartparam e))
18.      l2 (vlax-curve-getdistatparam e (vlax-curve-getendparam e))
19.      d  (* (/ dd 100) (abs(- l2 l1))))
20.     )
21.     (vl-cmdf ".LENGTHEN" "de" d lst1 lst2 "")
22.   )
23.   (vl-cmdf ".undo" "e")
24.   (princ)
25. )

;; dlen = 双向伸缩曲线长度v1.1---lxx2005.3.25!. (defun c:tt ( / d ss i e lst1 lst2 l1 l2 %k)   ;(setq lst1 nil lst2 nil)   (vl-cmdf ".undo" "be")   (initget 128)   (setq d (getdist "\n 输入双向伸缩长度(加%为百分比，支持正负数):") i -1)   (if (and (= 'STR (type d))(wcmatch d "*%")(> 50 (setq dd (distof(substr d 1 (1-(strlen d)))))))     (setq %k T)   )   (setq ss (ssget '((0 . "LINE,ARC,ELLIPSE,*POLYLINE,SPLINE"))))   (while (setq e (ssname ss (setq i (1+ i))))     (setq lst1 (list e (vlax-curve-getstartpoint e))    lst2 (list e (vlax-curve-getendpoint e)))     (if %k       (setq l1 (vlax-curve-getdistatparam e (vlax-curve-getstartparam e))      l2 (vlax-curve-getdistatparam e (vlax-curve-getendparam e))      d  (* (/ dd 100) (abs(- l2 l1))))     )     (vl-cmdf ".LENGTHEN" "de" d lst1 lst2 "")   )   (vl-cmdf ".undo" "e")   (princ) )

bud

感谢两位大侠的热心帮助!