[求助]：关于lisp的编程的一个问题

hemman

我是室内设计绘图员，经常要画轴线，用重复年复制、夹点编辑或偏移都太麻烦，因为它们的距离都要累加，我的设想是这样的：
能不能编一程序，复制一轴线时，直接输入距离，就可以依次画出轴线。请高手帮忙！！！万分感谢！！！

它山之石

用专业的CAD软件吧。
都有轴线绘制、编辑功能。

hemman

最初由 它山之石 发布
[B]用专业的CAD软件吧。
都有轴线绘制、编辑功能。 [/B]

谢谢你的回复。主要是我没有那些专业软件。更重要的是现在我想学一学lisp编程。
请各位高手继续指教！

yuzhongfei

去下载一些lisp书吧

saltxf

实现你那样的功能用LISP其实不难。能具体告之吗，我帮你编一个。

hemman

最初由 saltxf 发布
[B]实现你那样的功能用LISP其实不难。能具体告之吗，我帮你编一个。 [/B]

假设我画一根直线,然后想连续复制他,但cad提供复制命令需要累加值,我想只输入一个值,程序可以累加连续复制直线.谢谢!

guizhicheng

看我这个能否满足你的要求。

程序加载后，敲命令“PJHX”，程序提示你输入需要绘制的直线数量和直线之间的距离，然后再选择一个直线（这根直线是事先存在的，如果没有必须先绘制一根），右键确定后，在需要偏移的方向点击一下就行了。


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

梦断江南

在本版块用“连续拷贝”搜索，以前有人写过这样的程序

hemman

谨对楼上所给予我的帮助表示衷心的感谢

liguochen

试试这个程序，不知道是不是能够达到你的要求

它山之石

斑主说得对。这种通用程序在论坛很多。