[求助][LISP][求助]急！！！！用lisp怎么样实现方向的变换等问题？

yfywk

我编的剖切符号插入lsp程序 但不能变换方向，请大虾们帮忙看看，错在那里？还有能不能讲程序简化，因为我是才学lisp，好些都不知道怎样做。 里面的命令 a1和a3剖切符号插入 a2图名插入 s1和s2分别为立面符号和索引符号插入 源代码： ;横向剖切符号插入命令
(defun c:a1 (/ p1 p1 lst cdd pt1 pt2 n1)
(princ "\n")
(princ "横向剖切符号插入命令，输入a1调入命令。")
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 4799)
(setvar "ORTHOMODE" 1)
(setq p1 (getpoint "\n指定横向剖线第一点:"))
(setq p2 (getpoint p1 "\n指定横向剖线下一点:"))
(setq p1 (trans p1 1 0))
(setq p2 (trans p2 1 0))
(entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
(entdel (entlast))
(setvar "ORTHOMODE" 1)
(command "_.pline" (trans p1 0 1) (trans p2 0 1))
(while (= (getvar "cmdnames") "PLINE")
(command pause)
)
(command)
(command "ORTHOMODE" 0)
(setq cdd (getvar "CDATE"))
(setq cdd (rtos cdd 2 4))
(setq pt1 (getpoint "\n输入剖切符号插入点:"))
(if (= pt1 nil)
(setq pt1 '(0 0 0))
)
(setq pt2 (getpoint "\n输入剖切索引号插入点:"))
(if (= pt2 nil)
(setq pt2 '(0 0 0))
)
(setq n1 (getint "\n缩放比例<1>:"))
(if (= n1 nil)
(setq n1 1)
)
(command "INSERT" "pmfh01.dwg" pt1 n1 n1 "")
(command "INSERT" "pmfh02.dwg" pt2 n1 n1 "")
(princ)
) ;图名符号插入命令
(defun c:a2 (/ p1 p1 lst pt1 n1)
(princ "\n")
(princ "图名符号插入命令，输入a2调入命令。")
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 4799)
(setvar "ORTHOMODE" 1)
(setq p1 (getpoint "\n指定图名线第一点:"))
(setq p2 (getpoint p1 "\n指定图名线下一点:"))
(setq p1 (trans p1 1 0))
(setq p2 (trans p2 1 0))
(entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
(entdel (entlast))
(setvar "ORTHOMODE" 1)
(command "_.pline" (trans p1 0 1) (trans p2 0 1))
(while (= (getvar "cmdnames") "PLINE")
(command pause)
)
(command)
(command "ORTHOMODE" 0)
(setq pt1 (getpoint "\n输入图名插入点:"))
(if (= pt1 nil)
(setq pt1 '(0 0 0))
)
(setq n1 (getint "\n缩放比例<1>:"))
(if (= n1 nil)
(setq n1 1)
)
(command "INSERT" "tm.dwg" pt1 n1 n1 "")
(princ)
) ;纵向剖切符号插入命令，
(defun c:a3 (/ p1 p1 lst pt1 pt2 n1)
(princ "\n")
(princ "纵向剖切符号插入命令，输入a3调入命令。")
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 4799)
(setvar "ORTHOMODE" 1)
(setq p1 (getpoint "\n指定纵向剖线第一点:"))
(setq p2 (getpoint p1 "\n指纵向剖线定下一点:"))
(setq p1 (trans p1 1 0))
(setq p2 (trans p2 1 0))
(entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
(entdel (entlast))
(setvar "ORTHOMODE" 1)
(command "_.pline" (trans p1 0 1) (trans p2 0 1))
(while (= (getvar "cmdnames") "PLINE")
(command pause)
)
(command)
(command "ORTHOMODE" 0)
(setq pt1 (getpoint "\n输入剖切符号插入点:"))
(if (= pt1 nil)
(setq pt1 '(0 0 0))
)
(setq pt2 (getpoint "\n输入剖切索引号插入点:"))
(if (= pt2 nil)
(setq pt2 '(0 0 0))
)
(setq n1 (getint "\n缩放比例<1>:"))
(if (= n1 nil)
(setq n1 1)
)
(command "INSERT" "pmfh03.dwg" pt1 n1 n1 "")
(command "INSERT" "pmfh04.dwg" pt2 n1 n1 "")
(princ)
) ;立面符号插入命令
(defun c:s1 (/ lst pt1 pt2 rot n1)
(princ "\n")
(princ "立面符号插入命令，输入s1调入命令。")
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 4799)
(setq pt1 (getpoint "\n输入立面符号插入点:"))
(if (= pt1 nil)
(setq pt1 '(0 0 0))
)
(setq pt2 (getpoint "\n输入立面方向插入点:"))
(if (= pt2 nil)
(setq pt2 '(0 0 0))
)
(setq n1 (getint "\n缩放比例<1>:"))
(if (= n1 nil)
(setq n1 1)
)
(setq rot (getangle "输入旋转角度 <0>"))
(if (= rot nil)
(setq rot 0)
)
(command "INSERT" "lms.dwg" pt2 n1 rot "")
(command "INSERT" "lm.dwg" pt1 n1 n1 "")
(princ)
) ;索引符号插入命令
(defun c:s2 (/ lst pt1 pt2 pt3 n1)
(princ "\n")
(princ "索引符号插入命令，输入s2调入命令。")
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 4799)
(setq pt1 (getpoint "\n输入索引符号插入点[右索引(Y)/左索引(Z)]:"))
(if (= pt1 nil)
(setq pt1 '(0 0 0))
)
(setq n1 (getint "\n缩放比例<1>:"))
(if (= n1 nil)
(setq n1 1)
)
(command "INSERT" "sz.dwg" pt1 n1 n1 "")
(princ)
)

nono

把你要得出的结果传上来（要得到的图）

yfywk

贴图如下：

xyp1964

提供一个定制的装修符号程序：zxfh.fas，加载zxfh，运行zxfh。

yfywk

xyp1964兄，你的程序我用了，是为2004以上版本的，结果如下，并不是很好用。 但你的程序设计的很好，能不能将源码共享了，我参照一下，因为才接触lisp编程，好多都不知道怎样做。 测试结果：

jmp678

你的程序很有创造值得学习辛苦了