[原创]：轴侧转换程序要看此贴！！！

w8960

算了，把整个LSP程序给给排水专业的分享：
(defun c:shui()
  (command "redraw")
  (princ "\n请选择基线:")
  (setq basl (ssget (list (cons 0 "line"))))
  (setq ba (entget (ssname basl 0)))
  (princ "\n请选择要改变的实体:")
  (setq tabl (ssget  (list (cons 0 "line"))))
  (setq jsx (car (cdr (assoc 10 ba))))
  (setq jsy (car (cddr (assoc 10 ba))))
  (setq a (sslength tabl))
  (setq b 0)
  (repeat a
    (setq olt (entget (ssname tabl b)))
    (setq sp (cdr (assoc 10  olt)))
    (setq ep (cdr (assoc 11  olt)))
    (setq sx (cadr (assoc 10 olt)))
    (setq ex (cadr (assoc 11 olt)))
    (setq sy (caddr (assoc 10 olt)))
    (setq ey (caddr (assoc 11 olt)))
      (progn
        (setq sy1 (+ jsy (/ (- sy jsy) (sqrt 2.0))))
        (setq ey1 (+ jsy (/ (- ey jsy) (sqrt 2.0))))
        (setq sx1 (+ sx (/ (- sy jsy) (sqrt 2.0))))
        (setq ex1 (+ ex (/ (- ey jsy) (sqrt 2.0))))
      )
  (setq olt (subst (list 10 sx1 sy1 0.00) (assoc 10 olt) olt))
  (setq olt (subst (list 11 ex1 ey1 0.00) (assoc 11 olt) olt))
  (entmod olt)
  (setq b (1+ b))
)
(command "redraw")

(print "/nOK!")
)
懂行的朋友体谅，我不知如何把附件传上来，孩儿们得先把程序用写字板形成LSP文件，再LOAD进去，运行SHUI即可，有高手可以把曲线也转得的请通知一下，讨教。
刚才又转了半天，水平差没法，见谅

ycwjf

>.<,不懂啊

3d小菜鸟

看不懂

cynthia

奇怪。怎么会不懂。我试了，非常好用。在命令行输入shui,  选画好的平面管线，回车。则所有管线都按轴测图位置移好了。你只要按标高上下移动管线即可。不必去想这条线应该斜多少度。

sunchengcai

扑通扑通，还是不懂啊，简单一点！

johncsq

可以用
不过45度的线不用缩短为1/2吗？
我做了一个上传文件，大家一起试试

nuance

楼主：我觉得轴测程序至少应该可以转换line,arc,circle,text,lwpolyline,insert,好些的还可以转换spline.

w8960

老掉牙的贴都让翻了出来，楼上的建议很好，不过现在没时间也没心情去搞了，而且现在几个专业软件也没有做的这些吧。
看来以后是应该改进一下。

zhiyongfan

该学学LISP了,不然那么多好东东都用不上

xshrimp

可以转换line,arc,circle,text,lwpolyline,insert

海豚

自己同行都不互相帮助，我上传一个，不需要爱心币。我是从给排水在线下载的。
已经用了很久了，除了文字还有一点问题，其他都无懈可击。

ydf7332462

zc.lsp可转高度线,但多有不能转
lr.fas无原代码
shui.lsp以前试过,现已记不清
楼主集3家之长,当是好Program