可以批量双向延长或者缩短的lsp程序求分享

yoyoho · 发表于 2013-4-17 17:43:24

感谢 Free-Lancer 分享程序!
是用一下程序不错喔!
适用更广了!

梦断江南 · 发表于 2013-4-22 18:44:19

以前写的，不知道还有用否
[pcode=lisp,true];; dlen = 双向伸缩曲线长度v1.0---lxx2005.3.25 ok!.
(defun c:tt ( / d ss i e lst1 lst2)
  ;(setq lst1 nil lst2 nil)
  (vl-cmdf ".undo" "be")
  (initget 128)
  (setq d (getdist "\n 输入双向伸缩长度(加%为百分比，支持正负数):")
i -1)
  (setq ss (ssget '((0 . "LINE,ARC,ELLIPSE,*POLYLINE,SPLINE"))))
  (while (setq e (ssname ss (setq i (1+ i))))
(setq lst1 (cons (list e (vlax-curve-getstartpoint e)) lst1)
   lst2 (cons (list e (vlax-curve-getendpoint e)) lst2))
  )
(cond
   ((numberp d)
      (apply 'vl-cmdf (append (list ".LENGTHEN" "de" d) lst1 lst2 '("")))
   )
   ((and (= 'STR (type d))(wcmatch d "*%")(> 50 (setq dd (distof(substr d 1 (1-(strlen d)))))))
      (apply 'vl-cmdf (append (list ".LENGTHEN" "p" (+ 100 dd)) lst1 '("")))
      (setq dd (* dd (/ 100 (- 100 dd)))) ;;第二次校正，否则不准!
      (apply 'vl-cmdf (append (list ".LENGTHEN" "p" (+ 100 dd)) lst2 '("")))
   )
   (T)
)
  (vl-cmdf ".undo" "e")
  (princ)
)[/pcode]

ysq101 · 发表于 2013-4-28 12:15:00

高手啊~~~~~~~~~~

fkyourmather · 发表于 2013-5-18 10:42:05

zxq0220 发表于 2013-4-13 12:42
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and

这句话好像测试有点问题

fkyourmather · 发表于 2013-5-18 11:03:30

Free-Lancer 发表于 2013-4-14 09:41
初学者
(defun c:tt (/ ss sl i e sp ep d)
(while (and (setq d (getdist "\n增量距离: ")) ;_可输入 ...

i没有附值～我不明白～但是很酷！可以解释下吗，大师

fkyourmather · 发表于 2013-5-20 08:47:43

fkyourmather 发表于 2013-5-18 10:42
这句话好像测试有点问题

sorry 很好用的，测试的时候复制的不仔细

xxdxx001 · 发表于 2013-6-17 20:57:58

谢谢分享，非常好的

混沌初开 · 发表于 2013-11-28 23:08:06

仲文玉发表于 2013-4-13 10:50
直线

这个动画怎么做出来的？

sicky111 · 发表于 2014-1-23 22:48:34

非常感谢，这个帖子解决了我的一个问题。

Smile cop · 发表于 2014-3-9 17:50:47

Free-Lancer 发表于 2013-4-14 09:41
初学者
(defun c:tt (/ ss sl i e sp ep d)
(while (and (setq d (getdist "\n增量距离: ")) ;_可输入 ...

可否把你这程序中的(setq d (getdist "\n增量距离: "))这句用输入线段总长的距离来代替，这样来对线段两端进行平均伸缩的修改，谢谢！

st788796 · 发表于 2014-3-9 17:54:56

rxing 发表于 2014-3-9 17:50
可否把你这程序中的(setq d (getdist "\n增量距离: "))这句用输入线段总长的距离来代替，这样来对线段两 ...

你可以修改下
1 程序中换算为增量距离
2 修改length命令，用 t 参数

这点换算不至于不会吧

清风明月10 · 发表于 2014-3-10 20:34:15

谢谢众位坛友代码分享！

279491611 · 发表于 2015-4-20 12:48:18

zxq0220 发表于 2013-4-13 12:42
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and

谢谢分享，刚好能用到.

fengdedaan · 发表于 2021-3-5 16:49:13

太感谢楼上的各位了。。。

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

[已解决] 可以批量双向延长或者缩短的lsp程序求分享

点评