头大无恼 发表于 2012-7-12 19:43:54

yjr111 发表于 2012-7-12 23:25:03

用grread总是不便，完善了一下hao3ren老师的程序，请楼主试用.......(defun c:jd(/ oldosmode pt1 pt2 tg pt3 entlst)
(command "undo" "be")
(setvar 'cmdecho 0)
(setq oldosmode (getvar 'osmode))
(setq pt1 (getpoint "/n指定第1点："))
(setq pt2 (getpoint pt1 "/n指定第2点："))
(command "line" pt1 pt2 "")
(setq tg (entLast))
(setvar 'osmode 0)
(setq pt3 (getpoint "/n指定剪切边："))
(foreach x (mapcar 'cadr (cdr(reverse(ssnamex
        (ssget "cp" (list pt1 pt2 pt3))))))
   (setq entlst (append entlst(list(list x pt3) )))
   )
(foreach x entlst
(command "trim" tg "" x "")
)
(entdel tg)
(setvar 'osmode oldosmode)
(command "undo" "e")
(princ)
)

半听可乐 发表于 2012-7-13 10:49:36

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

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

朽木大师 发表于 2012-7-13 12:38:12

葱白之情，由此升起

朽木大师 发表于 2012-7-13 12:38:50

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

42142 发表于 2012-7-15 01:09:16

Gu_xl 发表于 2012-7-6 15:57 static/image/common/back.gif


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

c735023723 发表于 2012-7-23 21:21:42

用arx编的可以吗？

feitianyiliu 发表于 2012-7-25 20:03:52

学学，看看，长见识

feitianyiliu 发表于 2012-7-25 20:07:27

剪切不完全

白皮猪 发表于 2012-11-28 20:49:22

学习学习学习
页: 1 2 [3] 4 5
查看完整版本: 5币求画线截断直线程序，要源码