[编程申请]：用距离多重偏移？

lingzhi0512

请高手帮忙编一个LISP：
就是像PKPM里面一样画平行轴线一样，选取一根直线，输入一个距离值即画出一根，再输入一个距离值再画一根，。。。。！
如：

：offset
请选择实体：
请点取需要往哪边偏移：
请输入需要偏移的距离／退出： 100
请输入需要偏移的距离／退出： 200
请输入需要偏移的距离／退出： 300
。。。。。。。

谢谢大家！

陌生人

到lsp编程板块找，有这样的程序

yangfeng

我也想要

wst1977

最初由 lingzhi0512 发布
[B]请高手帮忙编一个LISP：
就是像PKPM里面一样画平行轴线一样，选取一根直线，输入一个距离值即画出一根，再输入一个距离值再画一根，。。。。！
如：

：offset
请选择实体：
请点取需要往哪边偏移：
请输入需... [/B]

具体在那里我是新来的*-*4

xgwl

有这个和程序的!叫 fff.lsp

陌生人

怎么和我以前写的程序名字一样？哈

xgwl

我就记得是一个高手写得程序!呵呵! 就用搜索作者名"陌生人",就能找到了!呵呵!

陌生人

那可不一定是我写的，有可能同名的

自由的鱼

http://www.xdcad.net/forum/showthread.php?s=&threadid=164462

ddlf

CAD本身就自带的程序

自由的鱼

最初由 ddlf 发布
[B]CAD本身就自带的程序 [/B]

有吗？我怎么不知道

guizhicheng

按你的要求，CAD自带的命令offset就行了啊。

如果给出一个距离，能自动偏移出许多线，我倒是有这样的一个程序，贴出来给你参考一下。

(defun c:pjhx()
         (command "layer" "m" "jhx" "c" "yellow" "jhx" command)
         (command "layer" "s" "jhx" command)
         (setq xnum (getint "\n请输入线数： "))
         (if (= xnum nil)(setq xnum 0))
         (setq dnum (getreal "\n请输入线间距离： "))
         (if (= dnum nil)(setq dnum 0))
         (setq s (ssget))
         (setq s1 (ssname s 0))
         (command "change" s "" "p" "la" "jhx" "")
         (setq p (getpoint "\n请确定偏移方向： "))
         (setq cont 0)
         (while (< cont xnum)
                (setq data (entget s1))
                (setq pstart (assoc 10 data))
                (setq pstarty (nth 1 pstart))
                (setq pstartx (nth 2 pstart))
                (setq p1 (list pstarty pstartx))
                (if(= cont 0) (setq fx (angle p1 p)))
                (setq p (polar p1 fx dnum))
                (command "offset" dnum s1 p "")
                (setq s1 (entlast))
                (setq cont (+ cont 1))
          )   
)