[LISP]指点迷津

ZZXXQQ

zhongguola发表于2005-9-6 16:24:00 我试过了二楼的根本不能用! 请问六楼的程序您会做吗？

为什么？我怎么可以用呀？我在R14上调试通过。

ZZXXQQ

试一下程序：

2. (DEFUN C:BRL ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (SETVAR "OSMODE" 0)
6. (IF (SETQ S1 (ENTSEL "\nSelect first Line : ")) (PROGN
7.   (REDRAW (CAR S1) 3)
8.   (IF (SETQ S2 (ENTSEL "\nSelect second Line : ")) (PROGN
9.    (REDRAW (CAR S2) 3)
10.    (SETQ EN1 (ENTGET (CAR S1))         EN2 (ENTGET (CAR S2))
11.          P1 (CDR (ASSOC 10 EN1)) P2 (CDR (ASSOC 11 EN1))
12.          P3 (CDR (ASSOC 10 EN2)) P4 (CDR (ASSOC 11 EN2))
13.          P5 (INTERS P1 P2 P3 P4 T))
14.    (COMMAND ".BREAK" (CADR S1) "F" P5 P5)
15.    (COMMAND ".BREAK" (CADR S2) "F" P5 P5)
16.   ))
17. ))
18. (SETVAR "OSMODE" OLDOS)
19. (SETVAR "CMDECHO" 1)
20. (PRINC)
21. )

复制代码

cexoss2349

(defun c:b1()
   (setq la (entsel "\nSelect First Line:")
         lb (entsel "\nSelect Second Line:")
  pt1 (cdr (assoc 10 (entget (car la))))
  pt2 (cdr (assoc 11 (entget (car la))))
  pt3 (cdr (assoc 10 (entget (car lb))))
  pt4 (cdr (assoc 11 (entget (car lb))))
  pt5 (inters pt1 pt2 pt3 pt4)
   )
  
   (command "break" la  "f" pt5 "@")
   (command "break" lb  "f" pt5 "@")
)

这个只能是两条直线。

zhongguola

二楼的程序在AUTOCAD2002中运用会遇到以下情况：

命令：B1

BREAK选择对象：

指定第二个打断点或[第一点(F)]：@

命令：（完了）

而且在选择对象的时候，点到什么位置，线段就会被剪没。

zhongguola

以上两个程序都很好用。

辛苦大家了！！！

ZZXXQQ

二楼的程序就是在选定点打断直线，在2002中也能正常运行，只是要求将特征点捕捉关掉。

zhongguola

这可不太好。如果关闭捕捉，就无法在交点出打断了！

kaixinmao

meflying发表于2005-9-6 11:36:00
(princ())相当于(princ nil) 其中的()相当于nil，而且()本身有分隔符功能，程序没有问题。

ZZXXQQ

zhongguola发表于2005-9-7 15:40:00 这可不太好。如果关闭捕捉，就无法在交点出打断了！

一楼可没有要求在交点打断。在七楼才提出这个要求。

zhongguola

真对不起这位大哥，让您费心了，是我在第一帖子里没说清楚

请您见谅！

谢谢！！！