[LISP函数]：偏移直线到当前层的lisp？

chenhang

偏移直线到当前层的lisp？
两个作用
1，偏移直线
2，直线变为当前层
请大家帮帮忙

cdhua001

http://www.xdcad.net/forum/showt ... d=838816#post838816

chenhang

最初由 cdhua001 发布
[B]http://www.xdcad.net/forum/showt ... d=838816#post838816 [/B]

请给我lisp程序好吗，请教命令发生器怎么用？还有lisp程序的快捷健是程序中的那一个？谢谢！

cdhua001

我给的链接里面就是Lisp的源文件啊，你复制下来，粘贴到记事本里面，保存后将扩展名改为“.lsp”就可以了。
直接加载无需任何命令，这个程序是在后台运行的。

chenhang

最初由 cdhua001 发布
[B]我给的链接里面就是Lisp的源文件啊，你复制下来，粘贴到记事本里面，保存后将扩展名改为“.lsp”就可以了。
直接加载无需任何命令，这个程序是在后台运行的。 [/B]

谢谢，明白了，但是这样也不好，因为有时是不用改层的，所以我希望能有个lisp直接可以达到偏移改层的作用（用其他的命令），这样可以不影响原来的，可以做到吗？请指教？

guizhicheng

给你一个LSP，写这个LSP是为我在CAD布设导航计划线用的，正好也符合你的要求。

(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))
          )   
)

说明：偏移后直线的层名为“JHX”，包括你选择的那根线。