[求助]：大虾帮忙看看这个程序有什么问题

txzjtxzj

程序功能:打断横线并画弧连上,在线十字交叉的时候很有用的
这个是在网上找到的程序
(defun c:pp (/ meosmode p p1 p2 p3)
(setq meosmode (getvar "OSMODE"))
  (setvar "OSMODE" 0)  
  (setq p (getpoint "\n选择一点:"))
    (progn
      (setq p1 (list (- (car p) 1.5) (cadr p)))
      (setq p2 (list (+ (car p) 1.5) (cadr p)))
      (setq p3 (list (car p) (+ (cadr p) 1.5)))
   )
  (command "break" p1 p2)
  (command "arc" p1 p3 p2)
   (setvar "OSMODE" meosmode)
  (princ)
)

但是这个程序有的时候不能执行，只是变成break的命令了
还有就是能否改成抓P1和P2 这2点自动打断再自动连上弧

xyp1964

line、pline均可：
[php](defun c:test ()
  (setq meosmode (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (while (setq s1 (entsel "\n选择<退出> : "))
    (setq e   (car s1)
          p   (cadr s1)
          rad (angle (vlax-curve-getstartPoint e)
                     (vlax-curve-getEndPoint e)
              )
          p   (osnap p "near")
          p1  (polar p rad 1.5)
          p2  (polar p rad -1.5)
          p3  (list (car p) (+ (cadr p) 1.5))
    )
    (command "break" p1 p2)
    (command "arc" p1 "c" p p2)
  )
  (setvar "OSMODE" meosmode)
  (princ)
)[/php]

啵浪鼓

2楼程序存在不稳定现象：
1，第一次选中物体时执行，再选同一根线时出错，提示无选择
2，选择聚合线后出现如图片，圆偏离线

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
|;


;;;打断线(line或pline)并画半弧连上
(defun c:test133 ()
  (cmdla0)
  (setvar "OSMODE" 0)
  (setq no1 (ureal 1 "" "\n圆弧半径" no1))
  (while (setq s1 (entsel "\n选择<退出> : "))
    (setq e   (car s1)
          p   (cadr s1)
          rad (angle (vlax-curve-getstartPoint e)
                     (vlax-curve-getEndPoint e)
              )
          p   (osnap p "near")
          p1  (polar p rad no1)
          p2  (polar p rad (- 0 no1))
    )
    (command "break" p1 p2)
    (command "arc" p1 "c" p p2)
  )
  (cmdla1)
)
[/php]

txzjtxzj

不用xyp_lib不行么？

xyp1964

最初由 txzjtxzj 发布
[B]不用xyp_lib不行么？ [/B]

按偶的方法，不用xyp_lib当然不行。
不用ACAD可能更不行，呵呵……

txzjtxzj

哎，楼主，这样.......?