5币求画线截断直线程序，要源码

头大无恼

yjr111

用grread总是不便，完善了一下hao3ren老师的程序，请楼主试用.......

2. (defun c:jd(/ oldosmode pt1 pt2 tg pt3 entlst)
   
3. (command "undo" "be")
   
4. (setvar 'cmdecho 0)
   
5. (setq oldosmode (getvar 'osmode))
   
6. (setq pt1 (getpoint "/n指定第1点："))
   
7. (setq pt2 (getpoint pt1 "/n指定第2点："))
   
8. (command "line" pt1 pt2 "")
   
9. (setq tg (entLast))
   
10. (setvar 'osmode 0)
    
11. (setq pt3 (getpoint "/n指定剪切边："))
    
12. (foreach x (mapcar 'cadr (cdr(reverse(ssnamex
    
13.         (ssget "cp" (list pt1 pt2 pt3))))))
    
14.      (setq entlst (append entlst(list(list x pt3) )))
    
15.    )
    
16. (foreach x entlst
    
17. (command "trim" tg "" x "")
    
18.   )
    
19. (entdel tg)
    
20. (setvar 'osmode oldosmode)
    
21. (command "undo" "e")
    
22. (princ)
    
23. )

(defun c:jd(/ oldosmode pt1 pt2 tg pt3 entlst)<br /> (command "undo" "be")<br /> (setvar 'cmdecho 0)<br /> (setq oldosmode (getvar 'osmode))<br /> (setq pt1 (getpoint "/n指定第1点："))<br /> (setq pt2 (getpoint pt1 "/n指定第2点："))<br /> (command "line" pt1 pt2 "")<br /> (setq tg (entLast))<br /> (setvar 'osmode 0)<br /> (setq pt3 (getpoint "/n指定剪切边："))<br /> (foreach x (mapcar 'cadr (cdr(reverse(ssnamex<br />         (ssget "cp" (list pt1 pt2 pt3))))))<br />      (setq entlst (append entlst(list(list x pt3) )))<br />    )<br /> (foreach x entlst <br /> (command "trim" tg "" x "")<br />   )<br /> (entdel tg)<br /> (setvar 'osmode oldosmode)<br /> (command "undo" "e")<br /> (princ)<br /> )

半听可乐

yjr111 发表于 2012-7-12 23:25
用grread总是不便，完善了一下hao3ren老师的程序，请楼主试用.......

嗯，完善了捕捉，很不错。谢谢相助！   顺便问一下，这个程序在使用上跟G版的差不多（捕捉除外），个人感觉区别就在截断前的那条预览线样式：G版的是红色的虚线，你的是白色的实线，这个线条样式在哪里改？

朽木大师

葱白之情，由此升起

朽木大师

离20个贴还有5个距离，得加油

42142

Gu_xl 发表于 2012-7-6 15:57
[/post]

这张图按照图上的直线去切 好像不能切完整 ，版主看看

c735023723

用arx编的可以吗？

feitianyiliu

学学，看看，长见识

feitianyiliu

剪切不完全

白皮猪

学习学习学习