yaopx0782
发表于 2005-3-21 08:59:00
看了一张，意思明白。可以试着用LISP编一小段程序。我说说，你看意思对不对。从一点开始，首先画一段线，然后下一段线从上一段线的终点开始，与上一段线夹角为某一个值，依次画出，直到结束。应该不难，我实在是没有时间，否则帮你做一段程序。
yaopx0782
发表于 2005-3-21 09:18:00
(defun c:lline()<BR> (setq sp (getpoint "xuanzeqidian:"))<BR> (setq spoint (getpoint "second point:"))<BR> (setq ang (angle sp spoint))<BR> (Command "line" sp spoint)<BR> (while (and (setq li (getreal "xiayidian de juli:"))<BR> (setq jiao (* pi (/ (getreal "xiayidiande jiaodu") 180))))<BR> (setq td (polar spoint (+ ang jiao) li))<BR> (command td)<BR> )<BR> )<BR>
试试这段LISP程序。
tuzi006
发表于 2005-3-21 11:20:00
太感谢了！！！我先试试！！
燕麦娘
发表于 2005-3-21 20:59:00
要是和你开篇所说的
用mirror镜象命令即可啊
输上角度就可以啊 在提示是否删除原对象时选择否就可以了啊
不知道是不是这个意思啊