)ET下面有这个命令的。。试试吧！！在ET的绘图工具栏下面。。CAXA有.这正确的叫法,应该叫折线吧!折断线在CAD2004和CAD2002ET扩增工具――绘图工具――折断线中有，一般将大小(Size)设为字高即可。多谢各位!有些工具软件中也有！如ZDM相关主题请教下,怎么在CAD里画截断线,近似就是――^――的形状.谢了!!!请参考下面的程序:(defun c:test ()(setq p0 (getpoint “nInput First Point:”))(setq pe (getpoint p0 “nInput Second Point:”))(setq a (angle p0 pe)h (* (getar “dimscale”) 0.18)p1 …跪求高手们改一下这个程序，让其可以保存上次输入的值？(DEFUN C:WELD ()(Setar “cmdecho” 0)(setq s (getar “snapang”))(setq p1 (getpoint “n焊缝起始点:”))(setq p2 (getpoint p1 “焊缝结束点:”))(setq z (getreal “n焊缝尺寸大小:”))(setq oldosmode (getar “osmode”))(Setar “osmode”…帮忙修改画箭头lsp[求助]：帮忙修改画箭头lsp(defun C:jt2()(setq p1 (getpoint “箭头的尖端位置:”) p2 (getpoint p1 “箭头的另一端:”) dd (distance p1 p2))(prompt (rtos dd 2 4))(setq w (getreal “箭头的宽度: “) an (angle p1 p2) p3 (polar p2 (+ an (* pi …帮忙修改画箭头命令[编程申请]：帮忙修改画箭头命令(defun C:jt2()(setq p1 (getpoint “箭头的尖端位置:”) p2 (getpoint p1 “箭头的另一端:”) dd (distance p1 p2))(prompt (rtos dd 2 4))(setq w (getreal “箭头的宽度: “) an (angle p1 p2) p3 (polar p2 (+ an (* pi…画圆管折断线[LISP程序]：画圆管折断线; 画圆管折断线函数(defun c:yzd()(default_date)(get_dat)(change_date)(draw_zdx)(resume_date)(princ));*********************************************************************************************…Zemanta