[编程申请]：求lsp序，在图中插入一条长度为100，

lengliqun

求lsp序，在图中插入一条长度为100，倾角为45度的斜线，插入点(相当于块的基点)为该线中点。

xyp1964

[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;100长45度斜线
(defun c:test ()
  (cmdla0)
  (setq        pt  (getpoint "\n基点 : ")
        pt1 (polar pt (* pi 0.25) 50)
        pt2 (polar pt (* pi 1.25) 50)
  )
  (setvar "osmode" 0)
  (mkla "斜线" 4)
  (command "line" pt1 pt2 "")
  (cmdla1)
)[/php]

lengliqun

可用，谢谢哪。